اذهب الي المحتوي
أوفيسنا

كيف عمل تحديث حقل تاريخ باكود


شاهر

الردود الموصى بها

عيدكم مبارك وكل عام وانتم بخير

لدي سؤال كيف استطيع تحديث حقل تاريخ في جدوال باضافة علي التاريح الحالي سنه

وذك عند حدث نقر زار امر اى بكودتحديث وليس استعلام

سؤل ثاني لدي نموذج رئيسي به نموذج فرعي يتم ادخال سجل مرتبطه بنموذج الرئيسي مختلفة البيانات واريد عند ادخال كلمة انذار نهائي للموظف اريد ان تخروج رساله تنبيه

بنه قد سبق ادخال أنذار نهائي للموظف المذكور

مع خالص التقدير والاحترم لتعاونم معناء

اخوكم : شاهر

رابط هذا التعليق
شارك

بالنسبة للسؤال الثاني

جرب هذا الكود وضعه في حدث بعد التحديث للحقل المطلوب

If FieldName.Value = "انذار نهائي" Then
        MsgBox "سبق ادخال أنذار نهائي للموظف المذكور ", vbOKOnly, "رسالة تنبيه "
    End If

رابط هذا التعليق
شارك

الاخ العزيز التقني السلام عليكم ورحمة الله

الرساله صح لكن المطلوب ان كان قد سبق ادخل لهذا الموظف من سابق اظهارها اما ان كان

اول انذار نهائي فلا تظهر الرساله ولكنها تظهر عند كل عملية اضافة جزاء وان كان

اول نذار نهائي

رابط هذا التعليق
شارك

استاذي الكريم رضوان

ربما لم استطع التوضح من المطلوب وهوا ان تكون الرساله بعد الجزاء الثاني ويكون انذار نهائي

مع العلم بانه هناك عدة جزاءات تدخال للموظف مثل تنبيه / لفت نظر / انذار/ استدعاء حضور

وفي المثال المعدل تطلع الرساله عند اول جزاء

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

هذا هو الغرض من الرساله

تم تعديل بواسطه شاهر
رابط هذا التعليق
شارك

أخي قم بتعديل الكود بحيث تجعل الشرط أكبر من واحد بدلا من أكبر من صفر

أي استبدل السطر

If DCount("rty", "gez", "[no]=" & g) > 0 Then
ب :
If DCount("rty", "gez", "[no]=" & g) > 1 Then

تم تعديل بواسطه rudwan
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information