تصحيح كود _ شريط الطباعة على التقرير

[AMINYOUSIF]

اقتباس

15 ساعات مضت, kkhalifa1960 said:

عد اذن اساتذتي الاساذ /  @صالح حمادي  والاستاذ / @jjafferr  ........   للاستاذين @jo_2010   و  @AMINYOUSIF  .

يوجد تعديلات مهمة وكذلك عمل الشريط على التقارير  والنماذج .

 

الاستاذ /خليفة  المحترم 

مجهود و ابداع و عمل احترافى متكامل  و اذا كان من اعادة النظر فى : 

1- زر طباعة تقرير اكسييل بتظهر سطر واحد ( احتمال النسخة اللى عندى فيها مشكلة )

2-عند فتح التقرير و قبل استخدام ازرار التنقل : ظهور  عدسة التكبير و التصغير بالتقرير مما يسمح باستخدامها  و اختفاء نموذج الطباعة  و عدم امكانية ظهور النموذج مرة اخرى 

3- عند فتح التقرير : و عند تغير حجم الخط و لونة تتكرر ظهور عدسة الزووم على التقرير 

اما الباقى بدون ادنى ملاحظات  شكرا 

تم التجربة على اوفيس 2016 / 64 

 

تم تعديل مايو 30 بواسطه AMINYOUSIF

[AMINYOUSIF]

الاستاذ / @kkhalifa1960    @jjafferr  @jo_2010  

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

مع الحافظ على جميع ادوات النموذج   لا .........وكمان عاوزينة بماكرو  .......  طيب ممكن من غير ماكرو   

                        اختصارا مرفقى عبارة عن جزء من الادوات التى اعتبرتها عملية من وجهة نظرى ( مع كامل احترام للملف الاصيلى )

  و تلبى احتياجاتى البسيطة 

لم اقدم اى  جديد و لكن هو مزيج من كل الاعمال بداية من الاخت/ زهرة  مرورا بالاستاذ @صالح حمادي و ختاما الاخ @kkhalifa1960

ا

Print_ToolBar _2 _ test .rar

[ابوخليل]

3 ساعات مضت, AMINYOUSIF said:

 

لم اقدم اى  جديد و لكن هو مزيج من كل الاعمال بداية من الاخت/ زهرة  مرورا بالاستاذ @صالح حمادي و ختاما الاخ @kkhalifa1960

 

عمل رائع محكم  
شكرا لك استاذ امين

[jjafferr]

السلام عليكم

اذا الاكسس يعمل شيء معين ، فعادة انا لا عمل شيء بديل عنه ، مثل الانتقال من صفحة الى اخرى ، فالاكسس به هذه الخاصية ،

وكما ان لون النص وحجمه ، هما من عمل المبرمج ، فلن تراني اضعه في يد المستخدم.

 

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

 

من برنامجك استورد البرنامج المرفق (البرنامج لا يحتوي على اي كائن ، غير القائمة المختصرة)

.

.

وفي تقريرك في وضع التصميم :

.

الآن افتح التقرير في وضع معاينة ، وبالنقر على زر الفأرة اليمين ستأتيك هذه القائمة (والتي تشمل على ايقونات شريط الطباعة في هذا الموضوع)

.

 

Shortcut Menu.accdb

[Foksh]

1 ساعه مضت, jjafferr said:

الآن افتح التقرير في وضع معاينة ، وبالنقر على زر الفأرة اليمين ستأتيك هذه القائمة (والتي تشمل على ايقونات شريط الطباعة في هذا الموضوع)

عمل جميل ومتقن ، وبديل عن شريط أدوات التقارير بفكرته الأولى 💐

[ابوخليل]

2 ساعات مضت, jjafferr said:

 

اذا الاكسس يعمل شيء معين ، فعادة انا لا عمل شيء بديل عنه ، مثل الانتقال من صفحة الى اخرى ، فالاكسس به هذه الخاصية ،

 

سبق وان اهديتنا هذه الدوال .. وعن نفسي هي جزء اساسي لأي عمل اقوم به

الا هذه الاخيرة .. 

انا اعلم ان اي دالة منهن يمكن تحويرها والاضافة اليها او اختصارها .. بما يتوافق والحاجة

سؤالي اخي العزيز جعفر
هل يمكنني ان استل الدالة واستخرجها كوحدة نمطية او حتى تصديرها كملف نصي
صحيح ان النقل من قاعدة لأخرى ايسر بكثير .. 

