Clear Intermediate Window

[Ross]

To All,

How can I erase the display contents of the intermdiate window using VBA?

Is there a way?

Thank you

Ross

 

[Douglas J. Steele]

The only way I'm aware of is to send a whole bunch of blanks to it, but off
the top of my head, I don't remember what the capacity of the window is.
Assuming it's 2000 characters (I'm sure it's higher), you can do

Debug.Print Space(2000)

I'm hard-pressed to think of a reason why you'd need to do this though!

 

[Ross]

Doug,

Thank you!
I do a lot of debuging by runing and re-running code 'til it works. This
will give me a "Gap" to see where one "run" ends and another one begins.

Thanks again.

 

[vanderghast]

VBE.Windows("Exécution").SetFocus
SendKeys "^{HOME}^+{END}{DELETE}"


where it is left to you to find the window name in English.

(from an original reply from 3stone)



Vanderghast, Access MVP

 

[Stuart McCall]

VBE.Windows("Exécution").SetFocus
SendKeys "^{HOME}^+{END}{DELETE}"


where it is left to you to find the window name in English.

(from an original reply from 3stone)



Vanderghast, Access MVP

SendKeys "^a{DELETE}"

will do it too.

 

[raskew via AccessMonster.com]

Hi -

Give this a try:

Public Sub MeGo()
'purpose: Erase contents of debug (immediate) window
'coded by: raskew
'inputs: from debug window: mego <enter>

Dim strErase As String

strErase = String(256, Chr(13) + Chr(10))
Debug.Print strErase

End Sub


HTH - Bob