Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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.
.zip Deneme.zip (Dosya Boyutu: 32,55 KB | İndirme Sayısı: 9)
Cevapla
#2
Merhaba ogzcntrk;
KISI_ID_AfterUpdate() olay yordamına yazdığınız aşağıdaki kodu
Visual Basic Code
Private Sub KISI_ID_AfterUpdate()
  Me.txt_adsoyad.Value = DLookup("AdSoyad", "tbl_kisi", "ID=" & [KISI_ID])
End Sub


Şu şekilde yazarak deneyiniz.
Visual Basic Code
Private Sub Form_Current()
  Me.txt_adsoyad.Value = DLookup("AdSoyad", "tbl_kisi", "ID=" & [KISI_ID])
End Sub

İyi çalışmalar.
Cevapla
#3
(25/08/2017 01:00)direnist Adlı Kullanıcıdan Alıntı: 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.
Son Düzenleme: 25/08/2017, 20:53, Düzenleyen: ogzcntrk. (Sebep: Yanlışlık)
Cevapla
#4
Merhaba;
Kodu zaten siz yazmıştınız. Ben bişey yazmadım. Sadece yerini değiştirdim.
Img-grin
İyi çalışmalar.
Cevapla
#5
Formda gezinirken sorunum çözüldü. Ama aşağıdaki kodları eklediğimde Dlookup hata veriyor.
Visual Basic Code
Private Sub Form_Load()
   DoCmd.GoToRecord , , acNewRec
   Me.KISI_ID.SetFocus
End Sub
Cevapla
#6
merhaba
bu kodlardarı da ekle


Visual Basic Code
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da