طلب اضافة صورة الي نموذج والتقارير

ملفك يحمل فايروس وقد اكتسفت ذلك خلال التنزيل 

وشكرا

تم تنزيل البرنامج على جهاز اخر ولم يظهر هنااك اي فيروس

للرفع

وعليكم السلام اخي :)

بالنسبة للزر الذي على النموذج ، استخدم هذا الكود:

Private Sub zer1_Click()
On Error GoTo err_zer1_Click

Dim filename As Variant
Dim fDialog As Office.FileDialog
Dim SourceFile, DestinationFile
    Set fDialog = Application.FileDialog(msoFileDialogOpen)
    With fDialog
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Images", "*.jpg"
        If .Show = -1 Then
            For Each filename In .SelectedItems
              Me.imgLogo.Picture = filename
            logo = filename
            Next
        Else
            MsgBox "No image selected."
        End If
    End With
  SourceFile = logo
 DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg"
 FileCopy SourceFile, DestinationFile
 MsgBox "Êã ÊÛííÑ ÇáÔÚÇÑ"

    DoCmd.Save acForm, Me.Name
    
Exit Sub
err_zer1_Click:

    If Err.Number = 94 Then
        'ignor, No image selected
        Exit Sub
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

وبالنسبة الى التقارير ، استخدم هذا الكود لكل تقرير:

Private Sub Report_Open(Cancel As Integer)
On Error GoTo ErrHandler2
    'imgLogo.Picture = Application.CurrentProject.Path & "\shar.jpg"
    Me.imgLogo.Picture = Forms!frm!imgLogo.Picture
ErrHandler2:
    If Err.Number = 2220 Then
        imgLogo.Picture = ""
     End If

End Sub

جعفر