Not Allow Credit and Debit, One or the Other

[burrina]

How can I make sure the user can't choose both, if they do then what action to take? I am thinking to not allow the credit by default with msgbox


Will the below work, is there are a better way?

If Not IsNull([FrequencyAmnt]) And ([credit]) Then 'Purpose: Debit or Credit, Not Both.
MsgBox "Debit or Credit, Both Are Not Allowed"
Me.credit.SetFocus
credit = ""
Exit Sub
End If

[June7]

Maybe:

If Not IsNull([debit]) And Not IsNull([credit]) Then 'Purpose: Debit or Credit, Not Both.

[burrina]

Yep, I left one out! I hate it when that happens. I am making progress as blazing speeds here! Too bad the blazing speeds is at a snails pace...

Almost in Beta Mode...

[burrina]

If Not IsNull([debit]) And IsNull([credit]) Or IsNull([debit]) And Not IsNull([credit]) Then 'Purpose: Debit or Credit, Not Both.
MsgBox "Debit or Credit, Both Are Not Allowed"
Me.Undo
If Me.Dirty Then Me.Dirty = False
Me.debit.SetFocus
credit = ""
Exit Sub
End If


I get a message about both are not allowed but I dont have both?

Here is the key, they both have a default value of zero and so they show $0.00
I need to make an adjustment that will allow for a zero value.

[June7]

If Nz([debit],0) <> 0 And Nz([credit],0) <> 0 Then

[burrina]

Spot on as usual, Krap! I knew that too. Sometimes I sits and thinks and sometimes I just sits!