sorunuza örnek uygulama eklemezseniz yazılan cevaplar komplike açıklama veya gereksiz detay içeren çözümlerden oluşur. Size 6. mesajda verdiğim linkteki örnek uygulama sorunuzun çözümüydü zaten. Kendi uygulamanıza ekleyememiş olabilirsiniz. Örnek uygulamanızı ekleyin yardımcı olalım. linkteki örnekte bulunan kodu aşağıya yazayım belki tanıdık gelir.
Kod:
Private Sub Form_Current()
On Error GoTo err_Form_Current
If Not Me!MKResim = "" Or Not IsNull(Me!MKResim) Then
Me!ResimCercevesi.Picture = Me!MKResim
Else
Me!ResimCercevesi.Picture = ""
End If
exit_Form_Current:
Exit Sub
err_Form_Current:
MsgBox err.Description
Resume exit_Form_Current
End Sub