• 0
nacer_alger

تنبيهات في التواريخ منتهية

سؤال

السلام عليكم

عندي كود يعمل على تنبيه تاريخ واحد  لكن لم استطيع التعديل عليه  وانا عندي ثلاث توايخ اريد ان اضع لها تنبيهات

تاريخ انتهاء قسيمة السيارة و تاريخ انتهاء مراقبة التقنية وتاريخ انتهاء الضمان اجتماعي

ها هو الكود والقاعدة المرفقة

 


Private Sub Form_Open(Cancel As Integer)
DoCmd.Restore
Dim IntExp As Integer

IntExp = DCount("[Code Véhicule]", "[Allarm]", "[Prochain révision a] <date() ")


    If IntExp = 0 Then
            Exit Sub
                Else
                If MsgBox("vous avez " & IntExp & " date A expiré vous voulez voir maintenants" & " Vignettet Contrôle technique Assurancee", vbYesNo, "des date experimer") = vbYes Then
                    DoCmd.Minimize
                    DoCmd.OpenForm "Allarm", acNormal
                    
                Else
            Exit Sub
        End If
    End If
End Sub

 

 

 

allarm2.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .