Hawiii

سؤال على الهامش: هل من يحضر على الوقت تماما أفضل من الذي يحضر قبل الدوام بساعة .. فكروا فيها وغير مطلوب الرد عليه. فأيهما يستحق أن نقول له "الوقت ممتاز" وأيهما نقول له "لا يوجد تأخير"؟!

طبعا المقصود الموضوع وليس صاحب الموضوع 🙂

تنقيذ مني "عمياني" حرفيا كما طلبت. test time4.rar

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

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

لم تلتزم بتعليماتي!! وضعت لك بعض الملاحظات في الكود وفي تصميم الجدول .. الرجاء قراءتها بتأمل. رجاءً عند وجود ملاحظات على النتائج اذكرها دون التعديل في الكود ودون الحاجة لإعادة رفع المثال. لو نقذت ما قلته لك منذ البداية لانتهى الموضوع سريعا .. حاول نسيان الكود السابق من طرفكم والتركيز على الجديد ولا داعي للمقارنة ودخولك في متاهات لا داعي لها. test time3.rar

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

لا بأس عليك أخي والحمد لله على سلامتك. في السطر : If Result < 1 Then بدل 1 إلى -1 أما الحقل من نوع وقت لا يقبل الوقت بالسالب ولا يقبل أكبر من 23:59 ، فالحل هو تحول الوقت (ناتج الطرح) إلى رقم بضربه في 24 وفي الصندوق غير المنضم فيه فكرة لتحويل الرقم بالسالب إلى ما يشبه نوع الوقت وهو فقط ليساعدك على المقارنة.

اكتشف التعديلات بنفسك وإذا عجزت عن فهما أخبرني وسأشرح لك. test time2.rar

سأحاول التفكير بصوت مرتفع 🙂 1 - محاولة أولى: أزل acHidden و أزل السطر الثالث لتستمتع برؤية تقرير الأكسس وبعد تصديره اقفله يدويا. 2 - محاولة ثانية: دع عنك خيارات المحاولة الأولى ثم احشر الأمر DoEvents بعد سطر فتح التقرير وقبل سطر تصديره أي سيكون ترتيبه الثاني بين الأربعة أسطر. أعتقد المشكلة أن أمر اغلاق التقرير يبدأ تنفيذه قبل اتمام معالجة التصدير. لا أستطيع الجزم.

لا ننسى أن كل أوامر التصميم للنماذج والتقارير وربما غيرها لن تعمل عند تحويل البرنامج إلى mde ، معلومة قديمة لدي ربما تغير الحال ، زودونا بأي معلومة تنقض معلومتي.

مثل ما عملنا في النموذج سنعمله في التقرير ، في خاصية قناع الإدخال input mask سنضع هذا القناع 00-00-0000

تم تحجيم حقل التاريخ1 إلى طول 8 حروف/أرقام تم وضع قناع إدخال للحقل نفسه المخالفات المرورية_Hawiii.rar

سأرجع لك الليلة إن شاء الله ، ولو فيه أحد من الأساتذة يسبقنى يكون أفضل حتى لا تتأخر. حسبت ما فهمت أنك تريد "تقويم أم القرى" وليس الهجري المعياري ، هل أنت في السعودية؟

لا تعطني سمكة بل علمني كيف اصطادها. أنزل المثال ثم خذ منه الموديول UmAlQura_Calendar وفيه دالتان: الأولى Greg2Um لتحويل التاريخ من الميلادي إلى أم القرى. والثانية Hijri2Text لتحويل اتجاه أم القرى (لم أجربها) جرب وأخبرنا .. الأمر بسيط.

النتيجة (أم القرى ، هجري ، ميلادي)

عملك ممتاز أخ حسام ، وأقترح أن يكون الـ Max لرقم الفاتورة أفضل من التاريخ ، فالتاريخ ممكن يكون فيه أخطاء ادخال.

إذا فهمت عليك بشكل صحيح ، لا تستخدم ألوان النظام حيث سيتبدل من جهاز لآخر حسب نظام الجهاز ، بل حدد اللون ليكون موحدا مع كل الأجهزة.

Private Sub dat2_AfterUpdate() Me.dat3 = DateSerial(Year(dat1) + 1, Month(dat1) - Me.dat2, Day(dat1)) End Sub

نسيت أنبهك لتعريف تنسيق/تحديد نوع الصناديق/المربعات لتجنب مشاكل التحويل وتجنب الحصول على نتائج غير متوقعة. PaymentDate, d1 , d2 تنسيق تاريخ و n1 تنسيق رقم.

حسب ما فهمت : Private Sub Command33_Click() Dim d3 As Date Dim nm As Byte 'NextMonth d3 = Me.PaymentDate nm = IIf(Day(d1) >= Day(d3), 1, 0) If Me.XFrame = 1 Then Me.d2 = DateSerial(Year(d1), Month(d1) + nm, Day(d3)) Else Me.d2 = DateSerial(Year(d1), Month(d1) + 1, Day(d1)) End If Me.n1 = d2 - d1 End Sub

مثال أجنبي قديم نشره أحد عمالقة الأكسس "أبو هاجر" في منتدى الأكسس بموقع الفريق العربي للبرمجة. ملف مدير النظام LogUsersOff_be.accdb يقوم فيه بتبديل قيمة حقل Logoff في الجدول Settings كل قواعد البيانات على الشبكة مربوطة بهذا الجدول للإختبار: - افتح نسخة مدير النظام وبدل قيمة الحقل إلى No ودعها مفتوحة. - ثم افتح نسخة المستخدم LogUsersOff.accdb ودعها مفتوحة. - ارجع لنسخة مدير النظام وبدل قيمة الحقل إلى Yes - ارجع لنسخة المستخدم وانتظر ، ستتلقى رسالة تنبيه ثم بعد مضي فترة المهلة ستقفل النسخة. - حاول تفتح نستخة المستخدم بعد أن آغلقت تلقائيا ، ستتلقى رسالة أن البرنامج تحت الصيانة. - لن يتمكن المستخدمون من فتح البرنامج حتى يبدل مدير النظام قيمة الحقل إلى No. جربوه. LogUsersOff.rar

أخي لا أعرف ما السبب ، أعتقد لو تطرح سؤالك في منتدى الوورد أفضل ، أنا لم أستخدم أكواد الـ VBA للوورد ولا أعرف طريقة الإختيار والإنتقال. - إذا كل النتائج تخرج على الخيار الأول فهناك خلل في مصدر الشهادة ، فدائما قيمتها "دبلوم عالي"!! - جرب تبدل الهاء آخر كلمة "دكتوراه" بتاء مربوطة. - ضع قبل كود case سطر فحص قيمة الشهادة للتأكد من القيمة مثل: MsgBox x.selection.insertafter.الشهادة Select Case x.selection.insertafter.الشهادة Case "دبلوم عالي" '... Case "ماجستير" '... Case "دكتوراة" '... End Select

ملاحظات: - هذه تسمى تعبير إف وليست دالة - قد يكون عتدك خطأ املائي فـ دكتوراة بالتاء المربوطة وليس بالهاء. - استخدم Select case أسهل وأوضح في الاستخدام مثل: Select Case x.selection.insertafter.الشهادة Case "دبلوم عالي" '... Case "ماجستير" '... Case "دكتوراة" '... End Select

استخدم دالة Replace مرتين ، مرة لإزالة "." والأخرى لتبيدل "," بـ "." Num = Replace(Num, ".", "") Num = Replace(Num, ",", ".") وتستطيع جمعهما في سطر واحد: Num = Replace(Replace(Num, ".", ""), ",", ".")