السلام عليكم
عندي كود يعمل على تنبيه تاريخ واحد لكن لم استطيع التعديل عليه وانا عندي ثلاث توايخ اريد ان اضع لها تنبيهات
تاريخ انتهاء قسيمة السيارة و تاريخ انتهاء مراقبة التقنية وتاريخ انتهاء الضمان اجتماعي
ها هو الكود والقاعدة المرفقة
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