• 0
waleed907

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

سؤال

السلام عليكم ورحمه الله وبركاته

ارفق لكم برنامج وطلبي هو ان شعار البرنامج الموجود حاليا ( سوا) واريد ان يستطيع اي شخص تغيير هذه الصورة بالضغط عليها الي شعار شركته او مؤسسة او اي صورة يريد هو وتظهر كذلك فالتقارير عند طباعتها 

حاولت ان اطبق شرح الموجود بالموقع ولكن لم افلح في ذلك كما حاولت ان اطبق شرح الاخت زهرة  وكذلك لم ينجح الوضع لا اعرف السبب .

ارجو من الله ثم منكم عمل ذلك بحيث عندما اضغط على الصورة اختار صورة من الجهاز وتكون شعار للبرنامج وتظهر فالتقارير .

البرنامج تم تحميله على هذا المركز لكبرالحجم 2 ميقا
http://www.sooq-sa.com/do.php?id=45

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

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

وشكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

Private Sub zer1_Click()On Error GoTo err_zer1_ClickDim filename As VariantDim fDialog As Office.FileDialogDim 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 Suberr_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.PictureErrHandler2:    If Err.Number = 2220 Then        imgLogo.Picture = ""     End IfEnd Sub

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .