منتصر الانسي

قمت بتعديل الملف وتم تنفيذ المطلوب ولكني وجدت مشكلة لم أعرف مصدرها فعندما كانت القيمة الإفتراضية في الجدول محددة برقم 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

يبدو أنك قمت إما بالتعديل على الوظيفة الإضافية مباشرة وبالتالي لن يتم حفظ التعديلات أو قمت بالتعديل على الملف الأساسي ولم تقم بإعادة إنشاء الوظيفة الإضافية مرة أخرى لأني طبقت الخطوات ونجحت معي سأرفق لك الملف بعد التعديل قم بفتحه وأنقر زر Addin ثم اغلقه وافتح تطبيقك وافتح الوظيفة الإضافية لتجد أنه سيتم إظهار النموذج والتقرير كما بالصورة التالية إسمح لي أخي @Foksh بملاحظة المشكلة لم تكن في أن جداول النظام مخفية أو في نوع مصدر البيانات بل كانت في أن الوظيفة الإضافية كانت تقرأ من جدول MSysObjects الخاص بها وليس الجدول الخاص بالملف المضيف لذلك فبعد إذنك قمت بتعديل الكود الخاص بك مع إضافة التعليقات لتوضيح الأمر بالشكل التالي Private Sub Form_Load() Dim strHostPath As String Dim strSQL As String 'تحديد مسار الملف المضيف strHostPath = CurrentProject.FullName 'بناء جملة الإستعلام عن النماذج والتقارير الخاصة بالملف المضيف strSQL = "SELECT Name, IIf(Type=-32768,'نموذج','تقرير') AS ObjType " & _ "FROM MSysObjects IN '" & strHostPath & "'" & _ "WHERE Type In (-32768,-32764) And Left(Name,1)<>'~' " & _ "ORDER BY Type, Name;" 'تعيين خاصية مصدر الصف للقائمة بالإستعلام هذا Me.List_Objects.RowSource = strSQL End Sub وإذا فتحت خصائص مربع القائمة ستجد أني لم أقم بتغيير مصدر الصف أو نوع مصدر الصف كذلك ستلاحظ أني قمت بالإستغناء عن السطر الخاص بإستبعاد النموذجين FrmMain و FrmAssignMenu (أقصد السطر التالي) "AND Name Not In ('FrmMain', 'FrmAssignMenu') " & _ وذلك لسببين الأول لأن النموذجين سيكونان موجودان في الوظيفة الإضافية فقط ولن يظهرا في مربع القائمة أما السبب الثاني فحتى لايتم إستبعاد إي نماذج في الملف المضيف وتحمل نفس الإسم (خصوصاً FrmMain فالكثير يسمي النموذج الرئيسي بهذا الإسم) شاكراً لك كل مابذلته من جهد في هذه الأداة القيمة ولا غنى عنها بحق تحياتي Menu Builder.accdb

طالما أن النموذج هو نموذج فرعي فهذا معناه أنه مرتبط بالنموذج الرئيسي بحقل وبالتالي يمكنك أن تجعل الأمر الذي يقوم به الزر هو إدراج سجل جديد يحتوي قيمة الحقل المرتبط ثم تحديث النموذج الفرعي ولكن ولأن المثال الذي ارفقته لايحتوي على جدول رئيسي وجدول فرعي فقد قمت بوضع حل يناسب هذا الوضع هذا الحل سيكون مناسبأ سواء كان النموذج هو نموذج مستقل أو نموذج رئيسي أو فرعي تم توضيح وظيفة كل سطر بالتعليقات تحياتي 12 (6).accdb

عمل أكثر من رائع

