Combo Box If then Else

[nhdee]

I have a combobox on my form and the following vba code:

Private Sub GCR_Click()

'Puts the Gift Certificate Balance in the GC payment field when select the GC# [Named GCR] to redeem

If Me![GCR].Column(2) > AmtDue Then
Me!GC = [AmtDue]

Else

If Me![GCR].Column(2) < AmtDue Then
Me!GC = [GCR].Column(2)

End If
End Sub

The combo box displays three columns from a query: GC#[GCR]; GC Original Amt [Amt] and Balance. Bound by Column = 1


What I want to happen is: If the Amount Due is greater than the current balance of the Gift Certificate I want the Gift Certificate Payment field to be the balance of the gift certificate. Right now it is always making it equal to the Amount Due??? So if the Amount due is $10.00 but the gift certificate balance is only $5.00 I only want $5.00 to go in the GC (payment) field and the user will have to collect more money (no problem with that). What am I doing wrong?

[June7]

Part of the problem is saving calculated data. Usually a bad idea. Ideally balances would be calculated by aggregating transaction records.

Have you step debugged? Follow the code as it executes, see where it deviates from expected behavior. See link at bottom of my post for debugging guidelines.

[nhdee]

The balance is calculated in the query. The combo box shows the query results. I want to prevent a user from "over-selling" a gift-certificate so I want to force the GC balance to go in as payment. Do you have any other recommendations?

[June7]

You keep track of GC balances? Seems to me gift certificates I've used didn't work that way. Had to use it up in single purchase. It would be offered as form of payment like cash except maybe no change returned if purchase was less than the GC amount. That's the simplest approach. Customer has to use it up or lose it.

Magnetic strip gift cards is a different issue.

Did you try the step debugging?