Access data tablosunda kimlik ile veri arama

Katılım
24 Aralık 2020
Mesajlar
108
Excel Vers. ve Dili
excel 2010
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
 

Ekli dosyalar

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,105
Excel Vers. ve Dili
2003
Örnek belgenızı ekleyin, bu kadar koda hiç gerek yok aslında, daha basit bir kod ile yapılabilir...
 
Katılım
24 Aralık 2020
Mesajlar
108
Excel Vers. ve Dili
excel 2010
deneme
1234

admin yazarak kullanıcı paneline ulaşabilirsiniz. dosya ektedir.
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
rs.Open "select * from siparis WHERE Kimlik=" & Me.TextBox1.Text, baglan, adOpenKeyset, adLockPessimistic
"On Error Resume Next" komutunu sadece hata vermesi engellenemeyen ve başka bir şekilde çözülmesi mümkün olmayan yerlerde kullanın ve ilgili bölüm bittikten sonra "On Error Goto 0" kullanarak resetleme yapın.
 
Katılım
24 Aralık 2020
Mesajlar
108
Excel Vers. ve Dili
excel 2010
hocam ilginiz için teşekkür ederim örnek yazabilirmisiniz size zahmet olmazsa..
 
Üst