AccessTr.neT

Tam Versiyon: Resmi "" Kritere Göre Getirmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhabalar üstadlarım. Ekleyeceğim Access dosyasında;
1. Formdan 2 ye, 2' den 3' e gidiyorum. Yaşadığım sıkıntıyla ilgili sitedeki tüm örnekleri denedim ama Vba zayıf olduğu için uyarlayamadım.
Dim olarak güzel örnek yapanlar var ama bende çalışmadı maalesef.

Resimle ilgili sıkıntım "Resim Getir" butonuna tıkladığımda yazdığım Vba komutuna göre eğer aynı klasörde kritere uygun .jpg varsa getiriyor, ancak yoksa hata veriyor. 

Bu resimleri bir yol üzerine kaydetmek ve getir dediğimde örnekteki gibi getirmesi sağlamak, Fotoğraf dosyada mevcut yoksa ise hata değil msgbox vermesini isterim. 

Muhtemelen bunu dim ile yapabilenler var ama ben bir türlü uyarlayamadım. Desteğinizi bekliyorum.
aşağıdaki kodu dener misiniz?
Resim.Picture = ""
xYol = Application.CurrentProject.Path & "\" & Me.arama & ".JPG"
If Len(Dir(xYol) & "") > 0 Then Resim.Picture = xYol Else MsgBox "resim bulunamadı"
(20/08/2022, 00:11)berduş yazdı: [ -> ]aşağıdaki kodu dener misiniz?
Resim.Picture = ""
xYol = Application.CurrentProject.Path & "\" & Me.arama & ".JPG"
If Len(Dir(xYol) & "") > 0 Then Resim.Picture = xYol Else MsgBox "resim bulunamadı"

Denedim çalıştı hocam. Bu kodu yeni biri olarak yazmamın imkanı yoktu. Araştırmada hiç denk gelmedim. Çok Teşekkür Ediyorum.
Rica ederim
İyi çalışmalar)