Dim rstDossier Jako ADODB.Recordset
Ciemnawy rstTemp Jako ADODB.Recordset
Ciemnawy sql Sznurek
Ustalony rstDossier = Nowy ADODB.Recordset
Ustalony rstTemp = Nowy ADODB.Recordset
'Definiować i Otwierać recordset tbl_Dossier
sql = "WYBRANY tbl_Dossier.* OD tbl_Dossier; "
rstDossier.Open sql, CurrentProject.Connection, _
adOpenStatic, adLockOptimistic
'Definiować i Otwierać recordset tbl_TempDossierRecordSource
sql = "WYBRANY tbl_tempDossierRecordSource.* OD tbl_tempDossierRecordSource; "
rstTemp.Open sql, CurrentProject.Connection, _
adOpenStatic, adLockOptimistic
'Porównywać oba recordsets i aktualizować tbl_Dossier tempDossierRecordSource
'Deleatur: usuwać rejestr od tbl_Dossier który być w the zastępca stół
'jeżeli tam być żadny rejestr opuszczać w the zastępca stół
'wtedy kasować wszystkie rejestr w tbl_Dossier i wychodzić okręt podwodny
Jeżeli rstTemp.RecordCount = (0) Wtedy
|