اظهار شريط ادوات عند كل فتح تقرير

[كريمو2]

السلام عليكم اخواني

لقد حاولت تجسيد ظهور شريط الادوات عند فتح كل تقرير ومافلحت في ذالك

الرجاء التعديل على المرفق

والصور توضح ذالك

 

report_options2.rar

 

[Shivan Rekany]

جرب كود فتح ذاك النموذج في حدث تحميل التقرير
 

تم تعديل فبراير 2, 2017 بواسطه Shivan Rekany

[كريمو2]

كيف ؟

ممكن التعديل استاذ على المرفق ؟

تم تعديل فبراير 2, 2017 بواسطه كريمو2

[jjafferr]

السلام عليكم أخي كريمو

 

امر فتح التقرير عندك لازم يكون هكذا

    Dim stDocName As String
    stLinkCriteria = "EmployeeID=" & Me.EmployeeID
    stDocName = "x03"
    'DoCmd.OpenReport stDocName, acPreview
    DoCmd.OpenForm "PrintPreviewFrm", , , , , acDialog, stDocName & ";" & Me.Name

.

انت لا تفتح التقرير ، وانما تفتح النموذج PrintPreviewFrm ، وترسل اليه اسم التقرير واسم النموذج الذي به زر فتح التقرير ،

والنموذج PrintPreviewFrm هو الذي يقوم بفتح التقرير

 

جعفر

[كريمو2]

شكرا لك استاذي الكريم جعفر ...

على فكرة لما طبقت الفكرة على مشروعي 

ظهر لي هذا الميساج

 

[Shivan Rekany]

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

[كريمو2]

اهلا استاذ شيفان

حياك الله 

انا بدوري جربته على المرفق بالمشاركة 1 ومالقيت فيه مشكلة ولكن عندما جربته على مشروعي وجدت به هذا المشكل

مع العلم اني نسخت الوحدات النمطية التالية :

clsCommonDialogs

KeybState

Print Preview mod

String Handling tools

Utilities_mod

في مشروعي

[sandanet]

انا ايضاً طبقت فكرة شريط الأدوات على مشروعي ونجحت الفكرة مع بعض التعديلات الطفيفة لكي تتلائم مع المشروع لكني واجهت مشكلة في ازرار التنقل على شريط الادوات فهي لاتستجيب .. هل من احد ما حصلت معه مشكلة في استجابة ازرار التنقل؟

[Shivan Rekany]

ممكن ترفقون القاعدة اللي بها مشكلة
لكي نكدر نشوفه وين الخلل
مع تقدير

[كريمو2]

هاهو المرفق الذي به المشكل

اتمنى تصحيح الخلل

2017.rar

[Shivan Rekany]

 

هاهو المرفق الذي به المشكل

اتمنى تصحيح الخلل

2017.rar

اخي كريمو 
جرب ان ترفق مجددا 
لانه لم نكدر ان ننزل المرفق 
 

[كريمو2]

اوك اخي شيفان

جرب الآن

2017.rar

[Shivan Rekany]

 

اوك اخي شيفان

جرب الآن

2017.rar

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

 

2017.rar

[كريمو2]

 

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

 

2017.rar

شكرا اخي شيفان تم التصحيح ولكن اين تم التعديل ؟

 

تم تعديل فبراير 5, 2017 بواسطه كريمو2

[Shivan Rekany]

 

شكرا اخي شيفان تم التصحيح ولكن اين تم التعديل ؟

20172017.rar

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

stLinkCriteria = "EmployeeID=" & Me.EmployeeID

بهذا

    stLinkCriteria = "EmployeeID=" & Forms!frmmenah.EmployeeID

 

[sandanet]

ماذا عن ازرار التنقل في الشريط؟ هل من حل لها

[Shivan Rekany]

 

ماذا عن ازرار التنقل في الشريط؟ هل من حل لها

ارفق القاعده‌ لكي نشوفه سيدي

[sandanet]

المشكلة موجودة على نفس القاعدة التي ارفقتها انت

[كريمو2]

بقي نفس المشكل اخي شيفان

لاحظ المرفق

 

20172017.rar

تم تعديل فبراير 5, 2017 بواسطه كريمو2

[Shivan Rekany]

 

بقي نفس المشكل اخي شيفان

لاحظ المرفق

 

20172017.rar

اخي كريمو

شوف كود زر cmdMen7Report في نموذج FrmMen7Reportما غيرته انت

شهوف هذا كودك

Private Sub cmdMen7Report_Click()
On Error GoTo Err_cmdMen7Report_Click

    Dim stDocName As String

    stDocName = "rptMena7"
    DoCmd.OpenReport stDocName, acPreview

Exit_cmdMen7Report_Click:
    Exit Sub

Err_cmdMen7Report_Click:
If Err.Number = 2501 Then
        Resume Next
    Else
    
    MsgBox Err.Description
    Resume Exit_cmdMen7Report_Click
 End If
End Sub

وهذا كود اللي في مشاركتي السابقة

Private Sub cmdMen7Report_Click()
On Error GoTo Err_cmdMen7Report_Click
Dim stDocName As String
    stLinkCriteria = "EmployeeID=" & Forms!frmmenah.EmployeeID
    stDocName = "x03"
    'DoCmd.OpenReport stDocName, acPreview
    DoCmd.OpenForm "PrintPreviewFrm", , , , , acDialog, stDocName & ";" & Me.Name

Exit_cmdMen7Report_Click:
    Exit Sub

Err_cmdMen7Report_Click:
If Err.Number = 2501 Then
        Resume Next
    Else
    
    MsgBox Err.Description
    Resume Exit_cmdMen7Report_Click
 End If
End Sub

تحياتي

[كريمو2]

ايه والله صح فيه تغيير

المهم انا التعديل في الفورم FrmMenah

وفي زر شهادة استفادة 

وفي المرفق الاخير 20172017.rar

[sandanet]

ماذا عن ازرار التنقل في الشريط؟

[Shivan Rekany]

 

ماذا عن ازرار التنقل في الشريط؟

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

[sandanet]

احييك اخي Shivan على محاولة المساعدة .. واتمنى ان نجد من يستطيع حل المشكلة لان شريط الادوات هذا رائع جداً واعتقد انه سيكون بمثابة مرجع رئيسي في كل برنامج لذلك يجب حل جميع مشاكله.

تحياتي