Want to update Textbox with the Sum of data inside a Listbox

[tmartin]

In a form I have a list box that is populated from a query. There are two columns in this list box and will display two columns of numbers (currency)
I need to add up the contents of each column and present that to the user in a single text box for each column. I have written VBA code that will accumulate each list and compute a correct result.

I tried AfterUpdate event on the listbox but that will not trigger an event to run the VBA script. Any suggestions on how you would solve this problem?

[June7]

Code in AfterUpdate event can certainly call a procedure that does the calcs. What code did you 'try'?

[tmartin]

Need to accumulate content in Listbox columns. How would you approach this?
Thank you

Tom

[Bob Fitz]

Perhaps like this:

[tmartin]

I do notice that sometimes the text boxes do not get updated and just left blank. I am not sure why since the text box update is dependent upon a query and not the content of the list box. Now once I select the text box the value is then displayed. Any ideas?

[Bob Fitz]

I do notice that sometimes the text boxes do not get updated and just left blank.

When does this happen. What happens that would make the text boxes need to update.

[tmartin]

I made the text boxes unbounded and then added a call on form onload to populate all text boxes using a common sub method
These boxes were read only. I have not done a lot of testing to make sure this resolves the problem.

I create an onclick event for all text boxes and then moved your DSum function inside. Then when the form is loaded all txt box
controls are called that update the text boxes when the window is displayed. The only drawback there does seem to be a performance hit.
Not sure of another to resolve the issue since I am a novice.

Thanks