عندي مسج بوكس ابي الرسالة تتكرر كل ساعة او ساعتين
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
