öncelikle formun en üstüne "Option Compare Database"nin hemen altına tüm formda kullanabileceğimiz 2 değişken tanımladık
-modül eklerseniz her formda kullanılabilir-
Option Compare Database '<==bu satır zaten eklidir siz alttaki 2 taneyi ekleyeceksiniz
Dim txtSql As String
Public rsResim As dao.Recordset
sonra yeni bir prosedür tanımlayacağız -Aslında tanımlamamıza gerek yokmuş ben bir yerde hata yaptığım için çalışmadığından ayrı prosedür olarak yazmıştımisterseniz prosedürün içindeki kodları, "SqlResim (txtSql)"yi silip yerine yazabilirsiniz -
Public Sub SqlResim(txtSql As String)
Set rsResim = CurrentDb.OpenRecordset(txtSql)
rsResim.MoveLast
rsResim.MoveFirst
End Sub
"Sub Komut75_Click()" butonun kodunu aşağıdaki kodla değiştirintxtSql = "Select * from resimler where adi='" & CStr(Me.Metin1.Value) & "'"
SqlResim (txtSql)
Me.Liste5.RowSource = txtSql
Me.Metin2 = rsResim.Fields("resim_yol")
geriye kalanlar da ilk/son/ileri/geri komutlarıPrivate Sub BtnGeri_Click()
If rsResim.AbsolutePosition = 0 Then Exit Sub 'ilk kayıt kontrolu
rsResim.MovePrevious
Me.Metin2 = rsResim.Fields("resim_yol")
End Sub
Private Sub BtnIleri_Click()
If rsResim.AbsolutePosition = rsResim.RecordCount - 1 Then Exit Sub 'son kayıt kontrolü
rsResim.MoveNext
Me.Metin2 = rsResim.Fields("resim_yol")
End Sub
Private Sub BtnIlk_Click()
rsResim.MoveFirst
Me.Metin2 = rsResim.Fields("resim_yol")
End Sub
Private Sub btnSon_Click()
rsResim.MoveLast
Me.Metin2 = rsResim.Fields("resim_yol")
End Sub