مكتبة الموقع - أداة إنشاء المخططات المخصصة بإستخدام عنصر تحكم المتصفح {سلسلة الأدوات المساعدة المخصصة}

[منتصر الانسي]

اعرض الملف

أداة إنشاء المخططات المخصصة بإستخدام عنصر تحكم المتصفح {سلسلة الأدوات المساعدة المخصصة}

---

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

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

لا أريد أن أطيل عليكم فكل ما تريدون معرفته ستجدونه ضمن المرفقات حيث تحتوي على مستند وورد يشرح كل شيء وكل ما اريده منكم هو قراءة المستند وإستخدام النسخة التوضيحية لمعرفة طريقة العمل 

تحياتي

---

• صاحب الملف
  منتصر الانسي
• تمت الاضافه
  07/04/26
• الاقسام
  قسم الأكسيس

 

[Moosak]

شكرا لك أخي منتصر على إثرائك للمكتبة العربية 🙂 سلمت يمناك وكثرت مغانمك ورزقك الله ومن تحب العافية ..

 

يبدوا أن هناك مشكلة ما تظهر عند محاولة فتح صفحات ال HTML ..

وهذا يحصل عند كل الصفحات .. ولا يتم استعراض المخططات إلا عند الضغط على زر [ معاينة وطباعة المخطط ] فقط .. !!

[منتصر الانسي]

5 ساعات مضت, Moosak said:

يبدوا أن هناك مشكلة ما تظهر عند محاولة فتح صفحات ال HTML ..

غريب لم تظهر لي هذه المشكلة أبداً

عندي إقتراح أرجو تجربته قم بحذف عنصر تحكم المتصفح الحالي وإنشاء عنصر تحكم جديد كما بالصورة

وتسميته بالإسم wbChart ثم إعمل تصحيح Debug للتعليمات البرمجية وجرب هل سينجح أم لا

 

 

[Foksh]

ما شاء الله عمل جميل ، وتحديث أجمل أخي منتصر ..

اعتقد أن المشكلة هي باختلاف اصدارات الآكسيس ، فما دون 2021 يواجه مشكلة عند عرض صفحات HTML تحتوي أكواد جافا سكريبت ...

 

8 دقائق مضت, منتصر الانسي said:

غريب لم تظهر لي هذه المشكلة أبداً

ما إصدار الأوفيس الذي تم انتاج هذا العمل الجميل عليه ؟؟

 

[منتصر الانسي]

5 دقائق مضت, Foksh said:

ما إصدار الأوفيس الذي تم انتاج هذا العمل الجميل عليه ؟؟

أوفيس 365 ولكني كنت قد جربته على أوفيس 2010

هل نجح العمل عندك أخي @Foksh ام لا؟

تم تعديل يوليو 5 بواسطه منتصر الانسي

[Foksh]

5 دقائق مضت, منتصر الانسي said:

هل نجح العمل عندك أخي @Foksh ام لا؟

للأسف لأ ..

جربت على اصدار 2019 و 2010

[منتصر الانسي]

19 دقائق مضت, Foksh said:

للأسف لأ ..

أعتذر منكم ياشباب لم أكن أعرف أنها لن تعمل على بقية الإصدارات

وأعتذر أيضاً أني قلت لكم أني جربتها على أكسس 2010 فقد حصل عندي لبس فالأداة التي جربتها هي أداة أخرى أقوم بإعدادها وهي أيضاً تعتمد على عنصر نحكم المتصفح ولكنها تعمل على الإصدارين 2010 و 365 بدون أي مشاكل وبصراحة هذا الشيء أراحني قليلاً لأن الأداة التي أقوم بتجهيزها تطلبت مني الكثير من العمل لتبسيط العمل بها ولو أن مجرد التفكير في كم التعليمات التي أريد شرحها يشعرني بالإحباط 

 

[Foksh]

لا عليك أخي منتصر ..

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

من باب تجربتي الشخصية في المختبر ، أيضاً انا اعتمدت على الجافا سكريبت والكلاسات في لغة HTML لبناء التفاعلات والتأثيرات الحركية . لكني جعلت الآكسيس يقوم ببناء الصفحة نفسها وتضمين جميع الأكواد السكريبت ... إلخ داخل الـ VBA نفسه . وبالتالي تحكمت في الأمور إلى حد لمنع هذه الأخطاء التي كنت أثق بأنها ستنتج مع اختلاف إصدارات آكسيس ..

 

وإن كان لي مداخلة - لاحقاً - بمحاولة بسيطة ، فهذا يسعدني

[منتصر الانسي]

2 دقائق مضت, Foksh said:

وإن كان لي مداخلة - لاحقاً - بمحاولة بسيطة ، فهذا يسعدني

ياريت

[Foksh]

