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