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
