Otomatik Resim Ekleme

1 2 3
02/08/2019, 18:30

yakanic

(02/08/2019, 16:01)ozanakkaya yazdı: Raporun ayrıntısının biçimlendiğinde olayına

Kod:
me.resimalani.picture = "c:\resim\" & me.adisoyadi & ".jpg"

şeklinde kod eklemelisin


https://accesstr.net/konu-tabloya-resim-...rnegi.html bağlantısında form üzerinden tabloya resim bilgisi kaydetme ile ilgili örnek mevcut.

hocam  şeklinde düzenledim fotoğraf yoksa hata çalişiyor ama fotoğraf olsa bile foto gelmiyor. hatam nerede
Alıntı:varmi = Me.ADI_SOYADI
adres = "C:\resimler\"
If varmi = "" And Dir(adres & varmi & ".jpg") = "" Then
    Me.img.Picture = adres & varmi & ".jpg"
   
ElseIf varmi <> "" And Dir(adres & varmi & ".jpg") = "" Then
        'picture not there!
        MsgBox "Klasörde " & Me.ADI_SOYADI & " fotoğrafı yok ", vbCritical + vbOKOnly
 
End If
End Sub
02/08/2019, 18:48

yakanic

(02/08/2019, 16:10)halily yazdı: accessde öncelikle tablonuzda resmin adresinin olduğu bir alan olmalı daha sonra forma bir resim çerçevesi eklemeniz gerekiyor
daha sonra resim çerçevesinin resim kaynağına tablodaki resmin alanını bağlamalısınız en basit haliyle böyle anlatabilirim
eğer doğrudan kişi adı ile resmin adı aynı ise çok sorun çıkarmaz

cevabiniz için teşekkür ederim aslında ben sisteme resim kaydetmek istemiyorum sistemde isimi yazan kişilerin belirttiğim klasörde fotoları varsa görünmesini yoksa boş kalmasini istiyorum..
02/08/2019, 18:58

berduş

if kısmı hatalı o nedenle sorun çıkıyor, kodu aşağıdaki gibi dener misiniz?
If Len(Dir(adres & varmi & ".jpg")) > 0 Then
02/08/2019, 19:06

yakanic

(02/08/2019, 18:58)halily yazdı: if kısmı hatalı o nedenle sorun çıkıyor, kodu aşağıdaki gibi dener misiniz?
If Len(Dir(adres & varmi & ".jpg")) > 0 Then

olmadı hocam
02/08/2019, 19:30

berduş

6. mesajdaki eki güncelledim tekrar dener misiniz eki?
02/08/2019, 20:07

yakanic

(02/08/2019, 19:30)halily yazdı: 6. mesajdaki eki güncelledim tekrar dener misiniz eki?
olmadi bu yanlış isim olduğunda ad_soyad a onlari ekliyor   bu arada ben isimi kendim yazmıyorum rapor olarak çıktıda yazdırıyorum ondan dolayi olailir mi
1 2 3