Weird problem of focus changing when data is entered

[degras]

I have a form for invoices and it has a subform for invoice items. Sometimes when entering data on the subform the focus automatically changes (e.g. the cursor jumps) from the item price to the item description. This makes it impossible to enter any data for the item price. There is no obvious reason why this happens, there are no SetFocus commands for example. However there is a Me.Recalc call when exiting the item price field, this is neccessary for updating the total. I think that this problem only occurs when the invoice form has a filter switched on. Anybody have a solution to this?



Thanks.

[Toyman]

I have a form for invoices and it has a subform for invoice items. Sometimes when entering data on the subform the focus automatically changes (e.g. the cursor jumps) from the item price to the item description. This makes it impossible to enter any data for the item price. There is no obvious reason why this happens, there are no SetFocus commands for example. I think that this problem only occurs when the invoice form has a filter switched on. Anybody have a solution to this?

Thanks.

Do you have any codes behind any of these fields?

[degras]

Do you have any codes behind any of these fields?

Yes, sorry but I changed the code and the problem has changed slightly. Now data can be entered on the item price field but the focus changes to the item description when exiting the field. So tabbing to the next field (the total) after the item price does not work. Note the total is disabled as it is a calculated field.

This is the code I now have:

Private Sub DoCalc()
Me.Totals = Me.UnitPrice * Me.Qty
Me.Recalc
End Sub

Private Sub Qty_Exit(Cancel As Integer)
DoCalc
End Sub

Private Sub UnitPrice_Exit(Cancel As Integer)
DoCalc
End Sub

Sometimes focus gets stuck on the item price or the qty field.

...OK I solved this now. Instead of the line Me.Recalc I put Me.Dirty = false, and moved the Recalc to the main form:
Private Sub ItemsSubform2_Enter()
Me!ItemsSubform2.Form.Recalc
...

Private Sub ItemsSubform2_Exit(Cancel As Integer)
ItemsSubform2_Enter
End Sub