+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Birden Fazla Koşullu Sorgu Metodlu Combobox Kullanımı (/konu-birden-fazla-kosullu-sorgu-metodlu-combobox-kullanimi.html)
Sayfalar:
1
2
Cvp: Birden Fazla Koşullu Sorgu Metodlu Combobox Kullanımı - berduş - 26/02/2020
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
Cvp: Birden Fazla Koşullu Sorgu Metodlu Combobox Kullanımı - feraz - 26/02/2020
Deneyiniz.
Cvp: Birden Fazla Koşullu Sorgu Metodlu Combobox Kullanımı - Lenadro - 27/02/2020
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...
Cvp: Birden Fazla Koşullu Sorgu Metodlu Combobox Kullanımı - feraz - 27/02/2020
Rica ederim,kolay gelsin.