Private Sub Liste_ARACLAR_DblClick(Cancel As Integer)
DoCmd.OpenForm "ARAC_DETAY", acNormal, ,"PLAKA='" & Me.Liste_ARACLAR.Value & "'"
End Sub
P1 alanındaki resmin istediğiniz yerde görünmesi için (On Current) geçerli olduğunda olayına aşağıdaki kodu yazıyoruz.
"On error resume next" satırı bu alan boş olan veya resim dosyası bulunamayan kayıtlarda hata vermemesi için yazıldı.
Me.Resim_SAG_CAMURLUK.Picture = "" satırı ise hata vermeden önce aklında kalan bir önceki kayda ait resmi kaldırması için.
Private Sub Form_Current()
On Error Resume Next
Me.Resim_SAG_CAMURLUK.Picture = ""
Me.Resim_SAG_CAMURLUK.Picture = Me.P1.Value
End Sub