otomatik resim ekleme

1 2 3 4
06/12/2010, 09:49

kadirdursun

evet çözüldü. teşekkürler.
09/12/2010, 15:49

mk70


Merhabalar,
Aşağıdaki kod basit bir şekilde fotoğraf ekleme işini yapıyor. Hata durumunda bos.jpg adını verdiğim fotoyu görüntülüyor.

Private Sub Form_Current()
On Error GoTo err_Form_Current
Me!resim.Picture = "D:\Öğrenci İşlemleri\foto\" & [no] & ".jpg"
Exit Sub
err_Form_Current:
Me!resim.Picture = "D:\Öğrenci İşlemleri\foto\bos.jpg"
End Sub
1 2 3 4