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

**منتصر الانسي** · بالامس في 18:32

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

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

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

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

تحياتي

صاحب الملف

منتصر الانسي
تمت الاضافه

07/04/26
الاقسام

قسم الأكسيس

**Moosak** · منذ 10 ساعات

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

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

image.png.393afd70c112ceeba008e830aa99c677.png

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

**منتصر الانسي** · منذ 5 ساعات

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

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

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

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

Untitled.jpg.d4ce0130243a46d8f6a1e4286da0b598.jpg

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

**Foksh** · منذ 5 ساعات

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

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

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

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

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

**منتصر الانسي** · منذ 5 ساعات

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

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

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

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

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

**Foksh** · منذ 5 ساعات

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

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

للأسف لأ ..

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

**منتصر الانسي** · منذ 4 ساعات

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

للأسف لأ ..

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

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

**Foksh** · منذ 4 ساعات

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

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

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

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

**منتصر الانسي** · منذ 4 ساعات

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

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

ياريت

**Foksh** · منذ 2 ساعات

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

في صفحتي الـ 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 .. ولكن الموضوع خرج من يدي لأنه به تشعب وتعقيد كبير ، وأضاع مني وقتاً كبيراً في المحاولات . ناهيك عن إتلافي نسخة الأوفيس في جهازي أكثر من مرة 😂 .

تم تعديل منذ 2 ساعات بواسطه Foksh

**Moosak** · منذ 1 ساعه

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

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

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

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

**Foksh** · منذ 1 ساعه

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

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

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

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

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

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

**منتصر الانسي** · منذ 1 ساعه

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

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

:clapping:

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

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

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

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

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

**Foksh** · منذ 1 ساعه

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

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

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

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

**منتصر الانسي** · منذ 45 دقائق

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

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

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

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

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

تم تعديل منذ 33 دقائق بواسطه منتصر الانسي

**Foksh** · منذ 17 دقائق

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

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

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

وفي فكرتك التي تقدمت بها كحل ، وقد أعجبني فعلاً . :clapping: إلا أنني أذهب إلى الطريق المباشر دائماً وبأقل الموارد إن استطعت ودون الإعتماد على مكتبات الويندوز ؛ ذهبت لإستغلال 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** · منذ 6 دقائق

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

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

الصورة تتكلم 😊👌
image.png.a47c42f5afcba46bee79930d169ac2ef.png

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

تسجيل الدخول

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

الردود الموصى بها

منتصر الانسي

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

Moosak

منتصر الانسي

Foksh

منتصر الانسي

Foksh

منتصر الانسي

Foksh

منتصر الانسي

Foksh

Moosak

Foksh

منتصر الانسي

Foksh

منتصر الانسي

Foksh

Moosak

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

انشئ حساب جديد

تسجيل دخول

محتوي مشابه

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

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

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

سؤال فى المخطط البيانى

تصفح هذا الموضوع مؤخراً 1 عضو متواجد الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information