ولكن لنفترض اني عملت دالة خاصة على هذه الصفة .. وضاع مني الأصل .. واريد التعديل عليها

[ابوخليل]

1 ساعه مضت, ابوخليل said:

هل يمكنني ان استل الدالة واستخرجها كوحدة نمطية او حتى تصديرها كملف نصي

سألت الذكاء الاكتروني فأعطاني هذا الكود .. واعتبره هندسة عكسية

لم اجربه بعد على اعتبار اسم الدالة المضافة :  SCM_Copy

Sub ExportMyCustomMenu()
    Dim cmb As CommandBar
    Dim ctrl As CommandBarControl
    Dim fileName As String
    Dim fileNo As Integer
    
    ' تحديد مسار حفظ الملف النصي الذي سيحتوي على تفاصيل القائمة
    fileName = CurrentProject.Path & "\SCM_Copy_Structure.txt"
    fileNo = FreeFile
    
    Open fileName For Output As #fileNo
    
    On Error Resume Next
    ' محاولة الوصول للقائمة المخصصة التي أنشأتها
    Set cmb = CommandBars("SCM_Copy")
    
    If cmb Is Nothing Then
        MsgBox "لم يتم العثور على القائمة المعنية!", vbCritical
        Close #fileNo
        Exit Sub
    End If
    
    ' كتابة تفاصيل القائمة الرئيسية
    Print #fileNo, "=== Custom Menu: " & cmb.Name & " ==="
    Print #fileNo, "Type: msoBarPopup"
    Print #fileNo, "-----------------------------------"
    
    ' المرور على كافة الأزرار والخيارات داخل القائمة واستخراج خصائصها
    For Each ctrl In cmb.Controls
        Print #fileNo, "Control Caption: " & ctrl.Caption
        Print #fileNo, "Control Type: " & ctrl.Type
        Print #fileNo, "On Action (الوظيفة المرتبطة): " & ctrl.OnAction
        Print #fileNo, "FaceID (أيقونة الزر): " & ctrl.FaceId
        Print #fileNo, "-----------------------------------"
    Next ctrl
    
    Close #fileNo
    MsgBox "تم استخراج هيكل الدالة والقائمة بنجاح في ملف نصي بجانب قاعدة البيانات!", vbInformation
End Sub

 

[jo_2010]

17 ساعات مضت, AMINYOUSIF said:

الاستاذ / @kkhalifa1960    @jjafferr  @jo_2010  

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

مع الحافظ على جميع ادوات النموذج   لا .........وكمان عاوزينة بماكرو  .......  طيب ممكن من غير ماكرو   

                        اختصارا مرفقى عبارة عن جزء من الادوات التى اعتبرتها عملية من وجهة نظرى ( مع كامل احترام للملف الاصيلى )

  و تلبى احتياجاتى البسيطة 

لم اقدم اى  جديد و لكن هو مزيج من كل الاعمال بداية من الاخت/ زهرة  مرورا بالاستاذ @صالح حمادي و ختاما الاخ @kkhalifa1960

ا

Print_ToolBar _2 _ test .rar 145.67 kB · 9 downloads

شكرا وفقك الله

[jjafferr]

9 ساعات مضت, Foksh said:

وبديل عن شريط أدوات التقارير

البرمجة مثل الطبخ ، هناك عدة طرق للطبخ ، وانا هذه طبختي لهذا الموضوع 

قد تكون مشاركتي مخالفه بوضع مادة تختلف عن طلب صاحب السؤال ، ولكنها بديل.

 

9 ساعات مضت, ابوخليل said:

ولكن لنفترض اني عملت دالة خاصة على هذه الصفة .. وضاع مني الأصل .. واريد التعديل عليها

هذه الفكرة لم تخطر على بالي 

7 ساعات مضت, ابوخليل said:

سألت الذكاء الاكتروني فأعطاني هذا الكود .. واعتبره هندسة عكسية

لم اجربه بعد على اعتبار اسم الدالة المضافة :  SCM_Copy

لم يعطني الكود كاملا بحيث اعمل نسخ/لصق.

 

 

انا تعمّدت عدم وضع الكود الذي عملت به القائمة المختصرة ، حتى يعرف المستخدم ان الكود غير ضروري لنسخ القوائم المختصرة بين قواعد البيانات.

ان شاء الله سأفتح موضوع جديد تكملة لموضوعي السابق عن القائمة المختصرة (باقي اشياء بسيطة ، حتى اغطي اكبر كمية من الاختيارات) ، واحاول ايجاد كود يُرجع القائمة المختصرة الى ملف نص.