Sayın Kadir Dursun Hocam;
Aşağıdaki Kodu bir modüle kaydedin.

Option Compare Database

Option Explicit

Public Function Varmi(ByRef dosyaadi) As Boolean

        If Len(Dir(dosyaadi, 16)) Then Varmi = True Else Varmi = False

End Function

Bu koduda Formunuzun tüm kodu ile değiştirin.

Option Compare Database

Private Sub Form_Current()

resim_kontrol

End Sub

Private Sub TCNO_AfterUpdate()

resim_kontrol

End Sub

Private Sub Açılan_Kutu10_AfterUpdate()

    ' Denetime uyan kaydı bul.

    Dim rs As Object

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[adi] = '" & Me![Açılan Kutu10] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Sub resim_kontrol()

Dim dosyaadi As String

dosyaadi = Application.CurrentProject.Path & "\" & Me.TCNO & ".JPG"

If Varmi(dosyaadi) = True Then

Me.resim.Picture = dosyaadi

Else

Me.resim.Picture = "C:\Documents and Settings\All Users\Belgeler\Resimlerim\Örnek Resimler\Mavi tepeler.jpg"

End If

End Sub

Kolay Gelsin.