Kayıtlarda Gezerken Dlookup Nasıl Çalıştırılır?

Merhaba;
Örnek dosyada kisi ve bilgi isimli 2 tablom var.
kisi id ile bilgi id kısımları ilişkili. bilgi isimli formuma kisi tablosundan isimsiz bir text kutusuna Dlookup ile bilgileri getiriyorum. Ancak girdiğim kayıtlar arasında gezindiğim zaman Dlookup fonksiyonu çalışmıyor. Olay ların çoğunu denedim.
benim isteğim kayıtlar arasında gezerken Dlookup gibi çalışan fonksiyon. 
örnek dosyamı ekledim yardımcı olursanız sevinirim.

Merhaba ogzcntrk;
KISI_ID_AfterUpdate() olay yordamına yazdığınız aşağıdaki kodu

Private Sub KISI_ID_AfterUpdate()

  Me.txt_adsoyad.Value = Dlookup ("AdSoyad", "tbl_kisi", "ID=" & [KISI_ID])

End Sub

Şu şekilde yazarak deneyiniz.

Private Sub Form_Current()

  Me.txt_adsoyad.Value = Dlookup ("AdSoyad", "tbl_kisi", "ID=" & [KISI_ID])

End Sub

İyi çalışmalar.

(25/08/2017, 01:00)direnist yazdı: Merhaba ogzcntrk;
KISI_ID_AfterUpdate() olay yordamına yazdığınız aşağıdaki kodu

Kod:

Private Sub KISI_ID_AfterUpdate()  Me.txt_adsoyad.Value = DLookup("AdSoyad", "tbl_kisi", "ID=" & [KISI_ID])End Sub

Şu şekilde yazarak deneyiniz.

Kod:

Private Sub Form_Current()  Me.txt_adsoyad.Value = DLookup("AdSoyad", "tbl_kisi", "ID=" & [KISI_ID])End Sub

İyi çalışmalar.

Kodları yazan ellerinize sağlık. Sizin yazdığınız gibi değiştirince çalıştı. Allah razı olsun.

Merhaba;
Kodu zaten siz yazmıştınız. Ben bişey yazmadım. Sadece yerini değiştirdim.
İyi çalışmalar.

Formda gezinirken sorunum çözüldü. Ama aşağıdaki kodları eklediğimde Dlookup hata veriyor.

Private Sub Form_Load()

   DoCmd.GoToRecord , , acNewRec

   Me.KISI_ID.SetFocus

End Sub

merhaba
bu kodlardarı da ekle

Private Sub KISI_ID_AfterUpdate()

  Me.txt_adsoyad.Value = Dlookup ("AdSoyad", "tbl_kisi", "ID=" & [KISI_ID])

End Sub

ayrıca ne tür hata verdiğinide açıklayarak yazarsanız iyi olur,kolay gelsin