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.