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 (Access MVP)
  • 6
  • 4
LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Access MVP)
DatabaseMX (Joe Anderson - Access MVP) 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 47

Author Comment

by:Dale Fye (Access MVP)
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
LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Access MVP)
DatabaseMX (Joe Anderson - Access MVP) 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 - Access MVP)
DatabaseMX (Joe Anderson - Access MVP) 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
What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

LVL 47

Author Comment

by:Dale Fye (Access MVP)
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 57

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 47

Accepted Solution

Dale Fye (Access MVP) 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 47

Author Closing Comment

by:Dale Fye (Access MVP)
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

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Display multiple images in report 12 85
Search field on a form 7 15
Help with SQl and UNION 7 16
Access checkbox 2 0
I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
In a multiple monitor setup, if you don't want to use AutoCenter to position your popup forms, you have a problem: where will they appear?  Sometimes you may have an additional problem: where the devil did they go?  If you last had a popup form open…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

762 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

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now