منتصر الانسي

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

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

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

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

هل تقصد أن تكون إفتراضية في مربع النص (التي يؤشر عليها السهم رقم 1) أم في مربع الحوار (التي يؤشر عليها السهم رقم 2) وفي الحالتين ماهي القيمة الافتراضية التي تريدها؟

هذا هو التطبيق الفعلي لإتقان العمل

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

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

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

طلبك غير واضح الان نحن نقوم بإستيراد الاكسل الى جدول tblTempImport ثم يتم ترحيل البيانات الى الجدول tbl_Horaire أو tbl_Horaire2 الان ماهو طلبك هل تريد ترحيل بيانات الملف الثاني إلى جدول tblTempImport بدون حذف بيانات الملف الأول منه ام تريد أن يتم إلحاق السجلات إلى الجدول tbl_Horaire أو tbl_Horaire2 بدون حذف البيانات السابقة ماهو الطلب بالضبط؟

السبب كما ذكره الاخ @Moosak فإن الحركة هذه تحدث نتيجة ظهور واختفاء شريط التمرير بينما في نسخة 2003 وماقبلها فإن الشريط لايختفي أساساً واعتقد بأن مطوري أكسس لم ينتبهوا لهذه المشكلة لأنها لم تظهر لهم فلو عدلنا خاصية الإتجاه الخاصة بالنموذج الفرعي وبدلا من خيار من اليمين لليسار نجعله من اليسار إلى اليمين وهذا هو الوضع الإفتراضي للنسخة الإنجليزية تنحل المشكلة كما تري في الصورة فرغم أن الشريط يظهر ويختفي بسلاسة ولاتحدث تلك الحركة التي تشتكي منها وأرفق لك المثال للتأكد تحياتي db.mdb

لايوجد فرق بين الإصدارات المهم ماهو الإصدار الذي تعمل به فطالما أنك تعمل في اكسس 2024 فستظهر لك نفس البيئة سواء كان الملف الذي تفتحه mdb او accdb حاولت تعديل الملف ليعمل في 2003 وكانت هذه هي النتيجة سنجد هنا أن الأزرار لم تظهر كما يجب أن تكون عليه ولكن لو فتحت نفس الملف في اكسس 2024 ستظهر بشكل طبيعي ارفق لكم الملف لمن يحب أن يجربه Menu Builder 2003.rar