VBscript not working

[slyscurry]

Hello,
I have a form with two numbers that I compare when a button is clicked. If they are not equal then a text box will pop up, but occasionally a text box pops up even though the numbers equal. Below is the script...

If Me.FormTotal <> Me.TxnAmount Then
MsgBox "Line Items must total to transaction amount!"
Me.AcctgTxnAmt.SetFocus
Cancel = True
Exit Sub
End If

Thanks!

 

[PHV]

Double and Single are only approximations.
I'd use the following:
If CDec(Me!FormTotal) <> CDec(Me!TxnAmount) Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Remou]

This looks like VBA rather than VBScript. You may need to move the focus or recal the form before checking if the controls are equal, depending on how you have set it up.

 

[slyscurry]

you're probably right about the VBA, I'm very unfamiliar with visual basic. I tried the CDec() method and that worked.

Thanks!