INSERT INTO (ms access;pwd=test;database=F:\KfzPersonenDB.accdb) tblKfzPersDE ( Datum1, Uhrzeit1, KFZ, Heangerzug, Auflieger, Firma, Adresse1, Branche, NameVorname1, Nation1, NurZumBeUndEntladen, Versand, Service, WA, Ansprechpartner )
SELECT AbfKfzPersDE.Datum1, AbfKfzPersDE.Uhrzeit1, AbfKfzPersDE.KFZ, AbfKfzPersDE.Heangerzug, AbfKfzPersDE.Auflieger, AbfKfzPersDE.Firma, AbfKfzPersDE.Adresse1, AbfKfzPersDE.Branche, AbfKfzPersDE.NameVorname1, AbfKfzPersDE.Nation1, AbfKfzPersDE.NurZumBeUndEntladen, AbfKfzPersDE.Versand, AbfKfzPersDE.Service, AbfKfzPersDE.WA, AbfKfzPersDE.Ansprechpartner
FROM AbfKfzPersDE
WHERE (((AbfKfzPersDE.ID) Like "*" & [Forms]![frmKfz]![Text73] & "*"));
3 aydan eskileri sil butonunun kodlarını aşağıdaki ile değiştir.
Private Sub cmdLöschen_2_Click()
'üc aydan eski tarihleri siler
Select Case MsgBox("Wollen Sie den gewählten Datensatz wirklich löschen?", _
vbYesNo Or vbQuestion Or vbDefaultButton1, "Datensatz löschen")
Case vbYes
MsgBox "Löschen..."
CurrentDb.Execute "DELETE DateDiff('m',[Datum1],Date()) AS İfade1, * FROM tblKfzPersDE IN '' [ms access;pwd=test;database=F:\KfzPersonenDB.accdb] WHERE (((DateDiff('m',[Datum1],Date()))>=3));"
Case vbYes
MsgBox "nicht Löschen..."
End Select
'Formular aktualisieren
Me.Requery
Me.untFrmKfz.Requery
End Sub