Birden Fazla Koşullu Sorgu Metodlu Combobox Kullanımı

temelde yaptığım where kriterini eklemek
rs.Open "SELECT Müsteri_Adi FROM tbl_CIT_Müsteri_Türü  where [Tür]='" & Me.ComboBox_Oprs_Tr.Value & "'"
Not : Tablo adresini kendi bilgisayarıma uyarladığım için onu değiştirmeniz gerekebilir
Data Source=" & ActiveWorkbook.Path & "\Database.accdb;"

Dim baglan As New Connection

Dim rs As New Recordset

Dim Krt As String



On Error Resume Next

Krt = ""

If Me.ComboBox_Oprs_Tr.Value <> "" Then Krt = " where [Tür]='" & Me.ComboBox_Oprs_Tr.Value & "'" 'burada koşul eklendi

'Müşteri Türü kısmında filtreleme basınca verileri görmek için

 

 baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\Database.accdb;"

 rs.Open "SELECT Müsteri_Adi FROM tbl_CIT_Müsteri_Türü" & Krt, baglan, adOpenKeyset, adLockOptimistic

 ' rs.Open "SELECT Müsteri_Adi FROM tbl_CIT_Müsteri_Türü where [Tür]='" & Me.ComboBox_Oprs_Tr.Value & "'"

 With ComboBox_Müst_Tr

 .Column = rs.GetRows

 End With



 rs.Close

 baglan.Close

Deneyiniz.

Feraz Bey Merhaba,

Desteğiniz için çok teşekkür ederim. Çalışma tam istediğim gibi olmuş ellerinize sağlık....

İyi Günler Dilerim...

Rica ederim,kolay gelsin.