Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

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

Автор: Boyur 17.6.2012, 23:43

Здравствуйте, пытаюсь выполнить нажатием кнопки запрос с условием...
Нополучаю ошибку 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

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

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

)

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

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

Автор: Boyur 18.6.2012, 00:14

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

Код


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

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

Код


q.Execute

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

Автор: Данкинг 18.6.2012, 00:19

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

)

ошибка 3065

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

Автор: Boyur 18.6.2012, 00:27

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

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

Код


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

Автор: Данкинг 18.6.2012, 00:46

Да ладно, первая же http://www.pcreview.co.uk/forums/3065-cannot-execute-select-query-why-not-t1638292.html

Цитата

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:

Автор: Boyur 18.6.2012, 01:00

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