Made A Initial Form.

Private Sub Combo0_Change()
Me.Text2.Requery
If Combo0.Value = "CR_UC" Then
Me.CreditAdvise.Visible = True
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = True
Me.PrintingTopSheet.Visible = False
End If

If Combo0.Value = "CR_E" Then
Me.CreditAdvise.Visible = True
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = True
Me.PrintingTopSheet.Visible = False
End If


If Combo0.Value = "CR_O" Then
Me.AdviseOther.Visible = True

'Me.CreditAdvise.Visible = True
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = True
Me.PrintingTopSheet.Visible = False
Me.Label24.Visible = True
Me.Combo23.Visible = True



Else
Me.AdviseOther.Visible = False

Me.Label24.Visible = False
Me.Combo23.Visible = False

End If


If Combo0.Value = "CR_S" Then
Me.CreditAdvise.Visible = False
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = True
Me.CreditTopsheet.Visible = True
Me.PrintingTopSheet.Visible = False
End If
If Combo0.Value = "DR_P" Then
Me.CreditAdvise.Visible = False
Me.PrintingAdvise.Visible = True
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = False
Me.PrintingTopSheet.Visible = True
End If
End Sub



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


Private Sub Combo0_LostFocus()
Me.Text2.Requery
If Combo0.Value = "CR" Then
Me.CreditAdvise.Visible = True
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = True
Me.PrintingTopSheet.Visible = False
End If

'If Combo0.Value = "CR_E" Then
'Me.CreditAdvise.Visible = True
'Me.PrintingAdvise.Visible = False
'Me.ShareAdvise.Visible = False
'Me.CreditTopsheet.Visible = True
'Me.PrintingTopSheet.Visible = False
'End If

If Combo0.Value = "CR_O" Then
Me.AdviseOther.Visible = True
Me.CreditAdvise.Visible = False
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = True
Me.PrintingTopSheet.Visible = False
Me.Label24.Visible = True
Me.Combo23.Visible = True

Else
Me.AdviseOther.Visible = False
Me.Label24.Visible = False
Me.Combo23.Visible = False

End If


If Combo0.Value = "CR_S" Then
Me.CreditAdvise.Visible = False
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = True
Me.CreditTopsheet.Visible = True
Me.PrintingTopSheet.Visible = False
End If
If Combo0.Value = "DR_P" Then
Me.CreditAdvise.Visible = False
Me.PrintingAdvise.Visible = True
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = False
Me.PrintingTopSheet.Visible = True
End If

End Sub


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


Private Sub Form_Load()
Me.Text2.InputMask = "99/99/0000;0;_"
Me.Text2.Value = Date
Me.CreditAdvise.Visible = False
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = False
Me.PrintingTopSheet.Visible = False
Me.AdviseOther.Visible = False

Me.Label24.Visible = False
Me.Combo23.Visible = False

End Sub



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


Private Sub Form_Timer()
Me.Label5.Caption = Time()
Me.Label5.ForeColor = Rnd * 987
Me.AdviseEntry.ForeColor = Rnd * 255255
End Sub
Private Sub AdviseEntry_Click()
On Error GoTo Err_AdviseEntry_Click

If IsNull([Combo0]) Or IsNull([Text2]) Then
MsgBox "Please Entry Advise Type & Working/Entry Date"

Else
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "advise"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_AdviseEntry_Click:
    Exit Sub

Err_AdviseEntry_Click:
    MsgBox Err.Description
    Resume Exit_AdviseEntry_Click
  

End Sub


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


Private Sub CreditAdvise_Click()
On Error GoTo Err_CreditAdvise_Click

    Dim stDocName As String

    stDocName = "CreditAdvise"
    DoCmd.OpenReport stDocName, acPreview

Exit_CreditAdvise_Click:
    Exit Sub

Err_CreditAdvise_Click:
    MsgBox Err.Description
    Resume Exit_CreditAdvise_Click
   
End Sub


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


Private Sub PrintingAdvise_Click()
On Error GoTo Err_PrintingAdvise_Click

    Dim stDocName As String

    stDocName = "DabitAdvisePrinting"
    DoCmd.OpenReport stDocName, acPreview

Exit_PrintingAdvise_Click:
    Exit Sub

Err_PrintingAdvise_Click:
    MsgBox Err.Description
    Resume Exit_PrintingAdvise_Click
   
End Sub


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


Private Sub ShareAdvise_Click()
On Error GoTo Err_ShareAdvise_Click

    Dim stDocName As String

    stDocName = "ShareAdvise"
    DoCmd.OpenReport stDocName, acPreview

Exit_ShareAdvise_Click:
    Exit Sub

Err_ShareAdvise_Click:
    MsgBox Err.Description
    Resume Exit_ShareAdvise_Click
   
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 BranchInfo_Click()
On Error GoTo Err_BranchInfo_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "BranchInformation"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_BranchInfo_Click:
    Exit Sub

Err_BranchInfo_Click:
    MsgBox Err.Description
    Resume Exit_BranchInfo_Click
   
End Sub


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


Private Sub CreditTopsheet_Click()
On Error GoTo Err_CreditTopsheet_Click

    Dim stDocName As String

    stDocName = "AdviseTopsheet"
    DoCmd.OpenReport stDocName, acPreview

Exit_CreditTopsheet_Click:
    Exit Sub

Err_CreditTopsheet_Click:
    MsgBox Err.Description
    Resume Exit_CreditTopsheet_Click
   
End Sub


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


Private Sub PrintingTopSheet_Click()
On Error GoTo Err_PrintingTopSheet_Click

    Dim stDocName As String

    stDocName = "PrintingTopSheet"
    DoCmd.OpenReport stDocName, acPreview

Exit_PrintingTopSheet_Click:
    Exit Sub

Err_PrintingTopSheet_Click:
    MsgBox Err.Description
    Resume Exit_PrintingTopSheet_Click
   
End Sub


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


Private Sub AreaInfo_Click()
On Error GoTo Err_AreaInfo_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "AreaName"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AreaInfo_Click:
    Exit Sub

Err_AreaInfo_Click:
    MsgBox Err.Description
    Resume Exit_AreaInfo_Click
   
End Sub


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


Private Sub EditAdvise_Click()
On Error GoTo Err_EditAdvise_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "EditAdvise"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_EditAdvise_Click:
    Exit Sub

Err_EditAdvise_Click:
    MsgBox Err.Description
    Resume Exit_EditAdvise_Click
   
End Sub

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

Private Sub AdviseOther_Click()
On Error GoTo Err_AdviseOther_Click

    Dim stDocName As String

    stDocName = "AdviseOther"
    DoCmd.OpenReport stDocName, acPreview

Exit_AdviseOther_Click:
    Exit Sub

Err_AdviseOther_Click:
    MsgBox Err.Description
    Resume Exit_AdviseOther_Click
   
End Sub