- 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 access data tablosunda kimlik nosu ile arama yapmak istiyorum. Sipariş No da yazan sayıyı metin olarak arama yaptığımda çıkıyor. ama kimlik üzerinden arama yaptığımda çıkmıyor. sayı olarak arama nasıl yapabilirm.
Private Sub TextBox1_Change()
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\ResanData.accdb;"
rs.Open "select * from siparis WHERE kimlik='" & Me.TextBox1.Text & "'", baglan, adOpenKeyset, adLockPessimistic
Me.TextBox10.Text = rs.Fields(0)
Me.TextBox2.Text = rs.Fields(2)
Me.ComboBox1.Text = rs.Fields(3)
Me.ComboBox2.Text = rs.Fields(4)
Me.TextBox3.Value = rs.Fields(5)
Me.TextBox4.Value = rs.Fields(6)
Me.TextBox5.Value = FormatNumber(CDbl(rs.Fields(7)))
Me.TextBox6.Value = FormatNumber(CDbl(rs.Fields(8)))
Me.TextBox7.Value = rs.Fields(9)
Me.ComboBox3.Text = rs.Fields(10)
Me.ComboBox4.Text = rs.Fields(11)
Me.TextBox8.Value = rs.Fields(12)
Me.TextBox9.Value = rs.Fields(13)
Me.TextBox17.Value = rs.Fields(14)
Me.TextBox18.Value = rs.Fields(15)
Me.TextBox19.Value = rs.Fields(16)
rs.Close
baglan.Close
End Sub
Private Sub TextBox1_Change()
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\ResanData.accdb;"
rs.Open "select * from siparis WHERE kimlik='" & Me.TextBox1.Text & "'", baglan, adOpenKeyset, adLockPessimistic
Me.TextBox10.Text = rs.Fields(0)
Me.TextBox2.Text = rs.Fields(2)
Me.ComboBox1.Text = rs.Fields(3)
Me.ComboBox2.Text = rs.Fields(4)
Me.TextBox3.Value = rs.Fields(5)
Me.TextBox4.Value = rs.Fields(6)
Me.TextBox5.Value = FormatNumber(CDbl(rs.Fields(7)))
Me.TextBox6.Value = FormatNumber(CDbl(rs.Fields(8)))
Me.TextBox7.Value = rs.Fields(9)
Me.ComboBox3.Text = rs.Fields(10)
Me.ComboBox4.Text = rs.Fields(11)
Me.TextBox8.Value = rs.Fields(12)
Me.TextBox9.Value = rs.Fields(13)
Me.TextBox17.Value = rs.Fields(14)
Me.TextBox18.Value = rs.Fields(15)
Me.TextBox19.Value = rs.Fields(16)
rs.Close
baglan.Close
End Sub
Ekli dosyalar
-
572.7 KB Görüntüleme: 17