صحيح أن الأخ أحمد قد أفاد بإنتهاء المشكلة ولكني فضلت أن أجيب عن بعض الإسئلة حتى يصبح هذا الموضوع كمرجع متكامل يغطي أكبر قدر من التساؤلات حول شريط القائمة المختصرة السؤال الأول كان سنعيد صيغة السؤال ليصبح كيف يمكن الإستفادة من بعض الأوامر من قوائم مختصرة موجودة في قائمة مختصرة جديدة؟ - للقيام بذلك سيتم أولاً إنشاء قائمة مختصرة جديدة بإسم Printing بنفس الطريقة التي تم شرحها في المشاركة السابقة - نقوم بسحب وإفلات الأوامر من المطلوبة من كل قائمة مختصرة إلى القائمة الجديدة كما بالصورة الطلب الثاني كان يمكن حذف القوائم الفرعية بطريقتين الطريقة الأولى وتنفذ في أكسس 2003 فقط وهي عن طريق تحويل القائمة المختصرة إلى ToolBar أو Menu Bar ثم حذفها بشكل طبيعي كما بالصورة الطريقة الثانية ويمكن تنفيذها من أي إصدار من إصدارات أكسس وهي بإستخدام أمر VBA التالي CommandBars("اسم_القائمة_المراد_حذفها").Delete وهنا لن تحتاج إلى تغيير توع القائمة تحياتي

في أكسس 2003 العملية أسهل حيث يمكن إنشاء وتعديل القوائم مباشرة بالخطوات التالية أنقر بالزر الايمن على شريط الادوات وحدد تخصيص ستفتح لك نافذة قم بالخطوات كما هو محدد بالصورة عند النقر على موافق سيظهر لنا شريط فارغ كما بالصورة الآن نقوم بإضافة الأزرار المطلوبة كما بالصورة المتحركة التالية في هذا الوضع يكون الشريط هو من نوع قائمة أدوات أو Tool Bar أي أنه يمكن أن إستخدامه كقائمة في شريط الأدوات وليس كقائمة مختصرة وحتى نحولها لقائمة مختصرة نقوم بتنفيذ الخطوات كما في الصورة التالية ستظهر لنا نافذة منبثقة ومن قائمة النوع نحدد (منبثقة) كما بالصورة بعد أن نختار هذا الخيار سنلاحظ أنه تم إلغاء تفعيل جميع الخيارات بالاسفل ماعدا خيار إمكانية التخصيص (والذي إذا قمت بإلغائه فلن تتمكن من إضافة أو تعديل أي عناصر في القائمة) بعد أن حولنا القائمة إلى قائمة منبثقة سنلاحظ إختفاؤها من قائمة أشرطة الأدوات ولكي نظهرها فيجب علينا تحديد قائمة الأدوات (القوائم المختصرة أو Shortcut Menus) كما بالصورة ليظهر لنا شريط بالقوائم المختصرة وما يهمنا هنا هو آخر قائمة وهي قائمة Custom أو مخصصة والتي عند النقر عليها ستظهر لنا جميع أشرطة القوائم المختصرة ولكن نظراً لأنه لايوجد إلا شريط واحد فسيكون هو الوحيد الظاهر كم في الصورة من هنا وبالنقر بالزر الأيمن على أي عنصر يمكننا تعديل التسميات أو إضافة العناصر بنفس الطريقة الموضحة في الصورة المتحركة أعلاه (سحب وإفلات) أو حذف العناصر بالنقر بالزر الأيمن وإختيار حذف كما بالصورة عند الإنتهاء من كل التعديلات سنحصل على النتيجة التالية عندها نقوم بإغلاق نافذة التخصيص كما بالصورة الآن لو فتحنا أي تقرير في وضع التصميم سنجد أن القائمة ستظهر في الخصائص وإذا فتحناه في وضع المعاينة ونقرنا بالزر الأيمن سنحصل على هذه النتيجة الان يمكننا إستيراد هذه القائمة من أي تطبيق آخر بدون عناء إنشاء وتعديل قائمة جديدة وهكذا نكون قد إنتهينا من خطوات إنشاء وتعديل القوائم في أكسس 2003 أما في الإصدارات الأحدث فإن القوائم يتم إنشاؤها بإستخدام الكود ولو إطلعت على الأداة التي كنت قد رفعتها في هذا الموضوع ستجد الطريقة أرجو أن يكون الشرح واضح تحياتي

