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
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