منتصر الانسي

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

أوفيس 365 ولكني كنت قد جربته على أوفيس 2010 هل نجح العمل عندك أخي @Foksh ام لا؟

غريب لم تظهر لي هذه المشكلة أبداً عندي إقتراح أرجو تجربته قم بحذف عنصر تحكم المتصفح الحالي وإنشاء عنصر تحكم جديد كما بالصورة وتسميته بالإسم wbChart ثم إعمل تصحيح Debug للتعليمات البرمجية وجرب هل سينجح أم لا

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

اخي الكريم المشكلة كانت في أن المراجع ناقصة لذا إفتح محرر الأكواد ومن قائمة Tools إختر أول خيار References وقم بتحديد المراجع الناقصة لتصبح قائمة المراجع عندك مطابقة لهذه القائمة ومن خلال المثال الذي قمت بإرفاقه فإن المراجع الناقصة هي آخر مرجعين ملاحظة : الرقم 16 سيتغير بحسب نسخة أوفيس لديك أما مايخص طلبك الثاني فسبب ظهور كلمة Error هو أن دالة Dlookup لانجد رقم في حقل ref_client لذلك فكل ماعلينا هو أن نجعلها تتنفذ في حال وجود رقم عموماً قمت بإجراء التعديل على ملفك وأعدت رفعه هنا لمراجعته وفحص التعديلات تحياتي Ste E G P.rar

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

اخي الكريم من حيث الإمكانية فهو ممكن ولكن سيقتصر عمل الأكسس على الواجهة الأمامية فقط أما قاعدة البيانات فستكون إحدى قواعد البيانات الكبيرة مثل SQL Server أو Azure أو MySQL بالإضافة إلى أنه سيكون مطلوب منك موقع لإستضافة قاعدة البيانات وإنترنت مستقر لكن السؤال لماذا تريد لإستخدام أكسس للعمل عبر النت مع وجود لغات برمجة متخصصة للويب؟ فكما جاء في الحديث النبوي {"كل ميسر لما خلق له" صدق رسول الله} والأكسس هو منصة لإنشاء تطبيقات قواعد بيانات بسيطة لبيئة أعمال صغيرة إلى متوسطة الحجم ضمن شبكة محلية أما الربط عبر النت فحتى ولو كان سيعمل فلن يعمل بنفس كفاءة التطبيقات المصممة بلغة متخصصة في تطبيقات الويب مثل جافا سكريبت و HTML مثلاً

خاصية Auto Resize (تقريباً ستكون تغيير الحجم تلقائيًا في النسخة العربي) ضمن خصائص النموذج

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

لم أقوم بأي شيئ إضافي سوى أنني كررت الامر الخاص بحدث Click للزر إلى حدث MouseMove 'هذا حدث النقر على الزر Private Sub Commande50_Click() SouSouMenu End Sub 'MouseMove وهذا حدث Private Sub Commande50_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) SouSouMenu End Sub

شاهد المرفق internet.rar

