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

If AreaCode.Value = "AR" Then
Label6.Caption = "Area Manager "
End If
If AreaCode.Value = "PO" Then
Label6.Caption = "Program Officer"
End If
If AreaCode.Value = "PCG" Then
Label6.Caption = "Pion"
End If
If AreaCode.Value = "ZO" Then
Label6.Caption = "Zonal Office Staff "
End If
If AreaCode.Value = "D" Then
Label6.Caption = "Driver"
End If
If AreaCode.Value = "TO" Then
Label6.Caption = "Training Officer"
End If
If AreaCode.Value = "TCM" Then
Label6.Caption = "Training Center Manager"
End If
Label6.FontBold = True
Label6.FontName = "Arial"
Label6.FontSize = 16
Label6.ForeColor = 116540
If AreaCode.Value = "MA" Or AreaCode.Value = "SE" Or AreaCode.Value = "CM" Or AreaCode.Value = "AR" Or AreaCode.Value = "PO" Or AreaCode.Value = "PCG" Or AreaCode.Value = "ZO" Or AreaCode.Value = "D" Or AreaCode.Value = "TO" Or AreaCode.Value = "TCM" Then
Pre_view.Enabled = True
End If

End Sub

Private Sub Form_Load()
Label6.Caption = "Created by_ Mohammad Nazirul Islam_1836"
Detail.BackColor = 32156
Label6.FontBold = -1
Label6.FontSize = 7
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.Caption = "Desegnation Code"
If IsNull([AreaCode]) Then
Pre_view.Enabled = False
End If

End Sub

Private Sub Label6_Click()

Label6.Caption = "** Entry Please Desegnation Code...."

End Sub

Private Sub Pre_view_Click()
If IsNull([AreaCode]) Then

 MsgBox "You Must Entry Desegnation Code_M Or S Or CM Or A Or PO Or P Or N Or D Or TO Or TCM"
DoCmd.GoToControl "AreaCode"

        Else
            Me.Visible = False
           
          End If
Pre_view.FontBold = -1
Pre_view.ForeColor = 2564

End Sub