طيب حتى لا تتوه مني الأفكار ، وأن لا نذهب الى توسع في التعديل . جرب ما يلي أخي منتصر :-

في صفحتي الـ HTML في مشروعك ، قم بإضافة السطر التالي فقط لتحديث محرك المتصفح في آكسيس :-

<meta http-equiv="X-UA-Compatible" content="IE=edge">

تحت السطر :-

<meta charset="UTF-8">

ليصبحا :-

<head>
	<meta charset="UTF-8">
	<meta http-equiv="X-UA-Compatible" content="IE=edge">

فالسطر وظيفته ببساطة أنه عندما تضعه في أعلى الصفحة ( داخل الـ <head> ) ، فأنت تعطي أمراً صريحاً للمتصفح المدمج في أكسيس تقول له : "توقف عن استخدام محرك IE7 القديم ، واستخدم المحرك إنترنت إكسبلورر المتوفر على نظام ويندوز هذا" 😅

وهذه كانت إحدى محاولاتي بتضمين عنصر Web من الإصدارات الحديثة داخل إصدارات أوفيس 2010 - 2019 .. ولكن الموضوع خرج من يدي لأن به تشعب وتعقيد كبير ، وأضاع مني وقتاً كبيراً في المحاولات . ناهيك عن إتلافي نسخة الأوفيس في جهازي أكثر من مرة 😂 .

تم تعديل يوليو 5 بواسطه Foksh

[Moosak]

58 دقائق مضت, Foksh said:

في صفحتي الـ HTML في مشروعك ، قم بإضافة السطر التالي فقط لتحديث محرك المتصفح في آكسيس

حقا كنت أتسائل كيف استطعت تشغيل صفحة تشغل الجافا سكريبت على متصفح الأكسس القديم مع علمي أنه لا يدعم الجافا ولا ال css .. والآن إنكشف السر 😅

 

ولكن مع حالة ملف العزيز @منتصر الانسي الغريب أنني أستخدم النسخة 365 ومع ذلك لا تعمل معي .. !! 🤷‍♀️

[Foksh]

2 دقائق مضت, Moosak said:

الآن إنكشف السر

لقد كُشِف أمرنا يا عزيزي 

3 دقائق مضت, Moosak said:

ولكن مع حالة ملف العزيز @منتصر الانسي الغريب أنني أستخدم النسخة 365 ومع ذلك لا تعمل معي 

لا اعلم السبب ، ولكن بعد إضافة السطر يعمل معي بنجاح على الإصدارين 2010 , 2019

[منتصر الانسي]

22 دقائق مضت, Foksh said:

لا اعلم السبب ، ولكن بعد إضافة السطر يعمل معي بنجاح على الإصدارين 2010 , 2019

 

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

قمت بتحديث الملف بعد التعديل

أرجو من الأخ @Moosak تنزيل الملف الجديد وتجربته وإفادتنا إذا إشتغل أم لا

ألف شكر أستاذ فادي (ياخي تخلي الواحد يتمنى لو درس برمجة )

 

تم تعديل يوليو 5 بواسطه منتصر الانسي

[Foksh]

6 دقائق مضت, منتصر الانسي said:

ألف شكر أستاذ فادي (ياخي تخلي الواحد يتمنى لو درس برمجة )

ولوو .. العفو أخي منتصر ، هذا قليل مما عندكم صدقني ..

وللعلم دراستي ليست البرمجة إطلاقاً  وبعيدة كل البعد عنها .. ولكن هي ثمرة محبتي لهوايتي 😉

[منتصر الانسي]

40 دقائق مضت, Foksh said:

وللعلم دراستي ليست البرمجة إطلاقاً  وبعيدة كل البعد عنها .. ولكن هي ثمرة محبتي لهوايتي 😉

معقول ؟؟؟  الله يسامحك أحبطتني 😅

عموما بالإضافة إلى الحل المقدم من الأخ فادي قمت بإضافة مرفق للتعديل في الريجستري لتحديث رقم إصدار المتصفح الخاص بأكسس ليناسب العمل مع الأداة ويعمل كما في الصورة المتحركة التالية

إن شاء الله الآن يعمل معك أخي @Moosak بدون مشاكل

تم تعديل يوليو 5 بواسطه منتصر الانسي

[Foksh]

19 دقائق مضت, منتصر الانسي said:

معقول ؟؟؟  الله يسامحك أحبطتني 😅

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

 

وفي فكرتك التي تقدمت بها كحل ، وقد أعجبني فعلاً .إلا أنني أذهب إلى الطريق المباشر دائماً وبأقل الموارد إن استطعت ودون الإعتماد على مكتبات الويندوز ؛ ذهبت لإستغلال WScript.Shell مباشرة من الويندوز ..

لذا جرب في زر جديد ودون الحاجة لأي مديولات أو مساعدات الحدث التالي :-

