Real-Time TextBox Data Entry

Hello Folks,

First time poster...

I am running Excel 2010 VBA to control various pieces of Agilent test equipment via a National Instruments USB to GPIB interface. During code execution I am collecting data from the test equipment and attempting to display the data in various ActiveX TextBox's (No UserForms). My issue is that the Text data only appears in the Textbox upon completion of code execution (The last data element collected is displayed). How do I get my Text data to appear in the TextBox real-time or during code execution? ( I can write to an Excel "cell" real-time without issue).

Try the DoEvents function after you've updated the textbox value.

natefarm,

Thanks for the suggestion.

Unfortunately it did not work.

Hmm. This is the coded I tried when testing it out. Without the DoEvents function, it updated all three textboxes at the end. When I added DoEvents, it updated Textbox1 immediately.

Sub Test()
Dim i As Long

    ActiveSheet.OLEObjects("TextBox1").Object.Value = "test1"

    DoEvents
    Do Until i = 1000
        Cells(1, 1).Value = "test"
        i = i + 1
    Loop

    ActiveSheet.OLEObjects("TextBox2").Object.Value = "test2"
    ActiveSheet.OLEObjects("TextBox3").Object.Value = "test3"
End Sub

That's interesting...

When I run your code the results are the same with or without the DoEvents function. All the TextBox's get updated at the end of program execution.

What am I missing?

Well, I'm sorry. Now it's not working for me either. However, I did try the following and it seemed to work.
Don't jinx it!

Sub Test()
Dim i As Long

    ActiveSheet.OLEObjects("TextBox1").Object.Value = "test1"

    Application.ScreenUpdating = False
    Application.ScreenUpdating = True
    Do Until i = 10000
        Cells(1, 1).Value = "test"
        i = i + 1
    Loop

    ActiveSheet.OLEObjects("TextBox2").Object.Value = "test2"
End Sub

Upon further review...

It seems the DoEvents Function has a positive impact on my issue. The TextBox does not update upon execution of the DoEvents Function, but it seems as though the TextBox updates when the "Loop" syntax is executed as part of a "Do" loop. Its hard to say exactly when the TextBox is updated during program execution, simply because whenever I "Run to Cursor" the TextBox gets updated at the trapping point regardless. Without the DoEvents function the TextBox only updates at program completion.

The TextBox update behavior is now satisfactory for my purposes.

The Application.ScreenUpdating was not effectual at all. Go figure...

Thanks for your help natefarm!

I hope you have a safe and happy Holiday season.

Pier722