Message Box

[dunnmel4]

Ok, I am trying to prevent a payment being applied twice and I am trying to create a message box but I seem to be putting the code in wrong or something. Plz help

[pbaldy]

Are you getting an error? Is the highlighted text a function on this form?

[dunnmel4]

yea it just says it needs to debug. i think i need to relate it back to the payments table some how.

[pbaldy]

It should be giving an error message that at least hints at the problem. Can you post the db?

[dunnmel4]

Sure. I created a floating table that would have the paymentId and the payment amount and then post that there...so then it would recognize the payment being present. I hope that makes sense. =)

[pbaldy]

Your error is coming from the function IsPaymentAlreadyApplied. The SQL statement is bad, should be:

  Set resultSet = CurrentDb.OpenRecordset("SELECT 1 " & _
                                          "FROM FloatingTable " & _
                                          "WHERE FloatingTable.PagoID = " & CStr(paymentId) & ";")

You didn't have a line continuation on the second line.

[dunnmel4]

yea I just figured that out lol . but now nothing is happening...if you keep clicking the payment keeps reaccuring and the message box isn't popping up

[pbaldy]

FloatingTable is empty, and offhand I don't see any code that would add a record to it, so that function will always return false, and so you'll never see the message box. Unless I've missed something.

[dunnmel4]

Ah I see what I'm doing wrong. Just needed someone else to look at it. Thanks a bunch!!!!

[pbaldy]

Happy to help!