Başlamadan önce teşekür ederim ilgilendiğiniz için
eklemiş olduğum kütüphane veritabanında bir sorunum oldu. "öğrenciye kitap verme" adlı formumda oluşturduğum açılır listeden veri seçtiğimde seçtiğim verinin göre adı ve soyadı kutularına gelmesini istiyorum ama bir türlü yapamadım yardım ederseniiz çok sevinirim.
DLookUp ile bu işi rahatlıkla yapabiliyoruz.
=DLookUp("[ADI]";"[ogrencilist]";"[ID]=" & [Açılan Kutu0])
ADI verinin gözükmesi istediğimiz (şu an işlem yapılan) metin kutusunun adı
ogrencilist verilerin çekileceği tablo adı
ID hangi numaraya göre veriyi sıralacağını ogrencilist tablosundan belirledik
Açılan Kutu0 formumuzdaki Üye listesi adlı açılır kutumuz ile ilişkilendiriyoruz.
![[Resim: ekranv.png]](http://img21.imageshack.us/img21/9526/ekranv.png)
Sn S3co öncelikle sitemize hoşgeldiniz. Lütfen
Site Kurallarını okuyunuz.
Örneklerinizi düzenle onar yaptıktan sonra zip veya rar ile sıkıştırıp ekleyiniz.
sn leylaz çok teşekkür ederim istediğim gibi olmuş ellerinize sağlık ...Dlookup olayını çözemediğim için yapamamıştım şimdi çok süper oldu sağolun..
Sn benremix kusura bakmayın biraz azele oldu o yüzden yapamadım bundan sonra söylediklerinize dikkat ederek yapacağım.. çok sağolun..
Öncelikle ilişkilerinizi tekrar oluşturun. ogrencilist tablonuzdaki Id ile verilen_kitap_adi tablonuzda bulunan Üye No alanını ilişkilendirin. Oluşturacağınız formda kitap adı için açılan kutu oluşturarak Tablo/Sorgu olarak belirleyin. Burada ise Kitap tablonuzdan kitap ismlerini çağırın. Böylelikle verilen_kitap_adi tablonuzdaki kitap adını belirlemiş olursunuz. Sonrasında da Seruz hocamın dediği gibi
Dlookup kullanmadan arama yaptıracağınız açılan kutuyu oluşturun. Sizin için en kolay yol sihirbazı kullanmak olacaktır. Bu işlem sonrasında kod bölümünde;
Kod:
Private Sub Açılan_Kutu1_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Id] = " & Str(Nz(Me![Açılan Kutu1], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
şeklinde bir kod ile karşılaşırsınız. Bu işlem size aradığınız verilerin ekrana getirilmesini sağlayacaktır.