-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Recordset и Find

Четверг, 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


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку