Помогите с запросом

[Acidora]

суть проблемы есть много ComboBox из них считывается инф
и сравневается со значениями в базе
проблема возникает в запросе пишет что нет такой записи когда она есть...

Код: Выделить всё

For I = 1 To K
     
   VV = "ComboBox" & (I) & ".Value"
       
       Set rstNwind = my_base.OpenRecordset("SELECT * FROM BASE WHERE (Name) =  "" & VV & """, dbOpenDynaset)
       NN = (rstNwind.Fields(0))
           
Next I

заранее спасибо

[Konst_One]

может так:

Код: Выделить всё

Set rstNwind = my_base.OpenRecordset("SELECT * FROM BASE WHERE [Name] =  """ & VV & """", dbOpenDynaset)

[Acidora]

может так:

Код:
Set rstNwind = my_base.OpenRecordset("SELECT * FROM BASE WHERE [Name] = """ & VV & """", dbOpenDynaset)

тоже самое пишет(

[Konst_One]

что пишет?
приведите пожалуйста текст и номер ошибки

[Acidora]

Run-time error '3021'

текущая запись отсутствует

там после извлечение переменой получается


Set rstNwind = my_base.OpenRecordset("SELECT * FROM BASE WHERE [Name] = "ComboBox1.Value",dbOpenDynaset)

а должно

Set rstNwind = my_base.OpenRecordset("SELECT * FROM BASE WHERE [Name] = ComboBox1.Value,dbOpenDynaset)

[Konst_One]

Код: Выделить всё

SQL="SELECT * FROM [BASE] WHERE [Name] LIKE '*" & ComboBox1.Value & "*'"

Set rstNwind = my_base.OpenRecordset(SQL,dbOpenDynaset)

[Acidora]

Konst_One
а как же цикл ?

[Konst_One]

а сам никак

Код: Выделить всё

For I = 1 To K
     
   VV = ComboBox1.Item(I).Value
   SQL="SELECT * FROM [BASE] WHERE [Name] LIKE '*" & VV & "*'"
   Set rstNwind = my_base.OpenRecordset(SQL,dbOpenDynaset)
   NN = rstNwind.Fields(0).Value
   Debug.Print VV & "=" & NN
           
Next I