Calculation of invoice Fees - Special Cases

[wirejp]

Hi twinnyfo, thanks for the code. I am calculating the admin fees on the form. Can you help me with the code for the special cases?


[z{this thread was split from: Calculation Invoice Fees

[twinnyfo]

wirejp,

As we discussed before, in order to calculate the special cases, we need:

1. To know the exact criteria for those special cases
2. To know how to identify those special cases programmatically

Item one is where we start. Then we build the code around those conditions.

[wirejp]

I was trying to following VBA code to correct the Initial Fee Invoice for a special case, but there was no change in the Initial Fee Invoice amount when viewed in the Form view. I was thinking If I select the country and apply the correct formula, then the should update correctly.

Private Sub txtInitialFeeInvoice_AfterUpdate()
   Dim txtInitialFeeInvoice As Double
   Dim txtInitialPremium As Double
'
   dblInitialFeeInvoice = _
      IIf(cbo.Country = "Country A", _
        dblInitialPremium * _
         Me.chkAdminFeeInitial * 0.015, _
         "$0.00")
'               
End Sub

[twinnyfo]

Didn't we have a field in the Countries Table (or elsewhere) that indicated whether a particular country charged an admin fee?

If this is the case (see our previous thread), when we calculate the fees:

Me.txtAdminFee = _
    Format( _
        IIf(Me.chkAdminFeeInitial, _
            Me.txtInitialPremium * 0.015, _
            0 )
            ), _
        "Currency" _
        )

Line 1: This is the text box where we want the admin fee to show up.

Lines 2, 7: You said you wanted it to appear as currency, so we use the Format() Function

Line 3: We check to see if this record has an Admin Fee (brought in from the Countries Table).

Line 4: If it does require an admin fee, then we calculate.

Line 5: If not, then the Admin Fee is 0.

[zmbd]

wirejp
Do you have Option Explicit at the top of your modules? If not you should as explained in the troubleshooting section: > Before Posting (VBA or SQL) Code

Neither dblInitialFeeInvoice nor dblInitialPremium appear to be defined in your code. If these are global then of course that's not an issue. If these refer to something on your form or within the recordset then you need to establish that relationship.

I'm fairly certain that if you have Option Explicit at the top of your module that if you attempted a debug/compile that you would get an error on those two variables.

[wirejp]

Hi Twinnyfo,

Thank you for the explanation. I was able to fixed that problem.

Hi zmbd,
The Option Explicit was not checked at the top of the module. So it had picked up an error when I compiled.