Text Box - Setting Values
 

Or frmReporting.Repaint



--

John

johnf202 at hotmail dot com


"Kirk" wrote in message
...
Try adding the following before you update your textbox:

frmReporting.txtStatus.setfocus
//Update text box //
go back to wherever you were at before.

This may help.

Kirk
-----Original Message-----
I have a form with a text box called txtStatus. I use
this to inform the user of the progress of the processes
I
am running. There are about 20 steps that run over 10
minutes. The code I am trying to use is:

frmReporting.txtStatus.Text = "My Message"
sub_runmyprocedure

The problem is that when I run the code the text box is
not updated. If I step through the code I can see it
update the txtStatus with my message. If a use a msgbox
I
can see the text box update with my message:

frmReporting.txtStatus.Text = "My Message"
msgBox ""
sub_runmyprocedure

I have tried to use these lines to force the code to
pause
but it still does not work.

frmReporting.txtStatus.Text = "My Message"
application.wait 100
sub_runmyprocedure

Can anyone help me with this?

JohnV
.

Text Box - Setting Values
 

Thanks for the replies, they helped. I think I like
John's repaint a little better since I do not need to
worry about setfocus or removing the focus from the
txtStatus box.

Thanks Again,
JohnV


-----Original Message-----
Or frmReporting.Repaint



--

John

johnf202 at hotmail dot com


"Kirk" wrote in message
...
Try adding the following before you update your textbox:

frmReporting.txtStatus.setfocus
//Update text box //
go back to wherever you were at before.

This may help.

Kirk
-----Original Message-----
I have a form with a text box called txtStatus. I use
this to inform the user of the progress of the
processes
I
am running. There are about 20 steps that run over 10
minutes. The code I am trying to use is:

frmReporting.txtStatus.Text = "My Message"
sub_runmyprocedure

The problem is that when I run the code the text box is
not updated. If I step through the code I can see it
update the txtStatus with my message. If a use a
msgbox
I
can see the text box update with my message:

frmReporting.txtStatus.Text = "My Message"
msgBox ""
sub_runmyprocedure

I have tried to use these lines to force the code to
pause
but it still does not work.

frmReporting.txtStatus.Text = "My Message"
application.wait 100
sub_runmyprocedure

Can anyone help me with this?

JohnV