Private Sub cmd_ApplyChanges_Click()
    Dim objShell As Object
    Dim regKey As String
    Dim currentValue As Variant
    
    regKey = "HKCU\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\msaccess.exe"
    Set objShell = CreateObject("WScript.Shell")
    
    On Error Resume Next
    currentValue = objShell.RegRead(regKey)
    On Error GoTo 0
    
    If IsEmpty(currentValue) Or currentValue <> 11001 Then
        objShell.RegWrite regKey, 11001, "REG_DWORD"
        MsgBox "تم ترقية محرك متصفح الأكسيس إلى IE11 بنجاح" & vbCrLf & "يرجى إعادة تشغيل النموذج لتطبيق التغييرات", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "اكتمل التحديث"
    Else
        MsgBox "جهازك محدث بالفعل ومحرك المتصفح يعمل بأعلى كفاءة (IE11) . لا حاجة لأي تعديل", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "الوضع سليم"
    End If
End Sub

 

ولتجربة حذف التعديلات من الريجستري :-

Private Sub cmd_RemoveHack_Click()
    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")
    
    On Error Resume Next
    objShell.RegDelete "HKCU\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\msaccess.exe"
    On Error GoTo 0
    
    MsgBox "تم إلغاء التعديل وعاد المتصفح لوضعه الافتراضي", vbInformation + vbMsgBoxRight, "نجاح"
End Sub

 

[Moosak]

36 دقائق مضت, منتصر الانسي said:

إن شاء الله الآن يعمل معك أخي @Moosak بدون مشاكل

الصورة تتكلم 😊👌


ولكن عندي سؤال .. ما الداعي لهذه الخطوة ؟؟ أليس من الأفضل أن تكون تلقائية ؟! 

[jjafferr]

السلام عليكم

 

لا ادري اذا هذا الموضوع سيساعد في شيء !!

 

[منتصر الانسي]

22 ساعات مضت, Moosak said:

ولكن عندي سؤال .. ما الداعي لهذه الخطوة ؟؟ أليس من الأفضل أن تكون تلقائية ؟! 

هذا الإجراء يقوم بالتحقق من إصدار عنصر تحكم المتصفح الخاص بأكسس فإذا كان أقل من الإصدار 10 (الإصدار الذي يمكنه التعامل مع ملف chart.js) يقوم بتحديثه وإلا فلن يقوم بأي شيئ هذا معناه أننا لن نحتاج إلى تنفيذه إلا مرة واحدة فقط فلماذا نقوم بإضافة تعليمات برمجية تقوم في كل مرة نفتح فيها النموذج بالتحقق من إصدار المتصفح ؟

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

لا ادري اذا هذا الموضوع سيساعد في شيء !!

أنا متابع لموضوع Better-Access_Charts منذ بداياته وحتى الإصدار الأخير 4.29.01 وكنت قد فكرت بالتعديل عليه وتعريبه ولكن واجهتني بعض العقبات مثل

- لو ترجع إلى أول أداة كنت قد رفعتها ضمن هذه السلسلة فإن أهم أسباب إنشائها هو منح المستخدم العربي أدوات يسهل التعامل معها وبدون أي معرفة واسعة في البرمجة وفي هذه الأداة ورغم أنه قد تم فيها تسهيل جميع خيارات المخطط إلا خيار مصدر البيانات وطريقة تحديد حقول التجميع وحقول القيم

- كذلك كان من أهم أسباب إنشاء السلسلة هو أن تكون عملية دمجها ضمن التطبيقات الأخرى سهلة ولكن في Better-Access_Charts فإن من يرغب الإستفادة منها يجب عليه إستيراد (24 فئة ووحدة نمطية + نموذجين يمكن دمجها لتصبح نموذج واحد)

- لا أخفيك اني قد فكرت في هاتين المشكلتين وأعتقد أنه يمكن إيجاد الحلول لها ولكن المشكلة التي جعلتني اصرف النظر عنها هو شرط أن يكون هناك إتصال بالانترنت رغم انه يوجد خيار لاستخدام الملفات المحلية إلا أنها لا تنجح إلا بعد تنفيذ العمل عن طريق ملفات CDN لمرة واحدة على الاقل عدم التعامل معها للأسباب المعروفة للجميع

تحياتي

انا مازلت ابحث عن اسباب وحلول هذه المشكلة واذا توصلت لحل فوعد مني أن أقوم بالعمل عليه وضمة في السلسة

اما المثال الآخر Web Charts فمشكلته أنه يستعمل عنصر تحكم المتصفح ActiveX ومن الافضل عدم التعامل مع عناصر التحكم من هذا النوع للأسباب المعروفة للجميع

تحياتي

تم تعديل يوليو 6 بواسطه منتصر الانسي