Изучать VB начал только месяц назад, поэтому если не трудно помогите пожалуйста, в форкмах что-то не нашел.

Подключил базу, сделал запрос для выборки по определенным значениям (= ;<> ; > ; и т.д.), всё работает, но у меня есть текстовые и цифровые поля и
поэтому я в TEXTBox1 вставил кавычки, но они вставляются и для цифр и тогда начинается "ругань".
Вопрос: Как привязать к определенному полю кавычки?



Private Sub Combo4_Click()
Combo5.Clear
rsdbuse0.MoveFirst
For I = 0 To rsdbuse0.RecordCount - 1
Combo5.AddItem rsdbuse0.Fields(Combo4.ListIndex).Value
rsdbuse0.MoveNext
Next I
rsdbuse0.MoveFirst
Text7.Text = Combo4.Text & " "
End Sub

Private Sub Combo5_Click()
Text7.Text = Text7.Text & "'" & Combo5.Text & "'"
End Sub

JRMЗапрос как формируете? Склеиванием тех кусков, что у вас с текстбоксах находятся?


Да, 1 текстбокс-поля, другой значения, а третий набор запросов (=;>),
может быть есть другой вариант, я незнаю

IgorAltесть такая функия Val - делает из текста число


Если не трудно, подскажите пожалуйста как это сделать, только мне не надо
делать из текстового числовое, а только добавлять или нет кавычки.

prokaTSДобавь &"'" с обеих сторон! Запрос не понимает текст без кавычек! но двойные (") в строке писать нельзя -по этому добавляй одинарные, через &"
например:"... Where S.Name = " &"'" &text1.text &"'"
... и все получится


Спасибо большое, получился вариант от Vadima

Private Sub Combo5_Click()
If IsNumeric(Combo5.Text) = True Then
Text7.Text = Text7.Text & Combo5.Text
Else
Text7.Text = Text7.Text & "'" & Combo5.Text & "'"
End If
End Sub