Sayın @peter088,

sorgu isimli formun geçerli olduğunda olayına aşağıdaki kodu ekleyiniz.

If IsNull(Me.resim) Or Me.resim = "" Then

Me.cerceve.Picture = ""

Else

Me.cerceve.Picture = resim

End If

Ayrıca, örnek uygulamalarınızı sıkıştırıp onararak ekleyiniz.  
Site Kuralları:
3d) Dosyanızda önce Access ile Veritabanı Sıkıştır ve Onar işlemini uygulayınız. Daha sonra herhangi bir sıkıştırma programı ile (WinRar/WinZip/7Zip vb.) Sıkıştırma Yöntemi En İyi (Best) olacak şekilde sıkıştırınız. Dosya Düzenle Onar ve WinRar ile Sıkıştırma İşlemi