Yazdığım kod benim kullandığım formlara göre yazıldı. Veriler hangi form açıksa o forma aktılıyor. Sizin aşağıdaki kodu kullanmanız yeterli.
Kod:
Private Sub Komut13_Click()
On Error GoTo Err_Komut13_Click
Forms!ARAC_BILGILERI!txtPlak = Me.txtPlak
Forms!ARAC_BILGILERI!txtMarka = Me.txtMarka
Forms!ARAC_BILGILERI!txtModel = Me.txtModel
Forms!ARAC_BILGILERI!txtTescilTarihi = Me.txtTescilTarihi
Forms!ARAC_BILGILERI!txtTescilBirimi = Me.txtTescilBirimi
Forms!ARAC_BILGILERI!txtRenk1 = Me.txtRenk1
Forms!ARAC_BILGILERI!txtRenk2 = Me.txtRenk2
Forms!ARAC_BILGILERI!txtCins = Me.txtCins
Forms!ARAC_BILGILERI!txtCalinti = Me.txtCalinti
If MsgBox("Aktarma İşlemi Yapıldı. Form Kapatılsın mı?", _
vbYesNo) = vbYes Then
Cancel = True
DoCmd.Close
End If
Exit_Komut13_Click:
Exit Sub
Err_Komut13_Click:
MsgBox Err.Description
Resume Exit_Komut13_Click
End Sub
Cancel=True kodunda ki hata ekranı çıktığında Yardım butonunu tıkladığınızda göreceğiniz üzere.
Option compare database kodunun hemen aldındaki option explicit kodunu silerseniz hata vermez.
Birde aşağıdaki linki incelerseniz uygulamanız için iyi olacak.