ACCESS FEED: Re: [MS_AccessPros] How to clear the debug window?

Rabu, 13 April 2016

Re: [MS_AccessPros] How to clear the debug window?

Bob,

This is the cls sub:

Sub cls()
    Application.VBE.Windows.Item("Immediate").SetFocus
    SendKeys "^a"
    SendKeys "{Del}"
End Sub

**** And here is the click-event code:

Private Sub cmdProgrammer_Click()

    cls

    Dim frmCurr As Form     ' used for the Form collection
    Dim ctl As Control      ' used for the Controls collection

'*******************************
    If boolFormNameVisible Then
        boolFormNameVisible = False
        cmdProgrammer.Caption = "&boolFormNameVisible = False"

        For Each frmCurr In Forms
            For Each ctl In frmCurr
                If ctl.Name = "lblFormName" Then
                    ctl.Caption = ""
                    Exit For
                End If
            Next ctl
        Next frmCurr

        Exit Sub

    End If

'*******************************
    If Not boolFormNameVisible Then
        boolFormNameVisible = True
        cmdProgrammer.Caption = "&boolFormNameVisible = True"

        For Each frmCurr In Forms
            For Each ctl In frmCurr
                If ctl.Name = "lblFormName" Then
                    ctl.Visible = True
                    ctl.Caption = frmCurr.Name
                    Exit For
                End If
            Next ctl
        Next frmCurr

        Exit Sub
    End If
'*******************************

End Sub

On 4/12/2016 11:28 AM, 'Bob Phillips' bob.phillips@dsl.pipex.com [MS_Access_Professionals] wrote:

Oopps, that is not much use is it.#?

I was interested in the bit you mentioned when you said <<<< If I put this at the beginning of my click event procedure, it clears the immediate window. However, focus remains with the immediate window and the rest of the click event procedure does not run. >>>>, not Domenic's code.

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: 12 April 2016 13:34
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] How to clear the debug window?

Hi Bob,

The text that does not return is that suggested by Domenico:

Sub cls()
    Application.VBE.Windows.Item("Immediate").SetFocus
    SendKeys "^a"
    SendKeys "{Del}"
End Sub

I inserted the Application.VBE.ActiveCodePane.Show line just ahead of the End Sub line. When executed, it takes me to the code window for the module containing the cls sub but appears to delete the contents of the module. Execution halts at that point.

Steve

On 4/12/2016 4:14 AM, 'Bob Phillips' bob.phillips@dsl.pipex.com [MS_Access_Professionals] wrote:

Steve,

I created a simple form with a command button, and that ran the code after this clearing code. Can you show the code that doesn't return, I am intrigued?

Have you also tried adding

    Application.VBE.ActiveCodePane.Show

Afterwards?

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: 11 April 2016 23:06
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] How to clear the debug window?

Thanks Domenico. If I put this at the beginning of my click event procedure, it clears the immediate window. However, focus remains with the immediate window and the rest of the click event procedure does not run. How does one return to the calling procedure and continue its execution?

Steve

On 4/11/2016 2:31 AM, Domenico Cozzolino domcoz@gmail.com [MS_Access_Professionals] wrote:

I used this

Sub cls()

Application.VBE.Windows.Item("Immediata").SetFocus

SendKeys "^a"

SendKeys "{Del}"

End Sub

found with google search

2016-04-11 0:04 GMT+02:00 Steve5 thaw5@suddenlink.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>:

Got it that time. Now to learn how to use it. Thank you.

On 4/10/2016 4:26 PM, 'Bill Mosca' wrmosca@comcast.net [MS_Access_Professionals] wrote:

Steve try this one that takes you to the page. From there, you can find the file to download.:

https://groups.yahoo.com/neo/groups/MS_Access_Professionals/files/0_Utilities%20and%20Add-ins/

Regards,

Bill

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Sunday, April 10, 2016 10:12 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] How to clear the debug window?

Thank you Duane. I didn't find that in the Links section. Sadly, when I try it, the browser displays "Error occurred while downloading the file. Please click here to try again."

Steve

On 4/9/2016 10:15 PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] wrote:

I think Bill sent you to our group's files Utilities and Add-Ins

https://xa.yimg.com/df/MS_Access_Professionals/MZTools3VBASetup.zip?token=LhB92qnYwM5POMd2o2phDnr2htZNhXL30ZsDheMHyB_o63UGx2hgLkns8kVgeilPpV9YngoZFRfuu5BfvSknNXoFSyBfcTc9FDzG0Ou19_WUA4gq-wtXfoc-LhJ2UYLIV-kCRBnoG6uWGrcXJKJH&type=download

Duane Hookom, MVP

MS Access

To: MS_Access_Professionals@yahoogroups.com
From: MS_Access_Professionals@yahoogroups.com
Date: Sat, 9 Apr 2016 21:49:42 -0400
Subject: Re: [MS_AccessPros] How to clear the debug window?

Hi Bill,

I did. The link takes me to this web page which offers a download of MZ-Tools 8.0 for $80, discounted to $60. Maybe I'm missing something?

Steve

On 4/9/2016 8:04 PM, Bill Mosca wrmosca@comcast.net [MS_Access_Professionals] wrote:

Steve

The older version is free. That's why I said to check out file folder.

Regards,

Bill Mosca

"Steve thaw5 thaw5@suddenlink.net [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:

Thanks Bill. Found the link. For the moment I think I'll stick to the select/control-A/delete method rather than spend the money :-)

Steve

On 4/8/2016 10:46 PM, Bill Mosca wrmosca@comcast.net [MS_Access_Professionals] wrote:

Yes, use mztools add-in. URL in our links folder

Regards,

Bill Mosca

"Steve thaw5 thaw5@suddenlink.net [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:

Is there a way to programmatically delete all the lines in the debug
window? I'd like a clean debug window each time I run the code I am
working on. Right now I clear the debug window manually by clicking in
it, then control-A and the delete key. Is there an alternative?

Thanks, Steve