Skip to main content

AccessTr.neT


Resmi "" Kritere Göre Getirmek

Resmi "" Kritere Göre Getirmek

#3
(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.
Son Düzenleme: 20/08/2022, 03:22, Düzenleyen: aydin5353.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Resmi "" Kritere Göre Getirmek - Yazar: aydin5353 - 19/08/2022, 22:12
RE: Resmi "" Kritere Göre Getirmek - Yazar: berduş - 20/08/2022, 00:11
RE: Resmi "" Kritere Göre Getirmek - Yazar: aydin5353 - 20/08/2022, 03:22
RE: Resmi "" Kritere Göre Getirmek - Yazar: berduş - 20/08/2022, 06:22
Task