Forma Otomatik Resim ekleme

FORMA OTOMATİK RESİM EKLEME

1-formunuza bir resim kutusu ekleyeceksiniz birde tckimlik nolarının geldiği metinkutusu

Private Sub Form_Current()
Resim0.Picture = "C:\resimlerim\" & Me.TCKİMLİKNO & ".JPG"
End Sub

2-Private Sub Form_Current()
On Error GoTo HATA
If IsNull(Me.TCKIMLIKNO) Then
Me.FotoDosyasi.Caption = ""
Me.Foto.Picture = ""
Else
Me.FotoDosyasi.Caption = Me.Application.CurrentProject.Path & "\" & Me.TCKIMLIKNO & ".jpg"
Me.Foto.Picture = Me.Application.CurrentProject.Path & "\" & Me.TCKIMLIKNO & ".jpg"
End If
Exit Sub
HATA:
Me.Foto.Picture = ""
End Sub

Not;Alıntıdır....

bir örnek eklersen daha iyi olur, kullanım ve görünüm kolaylığı sağlar.
teşekkürler

Arakadaşlar kendileri bişeyler yapmaya çalışırlarsa daha kolay öğreniler diye düşünüyorum....

teşekkürler

teşekkürler kodlar için.

yaw hocam resim ekle butona tıklayıp resim seçince formda görünmesini nasıl yapacağız...

https://accesstr.net/konu-kullanici-kayi...amasi.html

burayı inceledim...