Skip to main content

AccessTr.neT


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;"
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ı: 6)
Cevapla
#8
Deneyiniz.

[Resim: do.php?img=9739]
.rar Deneme Test 68.rar (Dosya Boyutu: 1,48 MB | İndirme Sayısı: 20)
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