ник: час
я сначала бегу по второй "челнок" базе и начиная с первой записи беру её уникальный код и нахожу его во первой "основной" базе
rstOsnovna.FindFirst "[Guid] ='" & rstHelnok!guid & "'"
If rstOsnovna.NoMatch = True Then GoTo novajazapis 'новая запись '
If Nz(rstHelnok!guid) = Nz(rstOsnovna!guid) Then '1
|