طالما وهذا طلبك جرب القائمة في الملف المرفق وهي معي منذ أن كنت أعمل على أكسس 2003 تحياتي Shortcut Menu.mdb

روووعة من طبعه الكرم يعطي بزيادة كان طلبي أداة ربط الجداول فكان الرد كنز من الأدوات ألف ألف شكر أخي @Moosak وأضم صوتي لصوت الأخ @jjafferr الف تحية لأبناء عمان

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

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

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

هذا يمكن حله بتعديل خاصية Size Mode للصورة بدل Zoom إجعلها Stretch أما فيما يخص العمل ككل فلا غبار ولكني رأيت أن فرض حفظ الصورة على المستخدمين فكرة لن يحبذها الجميع لذلك فكرت أن أعطي التطبيق مرونة أكثر ليناسب أغلب المستخدمين إن لم يكن جميعهم لذلك وبعد إذن الأخ @Foksh قمت بإضافة نموذج فيه أربعة أزرار لفتح التقرير في أربع حالات 1- فتح التقرير بدون حفظ للصور 2- حفظ الصور بدون فتح التقرير 3- فتح التقرير مع حفظ جميع الصور عند الفتح 4- فتح التقرير مع حفظ الصور بشكل فردي أثناء التنقل من وجهة نظري أن هذه هي جميع الخيارات التي قد يحتاجها أي مستخدم لذا يمكن لأي شخص الإستفادة مما جاء في التعديل لتطبيق الخيار الذي يفضله ولو كان بإمكان الأخ @Foksh إضافة هذه الخيارات كمعلمة لإختيار أحدها وتنفيذ الأمر مباشرة سيكون أفضل تحياتي QR_Barcode - 4.accdb

بالحل المقدم من الأخ @Foksh ينطبق المثل "قطعت جهيزة قول كل خطيب"

أعاده الله علينا وعليكم وجميع المسلمين بالخير واليمن والبركات وماحاجتك إلى تكبير الصورة الخارجية ؟؟؟ هذه هي الأبعاد التقريبية للبطاقة 8×5 سم كذلك فأن قراءة الباركود من بطاقة مطبوعة يختلف عن القراءة من الشاشة حيث أنك تقوم بتقريبها إلى جوار قارئ الباركود ولكن إذا قمنا بتكبير الصورة الخاصة بالكود ستغطي على البيانات فمثلا قمت بتعديل أبعاد الصورة الخاصة بالـ QRCode لتصبح 2×2 سم وهذه كانت النتيجة عموما بإمكانك أنت تعديل أبعاد الصورة حسب رغبتك تحياتي

بعد إذن الاخ @mohahje قمت (وبإلاستعانة بالذكاء الصناعي أكيد 😅) بتعديل الكود للحصول على الـ QRCode بلون أسود وخلفية بيضاء كذلك وتنفيذاً لطلب الاخ @jjafferr تم إضافة الكود الخاص بتنفيذ نفس العملية ولكن للحصول على Code128 ارفق لكم ثلاثة ملفات أكسس كالتالي 1 - الملف QR_barcode SubReport يتم فيه تطبيق الحل الخاص بالاخ @jjafferr بإستخدام التقارير الفرعية 2 - الملف QR_barcode Transparent يتم فيه تطبيق الحل الخاص بالاخ @jjafferr بإستخدام الصورة الشفافة 3 - الملف QR_barcode Bmp Images يتم فيه تطبيق الكود الخاص بالأخ @mohahje تم تطبيق الحلول الثلاثة على نفس صورة الخلفية حتى يتم تجربة كل الحلول في نفس الظروف ومقارنتها من حيث سرعة الأداء وتضخم حجم قاعدة البيانات عند زيادة حجم البيانات ارجو من الجميع تجربة الثلاثة ملفات وإبداء أي ملاحظات للتوصل إلى أفضل حل تحياتي BarcodesReports.rar

