- Katılım
- 9 Ekim 2009
- Mesajlar
- 2
- Excel Vers. ve Dili
- 2003
Merhaba Arkadaşlar. Aşağıdaki Kodla Acses veri tabanından Me.sonid.Text de bulunan veriyi hucre sütununda arayıp karşılığına denk gelenleri labellere çekiyorum. Fakat bu sadece Aranan veri rakamsa ve Acsesdeki hücre sutunu Sayı olarak biçimlendirilmişse doğru çalışıyor. Metin olarak biçimlendirilmiş sütundan aramak istersem Tür uyuşmaslık hatası veriyor. Konu hakkında yardımınızı rica ederim
Kod:
Private Sub bulmetin_Click()
If sonid.Text = Emty Then
MsgBox "Barkod no giriniz"
sonid.SetFocus
Exit Sub
End If
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
sonislem = Me.sonid.Text
'On Error Resume Next
rs.Open "SELECT * from GercekStokmetin where HucreNo= " & sonislem, baglan, , 3, 1
Me.Label6.Caption = rs.Fields(2)
Me.Label7.Caption = rs.Fields(3)
Me.Label8.Caption = rs.Fields(4)
Me.Label9.Caption = rs.Fields(8)
'Me.Label10.Caption = rs.Fields(10)
'rs.Update
rs.Close ' seti sonlandırır
baglan.Close ' bağlantıyı sonlandır
Set baglan = Nothing
Set rs = Nothing
End Sub