searching Access modules

[peterhall]

In VBA an Access module has a find method - works perfectly to find a string inside a module. i'm working in A97 (legacy) systems (large ones) and want to write code that searches all modules so that I can check on the possible effects of a change. But the 97 modules collection is open modules only.

Access 97 doesn't have an allmodules collection - 2000+ does - so I can move the app up for this purpose. But now I find that a module in allmodules is an 'access object' and doesn't respond to the module.find method.

Any ideas? thanks

Peter Hall

[JConsulting]

In VBA an Access module has a find method - works perfectly to find a string inside a module. i'm working in A97 (legacy) systems (large ones) and want to write code that searches all modules so that I can check on the possible effects of a change. But the 97 modules collection is open modules only.

Access 97 doesn't have an allmodules collection - 2000+ does - so I can move the app up for this purpose. But now I find that a module in allmodules is an 'access object' and doesn't respond to the module.find method.

Any ideas? thanks

Peter Hall

Hi Pete,
I have two...that may or may not work with 97. I apologise if not, as I have no way to test them.

The first is a Joe Kendal module. The second is home grown for a specific purpose, but shows a loop through the Modules Container object.

Option Compare Database
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Function to Search for a String in a Code Module. It will return True if it is found and
'False if it is not. It has an optional parameter (NewString) that will allow you to
'replace the found text with the NewString. If NewString is not included in the call
'to the function, the function will only find the string not replace it.
'
'Created by Joe Kendall 02/07/2003
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Public Function SearchOrReplace(ByVal ModuleName As String, ByVal StringToFind As String, _
        Optional ByVal NewString, Optional ByVal FindWholeWord = False, _
        Optional ByVal MatchCase = False, Optional ByVal PatternSearch = False) As Boolean
 
    Dim mdl As Module
    Dim lSLine As Long
    Dim lELine As Long
    Dim lSCol As Long
    Dim lECol As Long
    Dim sLine As String
    Dim lLineLen As Long
    Dim lBefore As Long
    Dim lAfter As Long
    Dim sLeft As String
    Dim sRight As String
    Dim sNewLine As String
 
    Set mdl = Modules(ModuleName)
 
    If mdl.Find(StringToFind, lSLine, lSCol, lELine, lECol, FindWholeWord, _
            MatchCase, PatternSearch) = True Then
        If IsMissing(NewString) = False Then
            ' Store text of line containing string.
            sLine = mdl.Lines(lSLine, Abs(lELine - lSLine) + 1)
            ' Determine length of line.
            lLineLen = Len(sLine)
            ' Determine number of characters preceding search text.
            lBefore = lSCol - 1
            ' Determine number of characters following search text.
            lAfter = lLineLen - CInt(lECol - 1)
            ' Store characters to left of search text.
            sLeft = Left$(sLine, lBefore)
            ' Store characters to right of search text.
            sRight = Right$(sLine, lAfter)
            ' Construct string with replacement text.
            sNewLine = sLeft & NewString & sRight
            ' Replace original line.
            mdl.ReplaceLine lSLine, sNewLine
        End If
        SearchOrReplace = True
    Else
        SearchOrReplace = False
    End If
 
    Set mdl = Nothing
End Function
 
Public Sub tryme()
    Dim DB As DAO.DataBase
    Dim ctr As Container
    Dim doc As Document
    Dim amod As Module
 
    On Error Resume Next
 
    Set DB = CurrentDb
    ' Set Container object variable.
    Set ctr = DB.Containers("Modules")
    For Each modu In ctr
'        doc.Properties.Refresh
'        If doc.Name <> "MSys*" And doc.Name <> "~*" Then
'            DoCmd.OpenForm doc.Name, acDesign
'            If Forms(doc.Name).HasModule = True Then
'                DoCmd.OpenModule "Form_" & doc.Name
'                Debug.Print SearchOrReplace("Mod_" & modu.Name, "testing")
'            End If
'            DoCmd.Close acForm, doc.Name
'        End If
    Next
 
    Set ctr = Nothing
    DB.Close
    Set DB = Nothing
    Set doc = Nothing
End Sub
 
 

I'll keep looking around to see if I hve another.
J

[peterhall]

Hi, thanks for this, the second part of the code trying the container is interesting and I'll try it asap today and tell youi how it goes, thanks again for taking the time to look for this

Peter

Hi Pete,
I have two...that may or may not work with 97. I apologise if not, as I have no way to test them.

The first is a Joe Kendal module. The second is home grown for a specific purpose, but shows a loop through the Modules Container object.

Option Compare Database
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Function to Search for a String in a Code Module. It will return True if it is found and
'False if it is not. It has an optional parameter (NewString) that will allow you to
'replace the found text with the NewString. If NewString is not included in the call
'to the function, the function will only find the string not replace it.
'
'Created by Joe Kendall 02/07/2003
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Public Function SearchOrReplace(ByVal ModuleName As String, ByVal StringToFind As String, _
        Optional ByVal NewString, Optional ByVal FindWholeWord = False, _
        Optional ByVal MatchCase = False, Optional ByVal PatternSearch = False) As Boolean
 
    Dim mdl As Module
    Dim lSLine As Long
    Dim lELine As Long
    Dim lSCol As Long
    Dim lECol As Long
    Dim sLine As String
    Dim lLineLen As Long
    Dim lBefore As Long
    Dim lAfter As Long
    Dim sLeft As String
    Dim sRight As String
    Dim sNewLine As String
 
    Set mdl = Modules(ModuleName)
 
    If mdl.Find(StringToFind, lSLine, lSCol, lELine, lECol, FindWholeWord, _
            MatchCase, PatternSearch) = True Then
        If IsMissing(NewString) = False Then
            ' Store text of line containing string.
            sLine = mdl.Lines(lSLine, Abs(lELine - lSLine) + 1)
            ' Determine length of line.
            lLineLen = Len(sLine)
            ' Determine number of characters preceding search text.
            lBefore = lSCol - 1
            ' Determine number of characters following search text.
            lAfter = lLineLen - CInt(lECol - 1)
            ' Store characters to left of search text.
            sLeft = Left$(sLine, lBefore)
            ' Store characters to right of search text.
            sRight = Right$(sLine, lAfter)
            ' Construct string with replacement text.
            sNewLine = sLeft & NewString & sRight
            ' Replace original line.
            mdl.ReplaceLine lSLine, sNewLine
        End If
        SearchOrReplace = True
    Else
        SearchOrReplace = False
    End If
 
    Set mdl = Nothing
End Function
 
Public Sub tryme()
    Dim DB As DAO.DataBase
    Dim ctr As Container
    Dim doc As Document
    Dim amod As Module
 
    On Error Resume Next
 
    Set DB = CurrentDb
    ' Set Container object variable.
    Set ctr = DB.Containers("Modules")
    For Each modu In ctr
'        doc.Properties.Refresh
'        If doc.Name <> "MSys*" And doc.Name <> "~*" Then
'            DoCmd.OpenForm doc.Name, acDesign
'            If Forms(doc.Name).HasModule = True Then
'                DoCmd.OpenModule "Form_" & doc.Name
'                Debug.Print SearchOrReplace("Mod_" & modu.Name, "testing")
'            End If
'            DoCmd.Close acForm, doc.Name
'        End If
    Next
 
    Set ctr = Nothing
    DB.Close
    Set DB = Nothing
    Set doc = Nothing
End Sub
 
 

I'll keep looking around to see if I hve another.
J

[peterhall]

Hi J, thanks for this, the second part of the code trying the container is interesting and I'll try it asap today and tell youi how it goes, thanks again for taking the time to look for this

Peter