AccessTr.neT

Halily hocam  istediğim tam bu olduğunu düşünüyorum teşekkür ederim şimdilik işlem tamam

ÖD)
iyi çalışmalar

(17/07/2019, 23:03)halily yazdı: [ -> ]ÖD)
iyi çalışmalar

Proje bitene kadar daha çok görüşeceğiz gibi 
Teşekkür ederim 
İyi Çalışmalar

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

sadece bu kodu yazmanız yeterli sonraki kayıt için
bu arada 1 şey sorayım dün gönderdiğim kod yeterliydi diğer kodları eklemenize gerek var mıydı?[attachment=30462]

bu arada aşağıdaki kodlar da ben de sorunsuz çalıştı

Private Sub BtnGeri_Click()

'DoCmd.GoToRecord , , acPrevious

Me.Recordset.MovePrevious

End Sub



Private Sub BtnIleri_Click()

'DoCmd.GoToRecord , , acNext

Me.Recordset.MoveNext

End Sub



Private Sub BtnIlk_Click()

'DoCmd.GoToRecord , , acFirst

Me.Recordset.MoveFirst

End Sub



Private Sub btnSon_Click()

'DoCmd.GoToRecord , , acLast

Me.Recordset.MoveLast

End Sub