Halily hocam sizin verdiğiniz örnekten yola çıktım Buraya Kadar Çalışıyor
Private Sub Komut75_Click()
Dim dbs As DAO.Database
Dim rss As DAO.Recordset
Dim txtSql As String
If IsNull([Metin1]) Then
MsgBox ("giriş yapmadınız")
Else
txtSql = "Select * from resimler where adi='" & CStr(Me.Metin1.Value) & "'"
Me.Liste6.RowSource = txtSql
Set dbs = CurrentDb
Set rss = dbs.OpenRecordset(txtSql, dbOpenDynaset)
Me.Metin2 = rss.Fields("resim_yol")
End If
End Sub
Private Sub next_Click()
Me.Recordset.MoveNext 'Bu Olmuyor Burayı Nasıl Yazmalıyım
Me.Metin2 = rss.Fields("resim_yol")
End Sub
Adı Soyadı:
Za.... La....
Yaşı:
55
Konum:
Balıkesir
Ofis Versiyonu:
Ofis 2016 64 Bit
Son Oturumu:
28/11/2022,23:34
Cevapla