صراحة لم أفهم قصدك !!! هل تقصد أنك تريد تكرار العملية لزر آخر غير زر (Suivi Vente) ؟ عموما إذا كنت تقصد زر آخر غير زر (Suivi Vente) فيمكنك إستخدام نفس الـ Module أو إنشاء واحد جديد ولكن أهم شرط في الحالتين هو إستخدام أسماء فريدة لكل إجراء بمعنى عدم تكرار التسميات التالية (Mouvementcompany و OpenForm1 و OpenForm2 و ...... و OpenForm14) وكآلية عمل يمكنك تنفيذها يمكنك تمييز كل قائمة بكلمة معينة فمثلاً القائمة الجاهزة هنا نميزها بالكلمة (SouSou) فإذا إحتجنا لقائمة أخرى نقوم بنسخ هذه القائمة ونقوم ببحث وإستبدال لكلمة SouSou وتعديلها بكلمة أخرى تعبر عن القائمة الجديدة هكذا ستحصل على قائمة بدون أي مجهود ولن يتبقى عليك إلا إستبدال أسماء النماذج والتسميات قد يكون الشرح بتطبيق عملي أفضل لذلك قمت بتعديل المثال كالتالي - أعدت تسميات الإجراءات والتسميات الحالية لتمييزها بكلمة (SouSou) - قمت بعملية نسخ ولصق لكل الإجراءات في نفس الوحدة النمطية ثم بحث وإستبدال لكلمة (SouSou) وتعديلها بكلمة (Retour) لكل ما تم نسخه ثم عدلت أسماء النماذج في كل إجراء إلى أسماء النماذج التي تبدأ بحرف C ستلاحظ أني لم أحتاج إلا إلى 8 إجراءات فقط - قمت بعملية نسخ ولصق للقائمة الأولى مرة أخرى ولكن تم اللصق في Module جديد ثم بحث وإستبدال لكلمة (SouSou) وتعديلها بكلمة (Recette) ثم عدلت أسماء النماذج في كل إجراء إلى أسماء النماذج التي تبدأ بحرف D ستلاحظ أني هنا إحتجت لإضافة إجراء جديد لفتح النموذج الاخير الآن ستظهر القائمة الأولى عند النقر على الزر (Suivi Vente) والقائمة الثانية مع الزر (Retour) والثالثة مع الزر (Recette) تم تحديد الازرار كمثال فلغتي الفرنسية صفر كملاحظة أخيرة يمكنك الان تعديل التسميات الخاصة بعناصر القوائم الثلاث وكذلك يمكنك نقل القائمة الثالثة إلى نفس الوحدة النمطية للقائمتين الأخريين ارجو أن يكون الشرح قد وضح لك طريقة العمل بحيث أصبح بإمكانك إنشاء قوائم أو تعدبلها تحياتي internet.rar

الحقيقة أني لا أستطيع فتح الموقع إلا بإستخدام VPN (ولا أعرف أسباب الحجب؟؟؟) ولكن طالما أني إستطعت فتح الموقع عبر المتصفح لماذا لم يستطيع أكسس ؟

تفضل قمت بتعديل المثال لينفذ طلبك الان كل ما عليك هو فتح الوحدة النمطية Module1 وتعديل المسميات "SouSou1-SouSou2-SouSou3-....SouSou14" إلى أي أسماء ترغب بها تحياتي internet.rar

ياسلام عليك أخي @Moosak مثل عوايدك لاتقدم إلا كل ماهو مفيد لكن مع الأسف هذه الأداة لم تعمل معي وتظهر لي هذه الرسالة مع العلم أني قد إستخدمت مفتاح API الخاص بالأخ موسى ومفتاح آخر قمت بإنشائه وفي الحالتين تظهر نفس الرسالة وكنت أريد أن أسأل بقية الأخوان حل واجه أحدهم هذه المشكلة مثلي أم لا؟

إسمح لي أخي @ابوخليل أن أوضح هذه النقطة عندما يتم تعريف المتغيرات بالكلمة المفتاحية Const فإننا نقوم بتعريف قيمة ثابتة غير قابلة للتعديل إلا عن طريق الدخول إلى محرر VBE وتعديلها ولن نستطيع التعديل من النموذج سواء كانت متغيرات خاصة أو عامة أما مسألة أني جعلتها معلمات للإجراء نفسه فذلك لجعله مختصراً وأكثر مرونة فلو إفترضنا أن المتغيرات كانت عامة على مستوى النموذج فعند إستدعاء الإجراء سنضطر إلى كتابة أمر الإستدعاء بالشكل التالي MY_FONT = cboFonts MY_SIZE = txtFontSize ROW_HEIGHT = txtRowHeight * 567 Call ApplyGlobalFormatting حيث أنا سنقوم أولاً بتعيين قيمة لكل متغير ثم إستدعاء الإجراء أما عندما جعلنا المتغيرات كمعلمات للإجراء فإن أمر إستدعاء الإجراء أصبح بالشكل التالي Call ApplyGlobalFormatting(cboFonts, txtFontSize, txtRowHeight * 567) وأنا أطبق هذا الأسلوب دائماً لسهولته تخيل أننا نحتاج إلى إستدعاء إجراء أو دالة ما لأكثر من مرة وبمعلمات مختلفة فبدل أن نحتاج إلى 5 او 6 أسطر لكل إستدعاء سنكتفي بسطر واحد في الأخير مهما إختلفت طرق الحل لكنها تؤدي إلى نفس النتيجة وكما يقول المثل كل الطرق تؤدي إلى روما تحياتي

