27/08/2017, 13:08
eklediğim kod:
Hata:
Kod:
Private Sub Form_Current()
Me.txt_adsoyad.Value = DLookup("AdSoyad", "tbl_kisi", "ID=" & [KISI_ID])
End Sub
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
Me.KISI_ID.SetFocus
End Sub
Private Sub KISI_ID_AfterUpdate()
Me.txt_adsoyad.Value = DLookup("AdSoyad", "tbl_kisi", "ID=" & [KISI_ID])
End Sub
Hata: