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.
Açılır Listedeki verileri Almak
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.
=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.
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.
Örneklerinizi düzenle onar yaptıktan sonra zip veya rar ile sıkıştırıp ekleyiniz.
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.
Access için her zaman lazım olacak konu başlıkları listesi
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.
Access için her zaman lazım olacak konu başlıkları listesi
Dlookup kullanmadan yapmak için aşağıdaki konuyu okuyun.
Açılan kutudaki seçime göre formdaki metin kutularına bilgi getirme (Dlookup olmadan)
Açılan kutudaki seçime göre formdaki metin kutularına bilgi getirme (Dlookup olmadan)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs
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..
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;
şeklinde bir kod ile karşılaşırsınız. Bu işlem size aradığınız verilerin ekrana getirilmesini sağlayacaktır.
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
Konuyu Okuyanlar: 1 Ziyaretçi