[AccessD] Clear Debug Window Programmatically

Totally agree Jim.  My only addition to the discussion would be that I doubt
if a routine to clear the debug window is going to be "mission critical" for
an application. It sounds like a developers wish-list item.

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 9:30 AM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] Clear Debug Window Programmatically


Lambert,

  Yes, that would work too, but if the size of the debug window ever changed
it would fail.  The other methods would not.  Moot point I know as it
probably never will change<g>

  That method too would work in all cases where the first method I gave
would fail on some international versions (the second method always works
though).

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Heenan, Lambert
Sent: Tuesday, August 09, 2005 9:13 AM
To: 'Access Developers discussion and problem solving'
Subject: RE: [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
--
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