fotoğraf isimleri ile personelin bilgileri arasında benzerlik var ise (personelin tckimlik numarası ile resim adı aynı ise) resim yolu tabloya eklenebilir.

Arşiv isimli raporun ayrıntısının biçimlendiğinde olayına aşağıdaki kodu eklersen resimler raporda görünür.

Dim strPath As String

   

    On Error Resume Next

    

    If IsNothing(Me.Photo) Then

        

        Me.Msg.Caption = "fotoğraf"

        

        Me.Msg.Visible = True

        

        Me.resgöster.Visible = False

    Else

        strPath = Me.Photo

       

        If (InStr(strPath, ":") = 0) And (InStr(strPath, "\\") = 0) Then

            

            strPath = CurrentProject.path & "\" & strPath

        End If

        

        Me.resgöster.Picture = strPath

       

        If Err <> 0 Then

           

            Me.Msg.Caption = "fotoğraf"

            

            Me.Msg.Visible = True

            

            Me.resgöster.Visible = False

        Else

           

            Me.resgöster.Visible = True

            

            Me.PaintPalette = Me.resgöster.ObjectPalette

        End If

    End If