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