D
D S via AccessMonster.com
Ihave this NestedIF statement that doesn't seem to be working. Does anyone
know why?
Thanks
DS
Private Sub Command67_Click()
If Me.Pat > 0 Then
Forms!OveringHidden!Text7 = CCur(Me.Pat)
DoCmd.Close acForm, "OveringAmount"
Forms!OveringHidden.Visible = True
If Forms!OveringHidden!Text7 > Forms!OveringHidden!Text4 Then
DoCmd.Open "OveringTooMuch"
Else:
Forms!OveringHidden.Visibe=True
End If
Else: IsNull (Me.Pat)
Forms!OveringAmount.Visible = False
DoCmd.OpenForm "NoOveringAmount"
End If
End Sub
know why?
Thanks
DS
Private Sub Command67_Click()
If Me.Pat > 0 Then
Forms!OveringHidden!Text7 = CCur(Me.Pat)
DoCmd.Close acForm, "OveringAmount"
Forms!OveringHidden.Visible = True
If Forms!OveringHidden!Text7 > Forms!OveringHidden!Text4 Then
DoCmd.Open "OveringTooMuch"
Else:
Forms!OveringHidden.Visibe=True
End If
Else: IsNull (Me.Pat)
Forms!OveringAmount.Visible = False
DoCmd.OpenForm "NoOveringAmount"
End If
End Sub