Create A function Module.

On Error GoTo Err_Delete_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Delete_Click:
    Exit Sub

Err_Delete_Click:
    MsgBox Err.Description
    Resume Exit_Delete_Click
   
End Sub

Function Close1()
    DoCmd.Close
End Function

Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is loaded.

    Const conDesignView = 0
    Const conObjStateClosed = 0

    IsLoaded = False
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If

End Function

Create A Form of Worker Area Ware

Private Sub AreaCode_Change()
If AreaCode.Value = "MA" Then
Label6.Caption = "Manager"
End If
If AreaCode.Value = "SE" Then
Label6.Caption = "Second Officer "
End If
If AreaCode.Value = "CM" Then
Label6.Caption = "Center Manager"
End If

Creat A Input Form.

Private Sub Result_Click()

If Me.Sing.Value = "-" Then
Me.Results.Value = Me.InputN - Me.Inputs
Me.Results.Visible = True
End If

Created A LogOn Form.

Private Sub Form_Open(Cancel As Integer)
Form.DataEntry = True
End Sub

--------------------------------------------------------------------------------------------------------------

Private Sub Form_Timer()
Me.Label8.Caption = Time()
Me.Label8.Width = 1000
Me.Label8.Height = 1500

Create A Certificat Form

Private Sub AreaCod_Enter()
Me.AreaCod.Value = Me.AreaCode.Value
End Sub
Private Sub BranchNameof_Enter()
BranchNameof.Value = BranchName
If Combo18 = "cÖv_wgK" Then
examc.Value = 1
End If
If Combo18 = "gva¨wgK" Then
examc.Value = 3
End If
If Combo18 = "D”P gva¨wgK" Then
examc.Value = 4
End If

Create A Preview Report Form.

Private Sub EntryDate_LostFocus()
Me.AreaCode.Requery
End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub Form_Load()
On Error GoTo err_Load
CNG.Value = False
Form.InsideWidth = 4590
Form.InsideHeight = 3100
'ÕMe.Preview.ControlTipText = Time()
err_Load:
End Sub

---------------------------------------------------------------------------------------------------------------

Private Sub Form_Timer()
Me.TimerInterval = 2500
Me.Detail.BackColor = Rnd * 12632256

End Sub

Made A Salary Change to Leave Form.

Private Sub AreaCode_Enter()
Label48.BorderColor = 4227072
Label48.BorderStyle = 0
Label48.SpecialEffect = 0
Label48.BackColor = 12632256
Label48.BorderWidth = 0
Label48.FontName = "SutonnyMJ"
Label48.FontSize = 13
If AppDate.Value <> 0 Then
Label48.Caption = "cieZ©x‡Z wZwb " & AppDate + 1097 & " Bs Zvwi‡L Av‡e`b Ki‡Z cvi‡eb|"
Me.sflfBranchCode.Value = (Me.BranchCode)
Me.AmountofSalary.Value = (Me.Amount.Value)
Me.MatuDate.Value = (Me.AppDate.Value + 1097)
End If
If IsNull([AppDate]) Then
Label48.Caption = "*** Av‡e`‡bi ZvwiL Gw›Uª †`Iqv nq bvB|"
End If