+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Resmi "" Kritere Göre Getirmek (/konu-resmi-kritere-gore-getirmek.html)
Resmi "" Kritere Göre Getirmek - aydin5353 - 19/08/2022
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.
RE: Resmi "" Kritere Göre Getirmek - berduş - 20/08/2022
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ı"RE: Resmi "" Kritere Göre Getirmek - aydin5353 - 20/08/2022
(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.
RE: Resmi "" Kritere Göre Getirmek - berduş - 20/08/2022
Rica ederim
İyi çalışmalar)