(18/07/2019, 21:53)halily yazdı: bu arada aşağıdaki kodlar da ben de sorunsuz çalıştı

Kod:

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

hocam formda bir tane isimler adlı tablom var ve formun veri kaynağı
birde resimler diye bir tablom var
isimlerden isim seçip resimlerden o isimdeki Resim yollarını metin kutusuna getirip ileri geri yaparak image göstermek amacım
sizin verdiğiniz kod çalışıyor lakin formun veri kaynağı değişiyor
dosya yükleyemiyorum yükleyebilseydim amacımı daha iyi anlatabilecektim

cevaplanmışlara taşındığı içi dosya eklenemiyordu
tekrar sorulara taşıdım dosyanızı ekleyebilirsiniz.

Liste5' e çift tıkladığımda metin1' e isim geliyor
buton75 tıklandığında veri tabanı isme göre set oluyor
ama next olmuyor

resimler tablosu next olacak

formun neden bir tablo kaynağı olmak zorunda?
sizin formda yapmak istediğiniz ne?
eğer sadece seçtiğiniz isme göre resimler arasında dolaşmaksa formun kaynağının değiştirilmesinde sorun yok, değiştirip resimler arasında dolaşırsınız , hatta isterseniz metin1 boşken "isim" tablosundaki tüm kayıtları, dolu olduğunda "resimler" tablosundaki kritere uyan kayıtları getirir

formun sağ tarafında çerceve var altında resim metin kutusu ve resim aç butonu ile ileri geri butonları
liste136 yı çift tıklayınca kayıtlı ev bilgileri gelecek ve sağ tarafta resim aç butonuna basınca o kayda ait resimler gelecek
kayıt seçili iken resimleri ileri geri yapabileceğim 
formun veri kaynağı olmadan nasıl olur yada bilemedim

ben eski dosyanız üzerinden yaptım siz yeni dosyanıza uyarlarsınız.
ö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ım
isterseniz 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ştirin

txtSql = "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