Sayın aliozde birlikte mantık yürütelim mi?
Şimdi biz ne istiyoruz? Sınıflar listelendikten sonra öğrenci kutumuzda öğrenciyi seçtiğimizde eğer onun açıklama bilgisi varsa gelsin istiyoruz.
O halde kod yazacağımız yer aşağıdaki yordam.
Private Sub ogrliste_Click()
Metin12 = secilen
Metin14 = ogrliste.Column(1)
Metin10.SetFocus
End Sub
Burada yeni bir fonksiyon kullanacağız.
DLookup Fonksiyonu. Hakkında formumuzda Sayın tdsharun tarafından çok net açıklayıcı bilgi var.İncelemek için tıkla.
DLookup("Alan Adı", "Tablo veya Sorgu Adı", "Kriter=n")
Bu fonksiyonun bizim kullanacağımız yapısı.
Açıklayarak gidelim;
DLookup("Getirmek istediğimiz alan","Bu alan hangi tabloda","Getireceğimiz kaydı diğer kayıtlardan farklı kılacak bir kriter")
DLookup("aciklama","T_OGRENCI","ogr_id=Forms!Form1!ogrliste")
Bu fonksiyon bize ogrliste den seçtiğimiz öğrencini açıklama kaydını getirir. Nereye yazıyoruz.Metin10 alanına.
Metin10 = Dlookup ("aciklama", "T_OGRENCI", "ogr_id=Forms!Form1!ogrliste")
Kodumuzun tamamı:
Kod:
Private Sub ogrliste_Click()
Metin12 = secilen
Metin14 = ogrliste.Column(1)
Metin10 = DLookup("aciklama", "T_OGRENCI", "ogr_id=Forms!Form1!ogrliste")
Metin10.SetFocus
End Sub