, 30 2016 . 18:05
+
, ....
:
Set rst_1 = b.OpenRecordset("vibor_ip_kalkul")
kol_vo = rst_1.Fields.Count
While Not rst_1.EOF
znach = Trim(rst_1!Vibor)
MsgBox rst_1!Vibor
sqlstr = "select * from _ where (_._ like '" & "* " & znach & " * ')" ' " '"
MsgBox sqlstr
Set rst = CurrentDb.OpenRecordset(sqlstr, dbOpenSnapshot)
'MsgBox sqlstr
ViewRecordset rst
kol_vo1 = rst.Fields.Count
'MsgBox rst1!_
rst_1.MoveNext
I = I + 1
Wend
, ,
Set rst = CurrentDb.OpenRecordset(sqlstr, dbOpenSnapshot) , " "
sqlstr = "select * from _ where (_._ like '" & "* " & znach & " * ')" ' " '" & znach & , ....
...
http://www.sql.ru/forum/1228825/ne-poymu-v-chem-problema
