مساعدة في عدم قبول تسجيل التاريخ الا وفق ضوابط خاصة

[AboBahaa]

السلام عليكم أخواني الكرام 

وضعت مثال للنموذج بالقاعدة لدي

المطلوب هو الموضح بالصورة المرفقة

كذلك اذا كانت الفكرة ما واضحة ويوجد فكرة افضل على الرحب والسعة 

لكم جزيل الشكر 

Database2.accdb

تم تعديل أغسطس 6, 2021 بواسطه ابوخليل
تعديل العنوان ..

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

Private Sub nihayat_altarkhis_Exit(Cancel As Integer)

    If [aintiha alsijil] > [nihayat altarkhis] Then
             DoCmd.CancelEvent
            MsgBox "التاريخ اكبر من التاريخ المطلوب"
     ElseIf [nihayat aldaman albankii] > [nihayat altarkhis] Then
            DoCmd.CancelEvent
            MsgBox "التاريخ اكبر من التاريخ المطلوب"
    End If

End Sub

Database72.rar

تحياتي

[AboBahaa]

أخي @محمد أبوعبدالله

شكرا لك وبارك الله فيك 

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

شكرا للمرة الثانية 

أرفقت النموذج لاستفادة الغير 

 

Private Sub nihayat_altarkhis_Exit(Cancel As Integer)

    If [aintiha alsijil] < [nihayat altarkhis] Then
             DoCmd.CancelEvent
            "عذرا تاريخ نهاية السجل التجاري قبل نهايةالترخيص"MsgBox
     ElseIf [nihayat aldaman albankii] < [nihayat altarkhis] Then
            DoCmd.CancelEvent
            "عذرا تاريخ نهاية الضمان البنكي قبل نهاية الترخيص"MsgBox
    End If

End Sub

Database72.accdb

[AboBahaa]

أخي الكريم  @محمد أبوعبدالله

إخواني الكرام 
عند التجربة بإدخال التاريخ بنهاية الترخيص والذي ينتهي تاريخه سواء بعد انتهاء تاريخ السجل التجاري او الضمان البنكي تظهر رسالة التنبيه عند الانتقال سواء لخانة أخرى او للطباعة وهنا الامر طبيعي

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

والمراد لطفاً

هو عند الغاء المستخدم رسالة التنبية يتم الحذف التلقائي للتاريخ المدخل بنهاية الترخيص

ملحوظة الرجاء عند التجربة الغاء التاريخ بنهاية الترخيص وكتابة نفس التاريخ لتلاحظ نفس الملاحظة 

 

 

 

Database72.accdb

[محمد أبوعبدالله]

9 دقائق مضت, AboBahaa said:

والمراد لطفاً

هو عند الغاء المستخدم رسالة التنبية يتم الحذف التلقائي للتاريخ المدخل بنهاية الترخيص

تفضل اخي الكريم

    If [aintiha alsijil] < [nihayat altarkhis] Then
'             DoCmd.CancelEvent
             Me.nihayat_altarkhis = Null
            MsgBox "عذرا تاريخ نهاية السجل التجاري قبل نهايةالترخيص"
     ElseIf [nihayat aldaman albankii] < [nihayat altarkhis] Then
'            DoCmd.CancelEvent
            Me.nihayat_altarkhis = Null
            MsgBox "عذرا تاريخ نهاية الضمان البنكي قبل نهاية الترخيص"
    End If

Database72.accdb

تحباتي