Hide VBE Window when searching code modules

Posted on 2014-02-17
Last Modified: 2014-02-27
I'm implementing some code that will search all of the code modules (not form or report modules) to determine whether a specific function is defined in the database.  The code I'm using works fine, thanks to the code posted by JDettman in this post
    Set db = CurrentDb
    Set ctr = db.Containers("Modules")
    For Each doc In ctr.Documents
        DoCmd.OpenModule doc.Name
        Set myMod = Modules(doc.Name)
        Debug.Print myMod.Name
        Do Until myMod.Find(OnAction, StartLine, StartColumn, EndLine, EndColumn) = False
            If myMod.Find("Function", StartLine, 0, StartLine + 1, 0) Then
                bFound = True
            ElseIf myMod.Find("Sub", StartLine, 0, StartLine + 1, 0) Then
                bFound = True
                StartLine = EndLine
                StartColumn = EndColumn
                EndLine = Empty
                EndColumn = Empty
            End If
            If bFound Then Exit For
    IsValidFunction = bFound

Open in new window

but opens the VBE window as soon as it hits the first

DoCmd.OpenModule doc.Name

command.  Is there a way to keep the VBE Window hidden during this process?
Question by:Dale Fye
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 4
LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform) earned 300 total points
ID: 39866460
vbe.ActiveWindow.Visible = False



LVL 75
ID: 39866471
When Rick's F&R searches modules, the VBE window does flash ...
LVL 48

Author Comment

by:Dale Fye
ID: 39867225
Yeah, neither of those worked, just generated errors.  I think you are right, if Rick hasn't figure it out, what makes me think that I would be able to in this short a period of time.

Check your mail, sending you another version
[Live Webinar] The Cloud Skills Gap

As Cloud technologies come of age, business leaders grapple with the impact it has on their team's skills and the gap associated with the use of a cloud platform.

Join experts from 451 Research and Concerto Cloud Services on July 27th where we will examine fact and fiction.

LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform) earned 300 total points
ID: 39867981
Well ... what I meant by 'flash' was ... each module window Opens/Closes ... so when done .... all are closed.

There has to be a way ...
Experiment with the SetFocus option of ActiveWindow, etc ...
LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform) earned 300 total points
ID: 39868249
OK ... I tried this with a bunch of code windows open, and they all closed:

VBE.MainWindow.Visible = False
LVL 48

Author Comment

by:Dale Fye
ID: 39868268

Tried that one too.  You cannot search the modules unless you first open the module (tried and didn't work) and that line generates an error if the VBE.MainWindow.Visible = False, at least it did on 2007.

This really isn't critical, since developers are going to normally be in design view when creating the shortcut menus, anyway.  I just didn't like the visual of all those windows opening in the VBE.
LVL 75
ID: 39868290
I see.
I was able to install Add In here at work ... messing with it now.
LVL 58

Assisted Solution

by:Jim Dettman (Microsoft MVP/ EE MVE)
Jim Dettman (Microsoft MVP/ EE MVE) earned 200 total points
ID: 39868645

Application.VBE.MainWindow.Visible = False

If that doesn't do it for you (you'll get the flashing), then you can lock the window from updates with an API call (below and note not tested).  Make sure you unlock the window when done.


Option Compare Database

Public Declare Function api_LockWindow32 Lib "user32" Alias "LockWindowUpdate" (ByVal hwndLock As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChid As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Sub atLockWindow(TrueOrFalse As Boolean)

    Dim Status&, hWndTarget&
10  On Error Resume Next
20  If TrueOrFalse = True Then
30      hWndTarget =  FindWindowEx(0, 0, "wndclass_desked_gsk", Application.VBE.MainWindow.Caption)  
40      If hWndTarget <> 0 Then Status = api_LockWindow32(hWndTarget)
50  Else
60      Status = api_LockWindow32(0)
70  End If

End Sub
LVL 75
ID: 39868662
Jim ... he already tried MainWindow ...

LVL 48

Accepted Solution

Dale Fye earned 0 total points
ID: 39880038
Ended up just accepting that in order to actually search the modules, you have to open the module, and you cannot do that with the VB editor window closed.  Watching the windows open is not that big of a deal anyway.
LVL 48

Author Closing Comment

by:Dale Fye
ID: 39891397
None of the solutions actually resolved the issue, but they pointed me in the right direction.  In the end, I had to accept that what I wanted to do is not currently possible.

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Access custom database properties are useful for storing miscellaneous bits of information in a format that persists through database closing and reopening.  This article shows how to create and use them.
AutoNumbers should increment automatically, without duplicates.  But sometimes something goes wrong, and the next AutoNumber value is a duplicate.  This article shows how to recover from this problem.
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question