Moosak

وعليكم السلام ورحمة الله وبركاته .. 🙂 أخفي رمز الاستجابة السريعة .. وضع زر لإظهاره .. والزر يفتح مربع إدخال يطلب كلمة المرور فإذا كانت صحيحة يظهرلك رمز الاستجابة ..

منذ فترة كنت عملت هذا المخطط الذي يبسط فهم عمل العلاقات بين الجداول المتسلسلة .. 🙂

يمكنك تعديل القناع كما تشاء ، مثلا أن تضع الحرف على اليمين أو على اليسار .. ولكن في الغالب أن البرنامج يلزمك بالكتابة من اليسار لليمين.. ولا أعلم إن كانت هناك طريق لعكس الاتجاه !! هذا عندما يكون لديك مقطع ثابت سيكتبه البرنامج تلقائيا كما هو .. مثل حرف الـ X لديك .. إن كان حرفا ثابتا لا يتغير فيمكنك كتابته بين علامتي تنصيص في القناع هكذا : "X" وبعدها تكتب الأصفار

وعليكم السلام ورحمة الله وبركاته 🙂 يمكنك الاستعانة بهذا الجدول لعمل قناع إدخال بيانات حسب المطلوب : وحسب سؤالك فأعتقد أن هذا هو القناع المناسب : طبعا هذا القناع إما أن تضعه في خانة قناع الإدخال للحقل في النموذج : أو أن تضعه في خانة قناع الإدخال للحقل في الجدول.

ضع هنا أحد ملفات mdb الخاصة بك لفحصه في النسخ الجديدة 🙂 من واقع تجربة أحيانا لا تعمل البرامج المصممة في نسخ 2003 - 2007 .. وفي الأغلب أن النسخ المصممة في النسخ الحديثة من 2010 وما بعدها لا تعمل في النسخ من 2007 وما قبلها . نصيحتي لك : أنتقل إلى نسخة 365 أو مابعد 2016 مثلا ، فأنت على بعد 20 سنة من التطور والتقنية والتحديثات التي تم تطويرها في البرنامج 🙂

وعليكم السلام ورحمة الله وبركاته أخي أحمد 🙂 المواضيع التي تتكلم عن هذا الموضوع كثيرة جدا في المنتدى ويمكنك البحث عنها في خانة البحث .. لكن أعرض عليك طريقتي الخاصة في الإخفاء من خلال هذا الفيديو :

الملف موجود ، حمله من هنا وليس من الرابط الذي بالأسفل :

وعليكم السلام ورحمة الله وبركاته 🙂 استخدم التنسيق الشرطي لتلوين الحقل في حال كانت قيمة الحقل تساوي ""

شكرا جزيلا لك 🙂 هدية مقبولة 🌹

العفو أخي العزيز 🙂 🌷 خذ لك لفة هنا بعد 😊👇🏻 :

أهلا بك أخي أمين 🙂 (تم فصل الموضوع والإشارة للموضوع الأصلي للتنظيم ) 🙂 أولا : تم إصلاح الملف .. ثانيا : بشرح مبسط الفكرة تعتمد على مسميات الأزرار .. فالكود يتعرف على الأزرار الرئيسية والأزرار التابعة لها حسب تسمية الزر .. هكذا حسب الصورة التالية : لذلك في حال الزيادة أو النقصان إنتبه لتسلسل التسميات حسب النمط المتبع 🙂 صفحة رئيسية مطورة (1).rar

تفضل 🙂 New Microsoft Access Database (1).accdb

