[AccessD] Clear Debug Window Programmatically

Or...

Sub clearDebug()
Dim n As Long
For n = 1 To 200
    Debug.Print
Next
End Sub

It works a treat, in the blink of an eye - because the Immediate window only
every displays 199 lines, max. No need for the dreaded SendKeys either.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Tuesday, August 09, 2005 7:10 AM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] Clear Debug Window Programmatically


Arthur,

1. Write a autokey marco to do:

Ctrl/G
Crtl/A
{del}

2. Write a autokey macro to do:
Ctrl/G
Ctrl+Home
Shift+Ctrl+End
{del}

3. Call a procedure:

Sub ClearImmediateWindow()
  'Make sure that the Immediate window is visible
  Application.VBE.Windows("Immediate").Visible = True
  
  'Activate the Immediate window
  Application.VBE.Windows("Immediate").SetFocus
  
  'Send keystrokes to clear the Immediate window
  SendKeys "^{HOME}^+{END}{DEL}"
End Sub

Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Arthur Fuller
Sent: Monday, August 08, 2005 6:17 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Clear Debug Window Programmatically


Is there a way to clear the debug window programmatically?

TIA,
Arthur

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com