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

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

قام بنشر (معدل)

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

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

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

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

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

Untitled.png

Database2.accdb

تم تعديل بواسطه ابوخليل
تعديل العنوان ..
  • أفضل إجابة
قام بنشر

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

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

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

تحياتي

  • Like 2
قام بنشر

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

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

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

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

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

 

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

قام بنشر

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

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

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

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

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

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

 

 

 

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

تحباتي

  • Thanks 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information