Sayın Atoz112,

emeğiniz için çok teşekkür ederim.
uygulamayı belirttiğiniz gibi tablo isimlerini değiştirerek yapıyorum. fakat gene aynı sonuç çıkıyor. resim dosyası yolunu yeni düzene göre ayarlıyorum fakat gene olmuyor. nerde eksiklik veya hata yaptığımı bir türlü bulamadım. herçeşit ihtimali deniyorum. fakat gene sadece tek resim bütün kartlarda çıkıyor.


If Len(Dir(Me.MKResim)) = 0 Then

Else

Me.ResimCercevesi.Picture = CurrentProject.Path & "\" & "ER-KA" & "\" & "Resim_Deneme" & "\" & "Resimler" & "\" & Right(Me.MKResim, Len(Me.MKResim) - InStrRev(Me.MKResim, "\"))

End If

burdaki mantık

If Len(Dir(Me.MKResim)) = 0   oluncayakadar döngü devam etsin ( Len(Dir(Me.MKResim))) Bu formul sanırım kalan resim adedini belirlemek için
her döngüde  Me.ResimCercevesi.Picture= "Belirtilen adresteki değeri alsın"

 Right(Me.MKResim, Len(Me.MKResim) - InStrRev(Me.MKResim, "\" Burasıda her resmin adını belirtmrk için sanırım.

benim anladığım bu şekilde. yanlışsam düzeltin lütfen. Fakat bu mantığa göre uyarlama yapsamda gene maalesef hep aynı sonucu alıyorum.

(Buarada cevabınaza geç yanıt verdiğim için özür dilerim. en son cevabınızı ancak bu sabah görebildim)