Четверг, 25 Сентября 2014 г. 12:32
+ в цитатник
Добрый день, форумчане
помогите с организацией поиска названия поля одного рекордсета в значениях полей второго рекодсета, и вывести название поля второго рекордсета при совпадении
написал вот такое вот:
| + |
Set rs = CurrentDb.OpenRecordset("Recordset1") Set Crtable = CurrentDb.OpenRecordset("Recordset2") For Z = 0 To rs.Fields.Count - 1 field_name = rs.Fields(Z).Name For k = 0 To Crtable.Fields.Count - 1 Do While Not Crtable.EOF Set ww = Crtable.Find(" & Crtable.fields(k) & " = " & field_name & ", 1, adSearchForward) Crtable.MoveNext Loop if not ww is nothing then msgbox Crtable.fields(k).name Set ww = nothing Next k |
только в "писанине" куча ...., к примеру при поиске в первом столбце курсор застывает в позиции .EOF и хз как его вернуть в начало, при переходе цикла к другому полю
также что то мне не очень вериться в правильность конструкции Set ww = Crtable.Find(" & Crtable.fields(k) & " = " & field_name & ", 1, adSearchForward)
помогите плз
http://www.sql.ru/forum/1117545/recordset-i-find
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-