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