الدالة DSum يمكنك استخدام دالة DSum لحساب إجمالي مجموعة من القيم في مجموعة محددة من السجلات (مجال (المجال: مجموعة من السجلات المعرفة بواسطة جدول أو استعلام أو تعبير SQL. تعيد وظائف تجميع المجال المعلومات الإحصائية حول مجال محدد أو مجموعة من السجلات.)). استخدم الدالة DSum في Visual Basic أو وحدة ماكرو (ماكرو: إجراء أو مجموعة إجراءات يمكنك استخدامها لتنفيذ المهام بصورة تلقائية. وتسجّل وحدات الماكرو في لغة البرمجة Visual Basic for Applications.) أو تعبير استعلام أو عنصر تحكم محسوب (عنصر تحكم محسوب: عنصر تحكم يستخدم في نموذج أو تقرير أو صفحة وصول إلى البيانات لعرض نتيجة تعبير. يُعاد حساب النتيجة في كل مرة يحدث تغيير في قيمة من القيم التي يستند إليها التعبير.). على سبيل المثال، يمكنك استخدام الدالة DSum في تعبير حقل محسوب في استعلام لحساب المبيعات الإجمالية التي قام بها موظف معين خلال فترة زمنية. أو يمكنك استخدام الدالة DSum في عنصر تحكم محسوب لعرض إجمالي مبيعات جارية لمنتج معين. بناء الجملة DSum(expr, domain, [criteria]) تحتوي الدالة DSum على الوسائط التالية. الوسيطة الوصف expr عبارة عن تعبير يحدد الحقل الرقمي الذي تريد حساب إجمالي القيم الموجودة به. قد يكون تعبير سلسلة (تعبير سلسلة: أي تعبير يقيّم إلى تتابع من الأحرف المتتالية. ويمكن لعناصر التعبير أن تتضمن: دالات تُرجع سلسلة أو سلسلة Variant ‏(VarType 8)‏‎؛ سلسلة أحرف، أو ثابت، أو متغير، أو (Variant. يحدد حقلاً في جدول أو استعلام أو قد يكون تعبيراً يقوم بعملية حسابية على البيانات الموجودة بهذا الحقل. في expr، يمكنك تضمين اسم حقل في جدول أو عنصر تحكم على نموذج أو ثابت أو دالة. إذا تضمن expr دالة، فقد تكون إما مضمنة أو محددة من قبل المستخدم، ولا تكون دالة تجميع مجال آخر أو دالة تجميع SQL. domain تعبير من سلسلة أحرف يحدد مجموعة السجلات التي تمثل المجال. قد يكون اسم جدول أو اسم الاستعلام الذي لا يتطلب معلمة. criteria تعبير من سلسلة أحرف اختياري يتم استخدامه لتقييد نطاق البيانات التي يتم تنفيذ الدالة DSum عليها. على سبيل المثال، تساوي criteria العبارة WHERE في تعبير SQL، بدون الكلمة WHERE. في حالة حذف criteria، تقوم الدالة DSum بتقييم expr على المجال بالكامل. ويجب أن يكون أي حقل مضمن في criteria حقلاً في domain؛ وإلا ستقوم الدالة DSum بإرجاع Null (قيمة خالية ((خالية: قيمة يمكنك إدخالها أو استخدامها في تعبيرات أو استعلامات للإشارة إلى البيانات المفقودة أو غير المعروفة. تشير الكلمة الأساسية خالية إلى القيمة خالية. لا تحتوي بعض الحقول مثل حقول المفاتيح الأساسية على القيمة خالية.(. تنويهات في حالة عدم وجود أي سجل لا يلبي متطلبات الوسيطة criteria أو إذا كان المجال لا يحتوي على سجلات، تقوم الدالة DSum بإرجاع Null. وسواءً كنت تستخدم الدالة DSum في وحدة ماكرو، أو وحدة نمطية، أو تعبير استعلام، أو عنصر تحكم محسوب، يجب تكوين الوسيطة criteria بعناية للتأكيد على أنه سيتم التقييم بصورة صحيحة. يمكنك استخدام الدالة DSum لتحديد المعايير في الصف "المعايير" لاستعلام، في حقل محسوب في تعبير استعلام، أو في الصف "تحديث إلى" في استعلام تحديث (استعلام تحديث: استعلام إجرائي (عبارة SQL ) التي تغير مجموعة السجلات تبعاً للمعايير (شروط البحث) التي تحددها.). ملاحظة يمكنك استخدام إما الدالة DSum أو Sum في تعبير حقل محسوب في استعلام إجماليات (استعلام إجماليات: استعلام يعرض اختصار لعملية حسابية، مثل المعدل أو المجموع، لقيم في حقول متنوعة من جدول أو جداول. ولا يُعد استعلام الإجماليات نوع استعلام منفصل، بل أنه يتعدى مرونة استعلامات التحديد.). في حالة استخدام الدالة DSum، يتم حساب القيم قبل تجميع البيانات. إذا قمت باستخدام الدالة Sum، يتم تجميع البيانات قبل تقييم تعبير القيم الموجودة في الحقل. قد تحتاج إلى استخدام الدالة DSum إذا أردت عرض إجمالي مجموعة القيم من حقل غير موجود في مصدر السجل للنموذج أو التقرير الخاص بك. على سبيل المثال، نفترض أن لديك نموذجاً يعرض معلومات حول منتج معين. يمكنك استخدام الدالة DSum للاحتفاظ بإجمالي مبيعات جارية لهذا المنتج في عنصر تحكم محسوب. تلميح إذا أردت الاحتفاظ بمجموع تراكمي في عنصر تحكم على تقرير ما، يمكنك استخدام الخاصية المجموع_التراكمي الخاصة بعنصر التحكم هذا إذا كان الحقل الذي يستند إليه العنصر مضمناً في مصدر السجل للتقرير. استخدم الدالة DSum للاحتفاظ بالمجموع التراكمي على نموذج ما. ملاحظة لا يتم تضمين التغييرات التي تتم على السجلات الموجودة في domain "المجال" عند استخدام تلك الدالة. إذا أردت إسناد الدالة DSum على القيم التي تم تغييرها، يجب أولاً حفظ التغييرات بواسطة النقر فوق حفظ السجلات في القائمة سجلات، مع نقل التركيز إلى سجل آخر، أو بواسطة استخدام الأسلوب Update. ولتسهيل كتابة الدالة استخدم هذه الأداة 🙂 :

👍🏻

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

وعليكم السلام ورحمة الله وبركاته .. 🙂 يمكنك تنفيذها عن طريق استعلام تجميعي .. ثم تقوم بتحويله لنموذج فرعي في النموذج الرئيسي : ملاحظة مهمة : - وجدت أنك سميت الحقول بأسماء محجوزة للأكسس ( Date - Name ) فبدلتها إلى ( MyDate - MyName ) .. 🖐🏻 Database4.accdb

دكتور @الحلبي سأحاول تبسيط المسألة لك بأبسط شرح ممكن أن تحصل عليه 🙂 * لكي يعمل عندك البرنامج على النواتين في نفس الوقت ... في الأغلب أنت ستحتاج تغيير نوع محدد من الأكواد .. وهي الأكواد التي تأتي كلمة ......... Declare ............. في سياقها .. لكي يعمل الكود على النواة 32 يكتب الكود هكذا : .....................................Private Declare Function ولكي يعمل الكود على النواة 64 يتم إضافة كلمة واحدة وهي ptrsafe بعد كلمة Declare فيصبح الكود هكذا : ................................... Private Declare ptrsafe Function ولكي تجمع بين هذين الخيارين من أجل أن يعمل البرنامج على الأجهزة المختلفة مهما كانت النواة يتم كتابتهما معا هكذا : #If VBA7 And Win64 Then 'For :64 Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #Else 'For :32 Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #End If وهذا هو مختصر المختصر 🙂

أنت مبدع يا باش مهندس @ابو جودي 😀👌 وأنا طبعا ما قدمت إلا لمسات بسيطة والجهد كله من إبداعاتك يا فنان 😎🌹 ربنا يوفقك ويبارك فيك 👐🏻

للعلم تم عمل تحديثات جديدة للواجهة : قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية بناءا على طلب بعض الإخوة 🙂 كما تم إضافة خاصية إمكانية فتح الماكرو للأزرار .. وكذلك مع إمكانية فتح النماذج والتقارير في وضع التكبير Maximize .. وهذه صورة للوحة التحكم : ملاحظة : تم تحديث رابط التحميل في المشاركة الأولى 🙂

تفضل أخي قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية 🙂 وهذه لوحة التحكم : ملاحظة : تم تحديث رابط التحميل في أول مشاركة 🙂

وعليكم السلام ورحمة الله وبركاته .. 🙂 الأفضل أن ترفق ملفك يابو الحسن علشان يتأكد الإخوة أنه حيضبط على ملفك صح ..

فيه عندك حاجة اسمها الإرتساء الأفقي والإرتساء الرأسي .. ممكن تتحكم فيه بموقع العنصر ( يمين - يسار - كلاهما ) والإرتساء الرأسي ( للأعلى - للأسفل - كلاهما ) هذا ينطبق على جميع العناصر في النموذج .. جرب تضبطها بنفسك 🙂 النتيجة : ( ويمكنك نقل الأيقونات أيضا إلى اليسار ) 🙂 Modern Main Page With Main Menu ENGLISH.rar

أنظر هنا : 🙂

لله درك يا أبو جودي 🙂 إحنا ما لحقنا نفهم الأكود السابقة إلا ونلقاك غيرت التشكيلة الداخلية 😂🖐🏻 نحتاج سنة ثانية علشان نستوعب الصدمة الجديدة .. 👊🏻 فن وروعة وإبداع ما يكفوش لوصف هذي التحفة الفنية الفريدة 😊 بس باقي حتة ملاحظات صغننين وإن شاء الله تكون الأخيرة 😅✋🏻: في عندنا شح في (الواوات) هنا 😁 مثلا هذي في تفقيط الرقم : ألف (و) واحد .. ألفان (و) واحد محتاجة مسافة ==> عمانيبيسة ==> ومحتاجة واو بينهم الفواصل => صفر و صفر (و) واحد. معلش إستحملنا اليومين دول ( دا احنا واقفين لك وحنطلع عينك يا راجل ) أمااااااااااااااااااااااال 😂

أسأ الله العظيم رب العرش العظيم أن يمن بالرحمة والغفران على جميع موتاكم وموتى المسلمين وأن يلبسكم ووالديكم وذويكم لباس الصحة والعافية.. يا الله يا رب العالمين 🙂👐🏻 أحسنت وأبدعت وأتقنت باش مهندس عمر .. موضوع جميل ويفتح بوابة لآفاق أوسع ما كنا نحسبها ممكنة في السابق .. 😊 فعلا العالم يتغير 😉👌🏻