Function KrtSuz()
Dim SqlMyv, SqlKrt, KrtOgn As String
If IsNull(Me.Açılan_Kutu2) Or IsNull(Me.Liste4) Then
MsgBox "lütfen hem öğün hem de meyve seçin"
Exit Function
End If
SqlMyv = " SELECT meyveler.Kimlik, meyveler.meyve, meyveler.sabah, meyveler.öğle, meyveler.aksam " & _
" FROM meyveler"
KrtOgn = Switch(Açılan_Kutu2 = "SABAH", "sabah", Açılan_Kutu2 = "ÖĞLE", "öğle", Açılan_Kutu2 = "AKŞAM", "aksam")
SqlKrt = " WHERE ((meyveler.Kimlik)=" & Me.Liste4 & ") AND ((meyveler." & KrtOgn & ")=True)"
Me.Liste6.RowSource = ""
SqlMyv = SqlMyv & SqlKrt
Me.Liste6.RowSource = SqlMyv
End Function
sonrada fonksiyonun çağrılmasını istediğiniz yerde bu fonksiyonu çağırırsınız
ben açılır kutu değiştiğinde ve liste4 çift tık olayına ekledim
Private Sub Açılan_Kutu2_Change()
KrtSuz
End Sub
Private Sub Liste4_DblClick(Cancel As Integer)
KrtSuz
End Sub
ama bence açılır kutuyu 2 sütunlu yapıp ilk sütuna tablodaki alan adını olduğu gibi yazsaydınız Switch satırına gerek kalmadan doğrudan açılır kutu referans olarak kullanılabilirdi
NOt: isimlendirmede Türkçe karakter boşluk ve alt tire dışında işaret kullanılmaması tavsiye ediliyor
