VPF::Запрос с условием - ошибка 13 - Форум программистов

Boyur

Дата 17.6.2012, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.12.2007
Где: Новороссийск

Репутация: нет
Всего: нет

Здравствуйте, пытаюсь выполнить нажатием кнопки запрос с условием...
Нополучаю ошибку 13 не соотвествие типов вроде...
В чем может быть праблема?

Код


Private Sub История_Click()
  Dim q As DAO.QueryDef
  Set q = CurrentDb.QueryDefs("Запросистории")
  q.Parameters("[Введите телефон:]").Value = CDate(Me.Телефон.Value)
  q.Execute
  q.Close: Set q = Nothing
End Sub

Добавлено через 10 минут и 39 секунд
Понял почему не соотвествие типов из за CDate а что вместо него написать если у меня текст а не дата или дапустим если просто цифры

Данкинг

Дата 18.6.2012, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

А пытаться преобразовать телефонный номер в дату - это типа новый тренд гламура, что ли? smile

Цитата(Boyur @ 18.6.2012, 00:43

)

что вместо него написать

Зачем тут вообще нужно преобразование типов?

--------------------

There's nothing left but silent epitaphs.

Boyur

Дата 18.6.2012, 00:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.12.2007
Где: Новороссийск

Репутация: нет
Всего: нет

Я уже понял что ненужно терь вот так просто:

Код


q.Parameters("[Введите телефон:]").Value = Me.Телефон.Value

Но появилась новая проблема невозможно запустить запрос... ошибка 3065
Ссылается сюда:

Код


q.Execute

Что ему в этот раз не устраивает ((

Это сообщение отредактировал(а) Boyur - 18.6.2012, 00:16

Данкинг

Дата 18.6.2012, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Цитата(Boyur @ 18.6.2012, 01:14

)

ошибка 3065

А гугл что говорит?

--------------------

There's nothing left but silent epitaphs.

Boyur

Дата 18.6.2012, 00:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.12.2007
Где: Новороссийск

Репутация: нет
Всего: нет

Гугл нечего толкового не сказал... :(

Добавлено через 13 минут и 17 секунд
Вот так запускает но условие не сохранется...

Код


DoCmd.OpenQuery "Запросистории", acViewNormal

Данкинг

Дата 18.6.2012, 00:46 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Да ладно, первая же ссылка:

Цитата

The error message is actually telling you the whole story: You cannot
"execute" a SELECT query. Only "action" queries -- append, delete,
make-table queries -- can be executed. SELECT queries return data, so
you have to use OpenRecordset to open a recordset on your query:

--------------------

There's nothing left but silent epitaphs.

Boyur

Дата 18.6.2012, 01:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.12.2007
Где: Новороссийск

Репутация: нет
Всего: нет

Все отбой... извеняюсь за беспокойство... я сделал все проше...
условие отбора... [Формы]![Грасса]![Телефон] вбил в запрос..
и оброботчик кнопки DoCmd.OpenQuery "Запросистории", acViewNormal

Это сообщение отредактировал(а) Boyur - 18.6.2012, 01:00

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »