Aşağıdaki Sql kodunu sorgu olarak kaydet.
INSERT INTO (ms access;pwd=test;database=D:\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)=[Forms]![frmKfz]![Text73]));
Veri Kopyala butonunun tıklandığında olayına aşağıdaki kodları aşağıdakilerle değiştir.
On Error Resume Next
DoCmd.SetWarnings False
DoCmd.OpenQuery ("srg_verigonder")
DoCmd.SetWarnings True
Me.[untFrmKfz].Requery
Forms![frmKfz].Refresh
Forms![frmKfz].Requery
MsgBox "Daten wurde übernommen.", vbOKOnly, "ÜBERNAHME"
3 aylık veri silme butonundaki kodlarda gariplik yok