- Katılım
- 24 Aralık 2020
- Mesajlar
- 108
- Excel Vers. ve Dili
- excel 2010
- Altın Üyelik Bitiş Tarihi
- 01-01-2022
ARKADAŞLAR MERHABA AŞAĞIDAKİ KODLARDA LİSTBOXTA ARAMA YAPABİLİYORUM. HEM FİRMA HEMDE DURUMU ŞEKLİNDE ARAMA YAPMAK İSTİYORUM FAKAT YAPAMIYORUM. ARAMA İŞLEMİNİ NASIL YAPABİLİRİM..
Private Sub ComboBox6_Change()
Dim baglan As New Connection
Dim rs As New Recordset
ListBox1.Clear
On Error Resume Next
T1 = Me.ComboBox6.Text
baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\master.accdb;"
rs.Open "select * from siparis where firma=('" & T1 & "')", baglan, adOpenKeyset, adLockPessimistic
With siparis.ListBox1
.ColumnCount = 13
.ColumnWidths = "0;20;50;100;120;40;40;40;50;50;70;70"
.Column = rs.GetRows
End With
rs.Close
baglan.Cl
Private Sub ComboBox6_Change()
Dim baglan As New Connection
Dim rs As New Recordset
ListBox1.Clear
On Error Resume Next
T1 = Me.ComboBox6.Text
baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\master.accdb;"
rs.Open "select * from siparis where firma=('" & T1 & "')", baglan, adOpenKeyset, adLockPessimistic
With siparis.ListBox1
.ColumnCount = 13
.ColumnWidths = "0;20;50;100;120;40;40;40;50;50;70;70"
.Column = rs.GetRows
End With
rs.Close
baglan.Cl