عفواً أخي @ابوخليل أنا حبيت أسهل الأمر على الأخ صاحب الموضوع فقد قال أن الكود ناجح ولا يريد إلا هذه الإضافات فوضعتها له في مثال يحتوي الحد الأدنى التعديلات التي سيقوم بتنفيذها على تطبيقه لتجربتها أما موضوع إحتواء البيانات في التقرير فلا أعتقد أن الكود له دخل بهذا الموضوع لانه سيقوم بتعديل حجم الخط بغض النظر عما إذا كان مناسباً أم لا أليس كذلك؟

قمت بالإستفادة من كود أحد الأمثلة في المنتدى وعدلت الإجراء ليعتمد على المعلمات بدل القيم الثابتة ستجد في المرفق ملف يحتوي على نموذج ووحدة نمطية قم بإسترادهما إلى تطبيقك وفتج النموذج ستجد فيه مربعات لتحديد القيم المطلوبة وبالنقر على زر (تنفيذ الإجراء) يفترض أن يتم تعميم القيم المحددة فيما يخص قيم (حجم الخط و الإرتفاع) قمت بتحديد القيم بالنطاق (من 7 الى 72) لحجم الخط لإن حجم أصغر من 7 أراه غير منطقي لأن النص سيصبح غير مقروء والرقم 72 هو الحد الأقصى لحجم الخط في أكسس ولست متأكداً من أنه يقبل رقم أعلى من 72 نفس الشيئ للإرتفاع فإرتفاع أقل من 4 ملم سيكون صغيرا جداً وإرتفاع أكبر من 1.4 سم سيكون كبيراً جداً ولكن في الأخير لك حرية تعديل القيم بصراحة أنا لم أجرب تنفيذ الأمر لذلك لا أدري إذا كانت ستظهر أي أخطاء فإذا ظهرت أي أخطاء يرجى إعلامنا بها تحياتي Fonts.accdb

لو كنت ركزت على كلامي كنت ستجد أني كنت قد وضحت لك أن التعديلات ستكون في عبارة If وحدث فتح النموذج ولكنك قمت بالتعديل الأول وتجاهلت الثاني وهو التعديل الذي يقوم بقراءة القيمة الإفتراضية المحفوظة عموما هذا ملفك الاخير بعد التعديل تحياتي Lab_small.rar

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

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

قام الاخ @Foksh مشكورا بحل المشكلة ولكن يتبقى على الاخ @jo_2010 مسح خاصية القيمة الإفتراضية لمربع النص في النموذج

سأعطيك مثال عملي كنت قد إطلعت على مثال أجنبي لشركة سكة حديدية (حاولت البحث عنه ولم أجده) المهم أنه كان من ضمن التقارير تقرير يقوم برسم مسار كل رحلة من أين تبدأ والمحطات التي ستمر عليها وصولاً للمحطة الأخيرة ولكن الرسم كان يتم بإستخدام وظيفة line لذا كانت الخيارات محدودة ولكن لو إستخدمنا هذه الأداة بأن أقوم بإدخال الإحداثيات بنفس طريقة العمل فيها لرسم مسار أي رحلة أقوم بتحديدها من مربع قائمة مثلاً أو أن يحتوي التقرير صفحة لكل رحلة وهكذا ستكون الخيارات لامحدودة في طريقة الرسم فنستطيع مثلا تمييز المحطات بحسب نوعها وإضافة إسم كل محطة ......... إلخ كما قلت الخيارات لامحدودة هناك مثال آخر ورد بذهني حيث يمكن تعيينها كخلفية مائية للتقارير ليتم رسم النص (رسما ً وليس كتابة) ليظهر بشكل مائل ويتغير حسب الطلب كهذه الامثلة الخيارات مفتوحة المهم هو إمكانية عمل هذه الأداة مع بقية الكائنات أرجو أن أكون قد وضحت لك الفكرة