sadece çek bilgilerini aktarmayı yaptım. diğer tablolarda aynı şekil fakat en önce yapılmaması gereken ölümcül hataları düzeltin, bir çok örnek inceleyin, projenizi sıfırdan güzelce planlayarak yapın. 

kaydet butonunda kullanılan kodlar aşağıdadır.

Dim rS As New ADODB.Recordset

Dim rT As New ADODB.Recordset

rS.Open "ÇEK_BİLGİLERİ_Geçici", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rT.Open "ÇEK_BİLGİLERİ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rS.EOF = True Then GoTo 1453

Do Until rS.EOF

rT.AddNew

rT!İD = rS!İD

rT!ÇEK_NO = rS!ÇEK_NO

rT!VADESİ = rS!VADESİ

rT!BANKA = rS!BANKA

rT!BORÇLU = rS!BORÇLU

rT!TUTAR = rS!TUTAR

rT.Update

rS.MoveNext

Loop

MsgBox "kayıt işlemi gerçekleşti.", , "bİLGİ"

1453

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE FROM ÇEK_BİLGİLERİ_Geçici WHERE 1=1"

DoCmd.SetWarnings True

Me.[ÇEK_BİLGİLERİ_Geçici alt formu].Requery