Access data tablosunda kimlik ile veri arama

[ofbayoglu]

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

 

[akd]

Örnek belgenızı ekleyin, bu kadar koda hiç gerek yok aslında, daha basit bir kod ile yapılabilir...

 

[ofbayoglu]

deneme
1234

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

 

[veyselemre]

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.

 

[ofbayoglu]

hocam ilginiz için teşekkür ederim örnek yazabilirmisiniz size zahmet olmazsa..