Skip to main content

#EvdeKal


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

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

#7
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;"

Visual Basic Code
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

.rar UserFormKriterliAccess_hy.rar (Dosya Boyutu: 28,91 KB | İndirme Sayısı: 4)
Cevapla
#8
Deneyiniz.

[Resim: do.php?img=9739]
.rar Deneme Test 68.rar (Dosya Boyutu: 1,48 MB | İndirme Sayısı: 14)
Cevapla
#9
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...
Cevapla
#10
Rica ederim,kolay gelsin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task