+- 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ığı: Otomatik Resim Ekleme (/konu-otomatik-resim-ekleme--85609.html)
RE: Otomatik Resim Ekleme - yakanic - 02/08/2019
(02/08/2019, 16:01)ozanakkaya yazdı: Raporun ayrıntısının biçimlendiğinde olayına
şeklinde kod eklemelisinKod:me.resimalani.picture = "c:\resim\" & me.adisoyadi & ".jpg"
https://accesstr.net/konu-tabloya-resim-yolu-ekleme-ve-dizine-resim-kopyalama-ornegi.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
RE: Otomatik Resim Ekleme - yakanic - 02/08/2019
(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..
Cvp: Otomatik Resim Ekleme - berduş - 02/08/2019
if kısmı hatalı o nedenle sorun çıkıyor, kodu aşağıdaki gibi dener misiniz?
If Len(Dir(adres & varmi & ".jpg")) > 0 Then
RE: Otomatik Resim Ekleme - yakanic - 02/08/2019
(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
Cvp: Otomatik Resim Ekleme - berduş - 02/08/2019
6. mesajdaki eki güncelledim tekrar dener misiniz eki?
RE: Otomatik Resim Ekleme - yakanic - 02/08/2019
(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