örneğinizide gönderebilirseniz incelerim.
Option Compare Database
Private Sub Ad_AfterUpdate()
ResimYukle
End Sub
Private Sub Form_Current()
ResimYukle
End Sub
Private Sub Soyad_AfterUpdate()
ResimYukle
End Sub
Sub ResimYukle()
On Error Resume Next
Resim.Picture = "C:\Resim\Bos.jpg"
Resim.Picture = "C:\Resim\" & Me.Ad & " " & Me.Soyad & ".jpg"
End Sub