otomatik resim ekleme

[mücahid1]

selam

acsesste bir form hazırladım. bu forumda kişilerin bilgileri var. birde resim bölümü var. forma otomatik olarak resimlerin atılmasını istiyorum. kişilerin resimlerini tc kimlik numaralarına göre bir klasöre kaydettim. (c:\resimler\1234567890.jpg) resimlerin bu klasörden formdaki resim bölümüne tc kimlik numaralarına göre otonatik olarak gelmesi mümkünmü.

 

[gulsum1]

formuna bir resim kutusu ekleyecen birde tckimlik nolarının geldiği metinkutusu hepsi bu
Private Sub Form_Current()
Resim0.Picture = "C:\resimlerim\" & Me.TCKİMLİKNO & ".JPG"
End Sub

 

[abkbek]

Sayın gulsum1,
yukarıdaki cevabınızda yer alan yöntemle eğer resimler klasöründe dosya yoksa dosyayı açamadığını belirten bir kod hatası veriyor ve formdaki diğer veriler değişmesine rağmen resim alanı bir önceki resimde kalıyor.
acaba kodu, resimler klasöründe veri olmadığında hata vermeden sadece "resim yok" gibi bir etiketin görünmesini sağlayacak şekilde düzenleyebilir misiniz?

aynı şekilde yeni kayda başlarken de hata mesajının gelmemesini sağlayabilir misiniz?

 

[seruz]

Private Sub Form_Current()
On error goto hata
Resim0.Picture = "C:\resimlerim\" & Me.TCKİMLİKNO & ".JPG"
exit sub

hata:
Resim0.Picture = ""
End Sub

veya hata mesajı içeren bir resim bulup veya oluşturup onu gösterebilirsiniz.
Private Sub Form_Current()
On error goto hata
Resim0.Picture = "C:\resimlerim\" & Me.TCKİMLİKNO & ".JPG"
exit sub

hata:
Resim0.Picture = "C:\resimlerim\ResimYok.JPG"
End Sub