Посоветуйте по отимизации кода...


Я сравниваю (rstOsnovna DAO.Recordset) и (rstHelnok DAO.Recordset) , одноимённые поля проверяю на разность содержащихся в них данных.Так как эти таблицы из разных офисов в них наверняка есть разница .

If Nz(rstOsnovna!NOMER) <> Nz(rstHelnok![NOMER]) Then raznicaECTb = 1
If Nz(rstOsnovna!NAME) <> Nz(rstHelnok![NAME]) Then raznicaECTb = 1
If Nz(rstOsnovna!NDATE) <> Nz(rstHelnok![NDATE]) Then raznicaECTb = 1
и т.д. ......................
всё бы не плохо но говорят ( If ) очень медленно работает и если два десятка полей, тысячи записей, то сравнение пройдёт долго.
потому я решил попробовать иначе...

Set Helndb = wsp.OpenDatabase(put_k_baze"Helnok.mdb")
Set rstOsnovna = CurrentDB.OpenRecordset("dog" , dbOpenDynaset)
Set rstHelnok = Helndb.OpenRecordset("dog1", dbOpenDynaset)

dim name_field as string
dim raznicaECTb as integer

raznicaECTb =0
Do Until rstHelnok.EOF = True

‘, но вот это место я незнаю как записать
‘надо как-то пробежаться по названию полей
‘сравнить их содержимое на наличие разницы

name_field =rstHelnok.name
If Nz(rstOsnovna!(name_field)) <> Nz(rstHelnok!(name_field) Then raznicaECTb = 1


Loop
if raznicaECTb = 1 then‘ и если хотя бы одно поле не совпадает по содержимому, то принять меры…


else

end if

Но может у кого-то есть другое , уже испытанное решение…

Ну дык да, запросом конечно
как там... записи без подчиненных

Ну может и так
но это все равно лучше чем рекордсет лопатить

зачем вообще "челночить" по рекордсету?

если уж рекордсетом, то лучше открывать рекордсет объединяющий две таблицы инерджойном по ключевому полю, а потом пробежаться по нему сравнивая поля одной записи. Будет быстрее чем скакать по второму рекордсету с помощью Find

А я бы сделал запросом на добавление и чохом добавил бы все недостающие...

нет теперь же один рекордсет...
нужно сравнить поля в одинаковыми именами из разных таблиц.
предположим что есть две таблицы в разными именами (tbl1 b tbl2) и одинаковым набором полей.
Ну примерно так:
Нужно передать имена таблиц и имя ключевого поля
как только встретит несовпадение вернет 1
если все совпадает вернет 0
проверки на несовпадение имен полей в таблицах - нет

Function CompTable(NameSourceTBL as string,NameTargetTBL as string, NameIdField as string) as Byte  dim raznicaECTb  as byte Dim rst As DAO.Recordset Dim fld As DAO.Field dim strNameTabl1 as string dim strNameTabl2 as string dim strIDName as string strNameTabl1 = NameSourceTBL   ' имя таблицы 1 strNameTabl2 = NameTargetTBL  ' имя таблицы 2 strIDName  = NameIdField  ' имя ключевого поля Set rst = CurrentDb.OpenRecordset("SELECT " & _ strNameTabl1 & ".*, " & strNameTabl1 & ".* FROM " & _ strNameTabl1 & " INNER JOIN " & strNameTabl2 & _ " ON " & strNameTabl1 & "." & strIDName & " = " & strNameTabl2 & "." & strIDName & ";") with rst if  .recordcount <> 0 then rst.MoveFirst raznicaECTb = 0 do while not .eof and raznicaECTb =0    For Each fld In rst.Fields          if fld.SourceTable = strNameTabl1 then                 if fld.value <> .Fields(strNameTabl2 & "." & fld.SourceField).value  then                                 raznicaECTb = 1                                Exit For                  end if          end if    Next loop end if CompTable = raznicaECTb  end function

писал прям здесь , возможно есть опечатки...

Да нет, посто я тут еще и работу работать пытаюсь

видимо как то так
F=1
if fld.value <> .Fields(strNameTabl2 & ".поле" & F & ")".value then
F=F+1

очепятки очепятки
Олег , это я заметил и поправил сразу
strNameTabl1 & ".*, " & strNameTabl2 & ".*
Спасибо

порешили мы с тобой ВСЕх

Цикл не очень быстро происходит...
можно сказать бесконечно долго

Function CompTable(NameSourceTBL As String, NameTargetTBL As String, NameIdField As String) As Byte Dim raznicaECTb  As Byte Dim rst As DAO.Recordset Dim fld As DAO.Field Dim strNameTabl1 As String Dim strNameTabl2 As String Dim strIDName As String strNameTabl1 = NameSourceTBL   ' имя таблицы 1 strNameTabl2 = NameTargetTBL  ' имя таблицы 2 strIDName = NameIdField   ' имя ключевого поля Set rst = CurrentDb.OpenRecordset("SELECT " & strNameTabl1 & ".*, " & strNameTabl2 & ".* FROM " & strNameTabl1 & " INNER JOIN " & strNameTabl2 & " ON " & strNameTabl1 & "." & strIDName & " = " & strNameTabl2 & "." & strIDName & ";") With rst If .RecordCount <> 0 Then rst.MoveFirst raznicaECTb = 0 Do While Not .EOF And raznicaECTb = 0    For Each fld In rst.Fields          If fld.SourceTable = strNameTabl1 Then          SysCmd acSysCmdSetStatus, "-" & Nz(fld.Value) & "-" & fld.Name                 If fld.Value <> .Fields(strNameTabl2 & "." & fld.SourceField).Value Then                                raznicaECTb = 1                               Exit For                 End If          End If    Next Loop End If End With CompTable = raznicaECTb End Function

вот