I have an Invoice form that is formatted to continuous form view. The below event procedures work well if there is only 1 record. However, with 2 or more records, the SetFocus event moves the cursor to the correct field, but back on the first record. Can I SetFocus within the current record? I have tried without success.


Private Sub UnitPrice_AfterUpdate()
    [SubTotal] = RoundCC([Multiplier] * [UnitPrice])
    Me.Requery
    SurchargePercent.SetFocus
End Sub



Private Sub SurchargePercent_AfterUpdate()
    [SurchargeAmount] = RoundCC((Nz([Multiplier]) * Nz([UnitPrice]) * Nz([SurchargePercent])) / 100)
    Me.Requery
    CommonComments.SetFocus
End Sub


Thanks in advance for your help.


D. Bartelt

__________________
D. Bartelt

Hi ya D!

In each of your after update events, you need to set the record number to a variable. Once that's done, after your requery, use the docmd.gotorecord offset
then setfocus to the field

Private Sub UnitPrice_AfterUpdate()
    myrecnum = me.currentrecord
    [SubTotal] = RoundCC([Multiplier] * [UnitPrice])
    Me.Requery
    docmd.gotorecord,,,myrecnum
    SurchargePercent.SetFocus
End Sub

HTH,

Kevin

dartcoach

How's it going Kev?

Thanks for your reply. I tried what you suggested. When I compile and save all modules, I receive a "Variable not defined" error. I then tried Dim MyRecNum as Interger, as String and as Boolean. None of them work. The cursor either goes to the next record or to the previous record. Do you have any more suggestions?

Don

D. Bartelt

Don,

Dim MyRecNum as integer.

Are you still using the requery? Also, are these records new?

Kevin

dartcoach

Kevin,

I believe that i have solved it. I am trying to requery the entire form whem all I needed to requery was the SubTotal and SurchargeTotal fields.

New codes are:

Private Sub SurchargePercent_AfterUpdate()

    [SurchargeAmount] = RoundCC((Nz([Multiplier]) * Nz([UnitPrice]) * Nz([SurchargePercent])) / 100)
    Me!SurchargeTotal.Requery

End Sub

Private Sub UnitPrice_AfterUpdate()

    [SubTotal] = RoundCC([Multiplier] * [UnitPrice])
    Me!LineSubTotal.Requery

End Sub


Thanks again:)

D. Bartelt

Don,

Glad you got it.

Take care,

Kevin

dartcoach