طلب مساعدة في كود تكرار رسالة كل ساعة ,

[sdomdo44]

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

 

Private Sub Form_Load()
DoCmd.Maximize
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.SetWarnings (Off)
'select the navigation pange
Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
'hide the selected object
Call DoCmd.RunCommand(acCmdWindowHide)

If DCount("[Emp_Name]", "qry_Matured_License") > 0 Then
MsgBox "You Have" & " " & DCount("[Emp_Name]", "qry_Matured_License") & " " & "Expired License!", vbInformation, "You Have "
DoCmd.OpenForm "frm_Notification", acNormal, , , , acWindowNormal
Else


End If

End Sub

 

[Moosak]

ضع هذا الجزء من الكود في حدث عداد الوقت :

If DCount("[Emp_Name]", "qry_Matured_License") > 0 Then
MsgBox "You Have" & " " & DCount("[Emp_Name]", "qry_Matured_License") & " " & "Expired License!", vbInformation, "You Have "
DoCmd.OpenForm "frm_Notification", acNormal, , , , acWindowNormal
Else
End If

واجعل قيمة الفاصل الزمني لعداد الوقت = 3600 لكي تظهر كل ساعة

و = 7200 لكي تظهر كل ساعتين.

[sdomdo44]

مايضبط معي تقدر تكتبه بالحدث 

[Moosak]

ضع المرفق ..