المساعدة في تعديل كود رسالة التنبيه

[hane75]

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

مرفق الملف

الجزء الاول - عند فتح نموذج 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

[صالح حمادي]

السلام عليكم

نضيف هذا التعديل إلى الكود الذي إستعملته:

Else
DoCmd.OpenForm "تسجيل البلاغات"
DoCmd.Close acForm, "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"
Else
DoCmd.OpenForm "ÊÓÌíá ÇáÈáÇÛÇÊ"
DoCmd.Close acForm, "a"
End If

End If

و هذا المرفق بعد التعديل

متابعة صيانة القوالب .rar