Dlookup ile forma getirme

[tamer42]

Merhabalar,

Ekli dosyada yer alan; qryFark adlı formda

sonradan bağımsız olarak eklediğim Telefon adlı textbox' a Bildiren personelin telefonun dolmasını istiyorum ama bir türlü beceremedim...

 Sub PersonelTelefon()
 Dim ad As String
 ad = Me.Bildiren
 Me.Telefon = DLookup("[Telefon]", "[Personel]", "[Personel Adı]= '" & ad & "'")
 End Sub

bu kodu yazdım ama hep en üsteki personelin telefon numarasını veriyor.

Bu işi nasıl çözebilirim? yardımcı olabilirmisiniz.

İyi Çalışmalar....

 

[tamer42]

Arkadaşlar tamamdır,

Telefon adlı textbox' un içine aşağıdaki formülü doğrudan yazınca sorun çözüldü...

=DLookUp("[Telefon]";"Personel";"[Personel Adı]='" & [Bildiren] & "'")

bu işlemi kodla da yapabilirmiyim? diye düşünüyorum.

İyi Çalışmalar, iyi hafta sonları....