Dim rstDossier als ADODB.Recordset
Schwaches rstTemp als ADODB.Recordset
Schwacher sql als Schnur
Gesetztes rstDossier = neues ADODB.Recordset
rstTemp einstellen = neues ADODB.Recordset
'Recordset von tbl_Dossier definieren und öffnen
sql = „AUSERWÄHLTES tbl_Dossier.* VON tbl_Dossier; “
rstDossier.Open sql, CurrentProject.Connection, _
adOpenStatic, adLockOptimistic
'Recordset von tbl_TempDossierRecordSource definieren und öffnen
sql = „AUSERWÄHLTES tbl_tempDossierRecordSource.* vom tbl_tempDossierRecordSource; “
rstTemp.Open sql, CurrentProject.Connection, _
adOpenStatic, adLockOptimistic
'recordsets vergleichen und aktualisieren tbl_Dossier, um tempDossierRecordSource zu reflektieren
'Löschung: Aufzeichnungen von tbl_Dossier entfernen, die nicht in der Temptabelle sind
'wenn es keine Aufzeichnungen gibt, die in der Temptabelle gelassen werden
'alle Aufzeichnungen in tbl_Dossier dann löschen und Unterseeboot herausnehmen
Wenn rstTemp.RecordCount = 0 dann
|