Excel ve Access Kod Hatası

[Orion1]

Evren Bey hallettim.

Tebrikler.
Ne yaptın.

 

[kadir74]

Merhaba Evren Bey,

Dim yol As String, dosya As String
Dim baglan As New ADODB.Connection, ks As New ADODB.Recordset
If TextBox12.Value = "" Then
MsgBox "URUN KODU ARAMASI yapmak için BUL textboxına veri girmeniz lazım!" & vbLf & "Aarama yapılmadı!", vbCritical
TextBox12.SetFocus
Exit Sub
End If
yol = ThisWorkbook.Path & "\"
dosya = "STOK.mdb"
Set baglan = New ADODB.Connection
Set ks = New ADODB.Recordset
baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & dosya & ";"
ks.Open "select * from [STOK] where [URUN_KODU] like '" & TextBox12.Text & "%';", baglan, adOpenKeyset, adLockReadOnly
ListView1.ListItems.Clear
On Error Resume Next
If ks.RecordCount > 0 Then
ks.MoveFirst

Bu şekilde düzenleyince Bul fonksiyonuda , Yenileme işlemide gerçekleşiyor.Alt kısımların tamamı ile aynı...

Dim yol As String, dosya As String
Dim baglan As New ADODB.Connection, ks As New ADODB.Recordset
yol = ThisWorkbook.Path & "\"
dosya = "STOK.mdb"
Set baglan = New ADODB.Connection
Set ks = New ADODB.Recordset
baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & dosya & ";"
ks.Open "select * from [STOK] where [URUN_KODU] like '" & TextBox12.Text & "%';", baglan, adOpenKeyset, adLockReadOnly
ListView1.ListItems.Clear
If ks.RecordCount > 0 Then
ks.MoveFirst

Ama yine sizin bilginiz ile çok güzel bir proje çalışması oldu...
Tekrar tekrar Teşekkürler.