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
#6
Ö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;
şeklinde bir kod ile karşılaşırsınız. Bu işlem size aradığınız verilerin ekrana getirilmesini sağlayacaktır.
