Auto sum formula not working

[data808]

I have an auto sum vba code that adds up a few fields based on what the user enters. The auto sum works on the on lost focus event. So as the user scrolls through records by clicking on some buttons I made, I put vba behind these buttons to set focus on the field that auto sums the set focus to another field to trigger the on lost focus event. However when the user clicks the find record button I created and gets the find record dialog box then does a search to find the record they want, I have no way of refreshing the auto sum or to trigger the auto sum to take place. Any ideas? I tried the on change event of the field and also tried using this:



if me.txtdateissued <> me.txtdateissued.oldvalue then
(calculation code)

But it did not work.

[burrina]

Try using the OnLostFocusEvent and Refresh your data.

[pbaldy]

You might try the current event, which fires when the user changes records via any means.

[data808]

How do you refresh?

[data808]

Yeah I tried the on current too but could not get it to work. Is there an event or something where I can have an action take place after the user closes the find dialog box? That would be the perfect place to have a refresh action of some kind.

[burrina]

You can try this.

Forms!YourFormNameHere.Requery

[data808]

I'll try it but I did find a solution for now. I just coded behind the on got focus of each field so when the user does a search the focus will go to a field on whatever the user is trying to find, creating the auto sum to refresh the fields. Thanks everyone for the help.

[burrina]

Glad you got it sorted out. Good Luck With Your Project.

[data808]

Thank you very much.