Переменная в запросе SQL - Microsoft Office Access

varyat · 15.03.2011, 23:12

Здраствуйте!!!
Такой вопрос, как сделать критерием поиска переменную??, вот часть кода

Код:

x=rec.fields("Поле1")
sql="select * from TEST where Поле2=x"
docmd.runsql sql

после выполнения выскакивает сообщение: "введите параметр х"

R Dmitry · 15.03.2011, 23:33

Цитата:

Сообщение от varyat

Здраствуйте!!!
Такой вопрос, как сделать критерием поиска переменную??, вот часть кода

Код:

x=rec.fields("Поле1")
sql="select * from TEST where Поле2=x"
docmd.runsql sql

после выполнения выскакивает сообщение: "введите параметр х"

Здравствуйте,varyat
если X число

Код:

Sql = "select * from TEST where Поле2= " & x & ""

если Х текст
"select * from TEST where Поле2= """ & x & """"

Дмитрий

varyat · 16.03.2011, 18:17

Спасибо что делишся со мной умом)))В который раз выручаеш.

Если можно еще маленький вопрос, как правильно сделать очистку поля,пробовал так:

Код:

Private Sub кнопка16_Click()
Me.поле22.Value=""
Me.поле22.Setfocus
End Sub

Вроде работает,то после выполнения отказывается работать следующая кнопка,которая проверяет поле на пустоту:

Код:

Private Sub кнопка16_Click()
If IsNull(Me.поле22.Value) Then
MsgBox "Введите значение !", vbApplicationModal & vbInformation
End Sub

????
Буду очень благодарен!!!

R Dmitry · 16.03.2011, 18:47

Цитата:

Сообщение от varyat

Спасибо что делишся со мной умом)))В который раз выручаеш.

Если можно еще маленький вопрос, как правильно сделать очистку поля,пробовал так:

Код:

Private Sub кнопка16_Click()
Me.поле22.Value=""
Me.поле22.Setfocus
End Sub

Вроде работает,то после выполнения отказывается работать следующая кнопка,которая проверяет поле на пустоту:

Код:

Private Sub кнопка16_Click()
If IsNull(Me.поле22.Value) Then
MsgBox "Введите значение !", vbApplicationModal & vbInformation
End Sub

????
Буду очень благодарен!!!

ну так Вы же сами, полю присваиваете значение "строка нулевой длинны", а проверяете на null

или присваивайте null или проверяйте на "", вот и все....

Дмитрий

varyat · 16.03.2011, 19:04

Спасибо,наконец разобрался со всем.

15.03.2011, 23:12	#1
varyat Пользователь Регистрация: 23.05.2010 Сообщений: 40	Переменная в запросе SQL Здраствуйте!!! Такой вопрос, как сделать критерием поиска переменную??, вот часть кода Код: `x=rec.fields("Поле1") sql="select * from TEST where Поле2=x" docmd.runsql sql` после выполнения выскакивает сообщение: "введите параметр х"

16.03.2011, 18:17	#3
varyat Пользователь Регистрация: 23.05.2010 Сообщений: 40	Спасибо что делишся со мной умом)))В который раз выручаеш. Если можно еще маленький вопрос, как правильно сделать очистку поля,пробовал так: Код: `Private Sub кнопка16_Click() Me.поле22.Value="" Me.поле22.Setfocus End Sub` Вроде работает,то после выполнения отказывается работать следующая кнопка,которая проверяет поле на пустоту: Код: `Private Sub кнопка16_Click() If IsNull(Me.поле22.Value) Then MsgBox "Введите значение !", vbApplicationModal & vbInformation End Sub` ???? Буду очень благодарен!!!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ошибка в sql-запросе	olgan	SQL, базы данных	2	01.10.2010 14:52
if в запросе sql	serres	PHP	2	28.05.2010 12:32
Группировка в SQL запросе	wm_leviathan	SQL, базы данных	8	09.03.2010 13:36
Ошибка в SQL запросе	program123	БД в Delphi	11	06.12.2009 17:12
Переменные в запросе SQL	Talemir	БД в Delphi	2	22.08.2009 21:22

16.03.2011, 19:04	#5
varyat Пользователь Регистрация: 23.05.2010 Сообщений: 40	Спасибо,наконец разобрался со всем.