- 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 göndermiş olduğum kodlarda tek değişkenle birlikte arama yapabiliyorum. Fakat 2 değişkenle arama yapmak istiyorum bu konuda yardımcı olabilirmisiniz.
--------------------------------------------------------------------------------------------
Sub siparislistesi()
Dim baglan As New Connection
Dim rs As New Recordset
On Error Resume Next
baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\master.accdb;"
rs.Open "select kimlik,sirano,tarih,firma,urun,miktar,ozel_fiyat,Toplam_tutar,Durumu,Uretim_planlama from siparis order by kimlik desc", baglan, adOpenKeyset, adLockPessimistic
With siparis.ListBox1
.ColumnCount = 10
.ColumnWidths = "0;30;50;110;150;40;40;50;80;80"
.Column = rs.GetRows
End With
rs.Close
baglan.Close
--------------------------------------------------------------------------------------------
End Sub
--------------------------------------------------------------------------------------------
Sub siparislistesi()
Dim baglan As New Connection
Dim rs As New Recordset
On Error Resume Next
baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\BAYOGLU\SipPro\master.accdb;"
rs.Open "select kimlik,sirano,tarih,firma,urun,miktar,ozel_fiyat,Toplam_tutar,Durumu,Uretim_planlama from siparis order by kimlik desc", baglan, adOpenKeyset, adLockPessimistic
With siparis.ListBox1
.ColumnCount = 10
.ColumnWidths = "0;30;50;110;150;40;40;50;80;80"
.Column = rs.GetRows
End With
rs.Close
baglan.Close
--------------------------------------------------------------------------------------------
End Sub
