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

Label48.Width = 3099.354
Label48.Height = 1002.381

End Sub

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


Private Sub AreaCode_LostFocus()
Me.sflfBranchCode.Value = (Me.BranchCode)
End Sub

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

Private Sub Close_Click()
On Error GoTo Err_Close_Click


    DoCmd.Close

Exit_Close_Click:
    Exit Sub

Err_Close_Click:
    MsgBox Err.Description
    Resume Exit_Close_Click
   
End Sub

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

Private Sub Form_Load()
Form.DataEntry = True
StaffIdLabel.Caption = "cwiwPwZ bs"
StaffNameLabel.Caption = "bvg"
DesCodelabel.Caption = "c`ex ‡KvW"
DesectionLabel.Caption = "c`ex"
AppDateLabel.Caption = "Av‡e`‡bi ZvwiL"
AmountLabel.Caption = "UvKvi cwigvY"
AmountinWordLabel.Caption = "K_vq"
BranchCodeLabel.Caption = "kvLvi †KvW"
BranchNameLabel.Caption = "kvLvi bvg"
AreaNameLabel.Caption = "Gwiqvi bvg"
EntryDateLabel.Caption = "Gw›Uªi ZvwiL"
StaffIdLabel.FontName = "SutonnyMJ"
StaffNameLabel.FontName = "SutonnyMJ"
DesCodelabel.FontName = "SutonnyMJ"
DesectionLabel.FontName = "SutonnyMJ"
AppDateLabel.FontName = "SutonnyMJ"
AmountLabel.FontName = "SutonnyMJ"
AmountinWordLabel.FontName = "SutonnyMJ"
BranchCodeLabel.FontName = "SutonnyMJ"
BranchNameLabel.FontName = "SutonnyMJ"
AreaNameLabel.FontName = "SutonnyMJ"
EntryDateLabel.FontName = "SutonnyMJ"
Me.LastDatetakeSalaryLabel.FontName = "SutonnyMJ"
Me.LastDatetakeSalaryLabel.Caption = "ZvwiL ch©š-. "
'Me.EntryDate.Value = Date
Label48.Caption = ""
Label48.FontName = "arial"
Label48.FontSize = 18
Label48.BorderColor = 0
Label48.BorderStyle = 0
Label48.SpecialEffect = 0
Label48.BackColor = 0
Label48.BorderWidth = 0
AppDate.InputMask = "99/99/0000;0; "
EntryDate.InputMask = "99/99/0000;0; "
Me.LastDatetakeSalary.InputMask = "99/99/0000;0; "
text7.InputMask = "99/99/0000;0;_"
Me.DuplicatInformation.Visible = False
Me.FormFooter.Visible = True
End Sub

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

Private Sub Form_Open(Cancel As Integer)
text7.Visible = False
text5.Visible = False
Preview.TabStop = False

End Sub

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

Private Sub Form_Timer()
Me.TimerInterval = 1000

Label57.BackColor = Rnd * 8421376
Label58.BackColor = Rnd * 16777215
Label63.BackColor = Rnd * 6731248
Line62.BorderColor = Rnd * 7421376
Line62.BorderStyle = Rnd * 7
Line62.SpecialEffect = Rnd * 4
Line59.BorderColor = Rnd * 255
Line60.BorderColor = Rnd * 555
Line61.BorderColor = Rnd * 888
'Me.Label58.Caption = "Entry Area...                          " & Time()
Me.OnLoad = True
Me.DuplicatInformation.Requery
If Me.DuplicatInformation.ListCount <> 0 Then
Me.DuplicatInformation.Visible = True
Me.FormFooter.Visible = True
Else
Me.DuplicatInformation.Visible = False
Me.FormFooter.Visible = False
End If
End Sub

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

Private Sub Option0_Click()
If Option0.Value = True Then
Option3.Value = False
text7.Visible = False
text5.Visible = True
DoCmd.GoToControl "text5"
End If
If Option0.Value = False Then
text5.Visible = False
End If
Exit_Option0_Click:
    Exit Sub

Err_Option0_Click:
    MsgBox Err.Description
    Resume Exit_Option0_Click
End Sub

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

Private Sub Option3_Click()
If Option3.Value = True Then
Option0.Value = False
text7.Visible = True
text5.Visible = False
DoCmd.GoToControl "text7"
End If
If Option3.Value = False Then
text7.Visible = False
End If

Exit_Option3_Click:
    Exit Sub

Err_Option3_Click:
    MsgBox Err.Description
    Resume Exit_Option3_Click
End Sub

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

Private Sub Preview_Click()
On Error GoTo Err_Preview_Click
If Option3.Value = True Then
    DoCmd.OpenReport "ForBranchOffice", acPreview
End If

If Option0.Value = True Then
    DoCmd.OpenReport "ForBranchOffice1", acPreview
End If

Exit_Preview_Click:
    Exit Sub

Err_Preview_Click:
    MsgBox Err.Description
    Resume Exit_Preview_Click
   
End Sub

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

Private Sub PreviewStaff_Click()
On Error GoTo Err_PreviewStaff_Click

    Dim stDocName As String

    stDocName = "AllInformation"
    DoCmd.OpenReport stDocName, acPreview

Exit_PreviewStaff_Click:
    Exit Sub

Err_PreviewStaff_Click:
    MsgBox Err.Description
    Resume Exit_PreviewStaff_Click
   
End Sub

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

Private Sub StaffId_Enter()
Label48.BorderColor = 0
Label48.BorderStyle = 0
Label48.SpecialEffect = 0
Label48.BackColor = 0
Label48.BorderWidth = 0
Label48.Width = 0
Label48.Height = 0
End Sub

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

Private Sub StaffId_LostFocus()
Me.Text46.Requery
Me.DuplicatInformation.Requery
If Me.DuplicatInformation.ListCount <> 0 Then
MsgBox "This Employee Take Leave for Salary. Please You Confirm this Employee aplication after 3 Years."

End If


End Sub

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

Private Sub Text46_Enter()
Me.Text46.Requery
If IsNull(StaffId) Then
MsgBox "Staff Id Is Null, Please Entry Staff Id", vbInformation + vbOKOnly, "Information"
DoCmd.GoToControl "StaffID"
End If
If StaffId <> 0 Then
Me.Text46.Dropdown
End If
End Sub

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

Private Sub Text5_BeforeUpdate(Cancel As Integer)
Preview.TabStop = True

End Sub

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

Private Sub Text7_BeforeUpdate(Cancel As Integer)
Preview.TabStop = True

End Sub

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

Private Sub PreviewSLF_Click()
On Error GoTo Err_PreviewSLF_Click

    Dim stDocName As String

    stDocName = "SFL"
    DoCmd.OpenReport stDocName, acPreview

Exit_PreviewSLF_Click:
    Exit Sub

Err_PreviewSLF_Click:
    MsgBox Err.Description
    Resume Exit_PreviewSLF_Click
   
End Sub