إسمحوا لي بأن أدلو بدلوي في هذا الموضوع بحيث لن أكون متفائل كالأخ @mohammed farhat او متشائم كالأخ @Foksh وأنما أقدر أقول أكثر واقعية الآن إذا ما رجعنا للغاية التي تم من أجلها إنشاء منتديات أوفيسنا وموفع مجموعة مستخدمي أكسس نجد أن أوفيسنا حاله كحال جميع المنتديات العالمية مثل منتدى Microsoft Access Help Center لن تجده يركز على العروض التقديمية لأنه في الأساس قد أنشئ ليجد فيه المستخدم المبتدئ ضالته عندما يريد التعلم أو إيجاد حل لمشكلة تواجهه لذا فستجد أن أغلب أعضاؤه إما أشخاص يطلبون معلومات أو حلول (المبتدئين) أو أشخاص (وهم الأكثر خبرة) يحاولون قدر ما أمكنهم الإجابة على هذه التساؤلات وأغلب أعضاء المنتدى هم من الهواة أي أنهم غير دارسين للبرمجة بل تجد أغلبهم إما معلمين أو محاسبين أو إداريين أي أن تخصصاتهم العلمية هي تخصصات مالية أو إدارية وليست برمجة والأهم من كل هذا أن القائمين على المنتدى هم أشخاص يقومون بعمل تطوعي لايرجون منه إلا الثواب والاجر من الله. على الجانب الآخر فنجد أن موقع مجموعة مستخدمي أكسس هو موقع عالمي (مهمته الأساسية هي العروض التقديمية عبر النت) وهذا يعني (أن القائمين عليه يعملون بدوام جزئي أو كامل) وعالبية أعضائه (خصوصاً من يقدمون هذه العروض) هم من المطورين الذين يقومون بتطوير منتجات مايكروسوفت أو من الحاصلين على لقب MVP من مايكروسوفت لذلك ستجد أن المواضيع التي يقدمونها هي مواضيع إما أنها تختص بالتحديثات المستقبلية التي تقوم بها مايكروسوفت أو مواضيع متقدمة تهم الأشخاص الأكثر خبرة وإحترافية فلو رجعنا الى الموقع او حتى للقائمة التي ذكرها الاخ محمد ستجد أن المواضيع تناقش خارطة طريق تحديثات اكسس أو إستخدام الذكاء الصناعي مع اكسس أو ربط أكسس مع SQL Server... إلخ لذلك عندما نجد أن هناك مبادرات مثل هذه المبادرة أو مثل مبادرة الأخ @Moosak فيجب علينا تشجيعها ودعمها ولكن في نفس الوقت لانتوقع أن يتم التفاعل من جميع الأعضاء فهناك من سيكون غير متفرغاً في وقت العرض ومنهم من لن يكون مهتم بموضوع العرض وعدد لابأس منهم لن يستوعبوا الموضوع لأن مستواه أعلى من إمكانياتهم .... وغيرها من الأسباب ولكن في الأخير (وهذه أهم نقطة يجب التركيز عليها) سنكون قد ربحنا مادة علمية ستكون مرجعاً هاماً وباللغة العربية لكل باحث يريد أن يتعلم أكسس . خلاصة القول والذي أريد إيصاله أنه يمكننا البدء بإنشاء آلية عمل تشبه التحديات الشهرية ولكن بطريقة عكسية فبدل أن يتم ترشيح المواضيع سيقوم كل من يجد نفسه قادراً على إعداد مادة علمية لموضوع معين (أو أكثر) بإنشاء منشور للإعلان عن هذا الموضوع والتاريخ والوقت الذي سيتم فيه العرض وعلى كل من يجد في نفسه الرغبة المشاركة في الحضور أن يبدي رغبته عن طريق الرد على هذا المنشور وإذا رأى صاحب المنشور أنه قد حصل على العدد الكافي يقوم بتأكيد الموعد وطريقة المشاركة مالم فيتم إغلاقه وبهذا يوفر على نفسه التعب والإحباط .