السلام عليكم
اريد التعديل على هذا الكود رسالة تنبيه
عند الضغط على نعم يفتح نموذج
وعند الضغط على لا يفتح نموذج اخر
مرفق الملف
الجزء الاول - عند فتح نموذج A تظهر رساله تنبيه عند الضغط على نعم يفتح نموذج A
الجزء الثاني : وعند الضغط على زر لا فتح نموذج ( تسجيل البلاغات )
الجزء الاول شغال اوكى متبقي الجزء الثاني
Dim intStore As Integer
intStore = DCount("[المعرف]", "[جدول تسجيل البلاغات]", "[end_d] is null")
'intStore = DCount("[ID]", "[A]", "[end_date] <=Date()+5 AND [check] =-1 ")
If intStore = 0 Then
Exit Sub
Else
If MsgBox("يوجد " & intStore & "بلاغات " & _
"لم يسجل لها تاريخ اصلاح او لم يتم انجازها " & vbCrLf & vbCrLf & _
" " & _
" هل تريدالمعاينة الآن؟ " & _
" ", vbYesNo Or vbExclamation Or vbDefaultButton1, _
"تنبيه") = vbYes Then
DoCmd.OpenForm "a"
End If
End If
End Sub
سجل متابعة صيانة القوالب.rar