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)
Cahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla