Scrolling Info Window

[Michael]

Is there a way to print messages to a scrolling info window sort of
like debug.print but to a window that the user will see while a long
operation is underway? I want the user to see the progress and be able
to print other messages as the process is running.

Any help would be appreciated.

 

[Gina Whipp]

Michael,

Perhaps this can help???

http://www.smccall.demon.co.uk/Downloads.htm#ProgBarForm

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm

 

[CompGeek78]

Michael,

Perhaps this can help???

http://www.smccall.demon.co.uk/Downloads.htm#ProgBarForm

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm

Just use a text box and update it periodically.

'Do some stuff
Textbox = "Updating data please wait. & vbCrLF
'Do some more stuff
Textbox = Textbox & "Still updating, continue to hold." & vbCrLf
'Do your last stuff
Textbox = Textbox & "All finished, thanks for being so patient."

Keven Denen

 

[CompGeek78]

Just use a text box and update it periodically.

'Do some stuff
Textbox = "Updating data please wait. & vbCrLF
'Do some more stuff
Textbox = Textbox & "Still updating, continue to hold." & vbCrLf
'Do your last stuff
Textbox = Textbox & "All finished, thanks for being so patient."

Keven Denen

Oops, forgot to put the repaints in there.

Make that:

'Do some stuff
Textbox = "Updating data please wait. & vbCrLF
Me.Repaint
'Do some more stuff
Textbox = Textbox & "Still updating, continue to hold." & vbCrLf
Me.Repaint
'Do your last stuff
Textbox = Textbox & "All finished, thanks for being so patient."
Me.Repaint

Keven Denen

 

[Michael]

Oops, forgot to put the repaints in there.

Make that:

'Do some stuff
Textbox = "Updating data please wait. & vbCrLF
Me.Repaint
'Do some more stuff
Textbox = Textbox & "Still updating, continue to hold." & vbCrLf
Me.Repaint
'Do your last stuff
Textbox = Textbox & "All finished, thanks for being so patient."
Me.Repaint

Keven Denen- Hide quoted text -

- Show quoted text -

Thank you that worked great.