Solved

Hide VBE Window when searching code modules

Posted on 2014-02-17
11
567 Views
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
            Else
                StartLine = EndLine
                StartColumn = EndColumn
                EndLine = Empty
                EndColumn = Empty
            End If
            If bFound Then Exit For
        Loop
            
    Next
    
    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?
0
Comment
Question by:Dale Fye (Access MVP)
  • 6
  • 4
11 Comments
 
LVL 75

Assisted Solution

by:DatabaseMX (Joe Anderson - Access MVP)
DatabaseMX (Joe Anderson - Access MVP) earned 300 total points
ID: 39866460
Maybe
vbe.ActiveWindow.Visible = False

or

vbe.ActiveWindow.Close


mx
0
 
LVL 75
ID: 39866471
When Rick's F&R searches modules, the VBE window does flash ...
0
 
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
0
Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

 
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 ...
0
 
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
0
 
LVL 47

Author Comment

by:Dale Fye (Access MVP)
ID: 39868268
Joe,

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.
0
 
LVL 75
ID: 39868290
I see.
I was able to install Add In here at work ... messing with it now.
0
 
LVL 57

Assisted Solution

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

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.

Jim.

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
0
 
LVL 75
ID: 39868662
Jim ... he already tried MainWindow ...

mx
0
 
LVL 47

Accepted Solution

by:
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.
0
 
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.
0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Ms Access VBA Variables 6 26
Passing variables to a function 6 34
Access 2003 query lost it's only join 7 26
How to use DLookup with IsNull Function 4 25
This article is a continuation or rather an extension from Cascading Combos (http://www.experts-exchange.com/A_5949.html) and builds on examples developed in detail there. It should be understandable alone, but I recommend reading the previous artic…
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…
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 …

776 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