AccessTr.neT

Merhabalar;
Ders_kodlari tablosundaki dersleri field.name olarak ders_istatistikleri formunda açılan kutuda gösteriyorum. Buradan seçilen ders adına göre öğrencileri listelemek istiyorum. Ders adlarını alan adından aldığım için çıkamadım işin içindne, yardımcı olabilirmisiniz rica etsem.

ak_ders_kodlari açılır kutusunun tıklanma yada değiştiğinde olayını aşağıdaki gibi düzenleyip dener misiniz?

Private Sub ak_ders_kodlari_Click()

Dim strSQL As String, xKriter As String



xKriter = ""

strSQL = ""

strSQL = strSQL & vbNewLine & " SELECT ders_kodlari.id, ogrenciler.ogrenci_adi, ders_kodlari.*"

strSQL = strSQL & vbNewLine & " FROM ogrenciler"

strSQL = strSQL & vbNewLine & " INNER JOIN ders_kodlari ON ogrenciler.id = ders_kodlari.ogrenci_id"

xKriter = vbNewLine & IIf(Len(ak_ders_kodlari & "") > 0, " where [" & ak_ders_kodlari & "]=-1;", ";")



Me.lst_ders_secenler.RowSource = strSQL & xKriter



End Sub

Hocam çok teşekkür ederim, doğru çalışıyor.

rica ederim
iyi çalışmalar

Sağolun hocam sizede iyi çalışmalar,