-Ürün tablosunu tasarım görünümünde aç,
-ürünresmi alanın ole nesnesi olan veri türünü not olarak değiştir,
-Ürünler formunu tasarım görünümünde aç,
-UrunResim adında metin kutusu ekle, metin kutusunun denetim kaynağını ürünresmi olarak belirle,
-İlişkili nesne çerçevesini silip ürünresmi adında resim denetimi ekle.(Forma metin kutusu eklediğin yer)
-Formun geçerli olduğunda olayına
On Error GoTo err_Form_Current
If Not Me!UrunResim = "" Or Not IsNull(Me!UrunResim) Then
Me!ürünresmi.Picture = Me!UrunResim
Else
Me!ürünresmi.Picture = ""
End If
exit_Form_Current:
Exit Sub
err_Form_Current:
MsgBox Err.Description
Resume exit_Form_Current
Aynı formun açıldığında olayına
On Error GoTo Err_Form_Open
If IsNull(Me!UrunResim) Or Me!UrunResim = "" Then
Else
Me!ürünresmi.Picture = Me!UrunResim
End If
Exit_Form_Open:
Exit Sub
Err_Form_Open:
MsgBox Err.Description
Resume Exit_Form_Open
kodu ekle.