Soru Form üzerinden filtre uygulayıp listboxta görüntülemek

[ruhadam26]

Merhabalar saygıdeğer forum sakinleri yapmaya çalıştığım userform üzerinde combobox ile filtre uygulayıp filtreli nesneleri listboxta görüntülemek istiyorum ama pek beceremedim. Örnek dosya ektedir.(cb1 de cbs ıd seçtiğimde listboxta cbs ıd ye göre filtre uygulanacak),(ya da ne diğer 3 değişken) Yardımlarınızı bekliyorum. Şimdiden emek veren herkese teşekkürlerimi sunarım..

 

[ruhadam26]

İnceleme fırsatı olabilen oldu mu?

 

[ruhadam26]

İnceleme fırsatı olabilen oldu mu ?

 

[byfika]

Merhabalar,
UserForm kod bölümüne alttaki kodu ilave edin, multipage'in OBK sayfasındaki CBS ID textbox'sına CBS ID yi girip dener misiniz?

Private Sub TextBox2_Change()
Dim con As Object, rs As Object
ListBox1.RowSource = Empty
On Error Resume Next
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;" & "data source=" & ThisWorkbook.FullName & ";" & _
"extended properties=""excel 12.0;hdr=no"""
sorgu = "select * from [Obk$] where f3 like '%" & TextBox2.Text & "%'"
rs.Open sorgu, con, 1, 1
With ListBox1
.ColumnCount = rs.Fields.Count
.Column = rs.getrows
End With
End Sub

 

[ruhadam26]

Merhabalar,
UserForm kod bölümüne alttaki kodu ilave edin, multipage'in OBK sayfasındaki CBS ID textbox'sına CBS ID yi girip dener misiniz?

Private Sub TextBox2_Change()
Dim con As Object, rs As Object
ListBox1.RowSource = Empty
On Error Resume Next
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;" & "data source=" & ThisWorkbook.FullName & ";" & _
"extended properties=""excel 12.0;hdr=no"""
sorgu = "select * from [Obk$] where f3 like '%" & TextBox2.Text & "%'"
rs.Open sorgu, con, 1, 1
With ListBox1
.ColumnCount = rs.Fields.Count
.Column = rs.getrows
End With
End Sub

emeğinize sağlık hocam. ama arama frame içerisinde arama texbox içine yazıp combobox3 ten arama sutununu seçerek aratmak istiyorum bu konuda yardımcı olabilir misiniz.

 

[ruhadam26]

Merhabalar,
UserForm kod bölümüne alttaki kodu ilave edin, multipage'in OBK sayfasındaki CBS ID textbox'sına CBS ID yi girip dener misiniz?

Private Sub TextBox2_Change()
Dim con As Object, rs As Object
ListBox1.RowSource = Empty
On Error Resume Next
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;" & "data source=" & ThisWorkbook.FullName & ";" & _
"extended properties=""excel 12.0;hdr=no"""
sorgu = "select * from [Obk$] where f3 like '%" & TextBox2.Text & "%'"
rs.Open sorgu, con, 1, 1
With ListBox1
.ColumnCount = rs.Fields.Count
.Column = rs.getrows
End With
End Sub

bir de bu şekilde yapınca listbox1 click yapınca hata veriyor