Populate text boxes in form during loop

MMH · June 7th, 2013, 06:31 AM

I have a form that executes code to find files and append them into the database. I have a line to update a text box with the current status but it does not update every loop. Do I need to pause the loop to force this update: extract from code

Code:

For TheCounter = 1 To FoundFiles.Count
    TheFileName = FoundFiles(TheCounter)
    DoCmd.DeleteObject acTable, TheLinkTable
    DoCmd.TransferText acLinkDelim, TheSpec, TheLinkTable, TheFilePath & TheFileName, True   
        DoCmd.OpenQuery TheQuery, acViewNormal, acEdit    
    Forms![frmMenu]!Text4.SetFocus
    Forms![frmMenu]!Text4.Value = TheCounter
     Next

Would like to see Text4 (yes bad name) updated during every loop