Code to seach all forms code

[Filips Benoit]

Dear All,

I want to seach the code of all forms for a string.
My code below only works for open forms.
I want it to work for all forms.

See *** Problem line ****

Thanks,

Filip

************************************************** *********************
Public Function SearchProjectFormsCode(ByVal strFindString As String) As
String

On Error GoTo errHandling

Dim MyForm As Object
Dim iObjectCount As Long

SearchProjectFormsCode = "String '" & strFindString & "' found in formcode:"
& Chr(13)

For Each MyForm In CurrentProject.AllForms
If FindInFormCode(MyForm.Name, strFindString) Then
SearchProjectFormsCode = SearchProjectFormsCode & Chr(13) & ">" &
MyForm.Name
iObjectCount = iObjectCount + 1
Next MyForm
SearchProjectFormsCode = SearchProjectFormsCode & Chr(13) & Chr(13) &
iObjectCount & " forms cheked!"

Exit Function

errHandling:
MsgBox Err.Number & " SearchProjectFormsCode: " & Err.Description &
Chr(13) & iObjectCount
End Function

Function FindInFormCode(strFormName As String, strSearchText As String) As
Boolean
Dim mdl As Module
Dim lngSLine As Long, lngSCol As Long
Dim lngELine As Long, lngECol As Long
Dim strLine As String, strNewLine As String
Dim intChr As Integer, intBefore As Integer, _
intAfter As Integer
Dim strLeft As String, strRight As String

Set mdl = Forms(strFormName).Module ' *** Problem line ****

If mdl.Find(strSearchText, lngSLine, lngSCol, lngELine, lngECol) Then
FindInFormCode = True
Else
FindInFormCode = False
End If

Exit_FindAndReplace:
Exit Function

Error_FindAndReplace:

MsgBox Err & " FindInFormCode: " & Err.Description
FindInFormCode = False
Resume Exit_FindAndReplace
End Function

[Brian]

"Filips Benoit" <be***********@pandora.be> wrote in message
news:BU***********************@phobos.telenet-ops.be...

Dear All,

I want to seach the code of all forms for a string.
My code below only works for open forms.
I want it to work for all forms.

See *** Problem line ****

Thanks,

Filip

************************************************** *********************
Public Function SearchProjectFormsCode(ByVal strFindString As String) As
String

On Error GoTo errHandling

Dim MyForm As Object
Dim iObjectCount As Long

SearchProjectFormsCode = "String '" & strFindString & "' found in formcode:" & Chr(13)

For Each MyForm In CurrentProject.AllForms
If FindInFormCode(MyForm.Name, strFindString) Then
SearchProjectFormsCode = SearchProjectFormsCode & Chr(13) & ">" &
MyForm.Name
iObjectCount = iObjectCount + 1
Next MyForm
SearchProjectFormsCode = SearchProjectFormsCode & Chr(13) & Chr(13) &
iObjectCount & " forms cheked!"

Exit Function

errHandling:
MsgBox Err.Number & " SearchProjectFormsCode: " & Err.Description &
Chr(13) & iObjectCount
End Function

Function FindInFormCode(strFormName As String, strSearchText As String) As
Boolean
Dim mdl As Module
Dim lngSLine As Long, lngSCol As Long
Dim lngELine As Long, lngECol As Long
Dim strLine As String, strNewLine As String
Dim intChr As Integer, intBefore As Integer, _
intAfter As Integer
Dim strLeft As String, strRight As String

Set mdl = Forms(strFormName).Module ' *** Problem line ****

If mdl.Find(strSearchText, lngSLine, lngSCol, lngELine, lngECol) Then
FindInFormCode = True
Else
FindInFormCode = False
End If

Exit_FindAndReplace:
Exit Function

Error_FindAndReplace:

MsgBox Err & " FindInFormCode: " & Err.Description
FindInFormCode = False
Resume Exit_FindAndReplace
End Function

Can't be done. You will need to open the form in design mode first, and
then close it afterwards.

DoCmd.OpenForm strFormName, View:=acDesign

[Filips Benoit]

Works OK, Thanks Brian
"Brian" <bc**@IHATESPAMclara.co.uk> wrote in message
news:10****************@dyke.uk.clara.net...

"Filips Benoit" <be***********@pandora.be> wrote in message
news:BU***********************@phobos.telenet-ops.be...

Dear All,

I want to seach the code of all forms for a string.
My code below only works for open forms.
I want it to work for all forms.

See *** Problem line ****

Thanks,

Filip

************************************************** *********************
Public Function SearchProjectFormsCode(ByVal strFindString As String) As
String

On Error GoTo errHandling

Dim MyForm As Object
Dim iObjectCount As Long

SearchProjectFormsCode = "String '" & strFindString & "' found in

formcode:"

& Chr(13)

For Each MyForm In CurrentProject.AllForms
If FindInFormCode(MyForm.Name, strFindString) Then
SearchProjectFormsCode = SearchProjectFormsCode & Chr(13) & ">" &
MyForm.Name
iObjectCount = iObjectCount + 1
Next MyForm
SearchProjectFormsCode = SearchProjectFormsCode & Chr(13) & Chr(13) &
iObjectCount & " forms cheked!"

Exit Function

errHandling:
MsgBox Err.Number & " SearchProjectFormsCode: " & Err.Description &
Chr(13) & iObjectCount
End Function

Function FindInFormCode(strFormName As String, strSearchText As String) As Boolean
Dim mdl As Module
Dim lngSLine As Long, lngSCol As Long
Dim lngELine As Long, lngECol As Long
Dim strLine As String, strNewLine As String
Dim intChr As Integer, intBefore As Integer, _
intAfter As Integer
Dim strLeft As String, strRight As String

Set mdl = Forms(strFormName).Module ' *** Problem line ****

If mdl.Find(strSearchText, lngSLine, lngSCol, lngELine, lngECol) Then FindInFormCode = True
Else
FindInFormCode = False
End If

Exit_FindAndReplace:
Exit Function

Error_FindAndReplace:

MsgBox Err & " FindInFormCode: " & Err.Description
FindInFormCode = False
Resume Exit_FindAndReplace
End Function

Can't be done. You will need to open the form in design mode first, and
then close it afterwards.

DoCmd.OpenForm strFormName, View:=acDesign

[Steve Jorgensen]

To access any module when you know its name, ...

print vbe.ActiveVBProject.VBComponents("<modulename").Co deModule

Since form module names are of the format Form_<formname>, it's easy to
generate the name of the module, and find it in the VBComponents collection.
Since not all forms must have modules, you might have to trap for the error
that occurs if the module doesn't exist.
On Sun, 10 Oct 2004 07:54:09 GMT, "Filips Benoit" <be***********@pandora.be>
wrote:

Dear All,

I want to seach the code of all forms for a string.
My code below only works for open forms.
I want it to work for all forms.

See *** Problem line ****

Thanks,

Filip

************************************************* **********************
Public Function SearchProjectFormsCode(ByVal strFindString As String) As
String

On Error GoTo errHandling

Dim MyForm As Object
Dim iObjectCount As Long

SearchProjectFormsCode = "String '" & strFindString & "' found in formcode:"
& Chr(13)

For Each MyForm In CurrentProject.AllForms
If FindInFormCode(MyForm.Name, strFindString) Then
SearchProjectFormsCode = SearchProjectFormsCode & Chr(13) & ">" &
MyForm.Name
iObjectCount = iObjectCount + 1
Next MyForm
SearchProjectFormsCode = SearchProjectFormsCode & Chr(13) & Chr(13) &
iObjectCount & " forms cheked!"

Exit Function

errHandling:
MsgBox Err.Number & " SearchProjectFormsCode: " & Err.Description &
Chr(13) & iObjectCount
End Function

Function FindInFormCode(strFormName As String, strSearchText As String) As
Boolean
Dim mdl As Module
Dim lngSLine As Long, lngSCol As Long
Dim lngELine As Long, lngECol As Long
Dim strLine As String, strNewLine As String
Dim intChr As Integer, intBefore As Integer, _
intAfter As Integer
Dim strLeft As String, strRight As String

Set mdl = Forms(strFormName).Module ' *** Problem line ****

If mdl.Find(strSearchText, lngSLine, lngSCol, lngELine, lngECol) Then
FindInFormCode = True
Else
FindInFormCode = False
End If

Exit_FindAndReplace:
Exit Function

Error_FindAndReplace:

MsgBox Err & " FindInFormCode: " & Err.Description
FindInFormCode = False
Resume Exit_FindAndReplace
End Function

[Brian]

Good answer, better suggestion than mine.

"Steve Jorgensen" <no****@nospam.nospam> wrote in message
news:31********************************@4ax.com...

To access any module when you know its name, ...

print vbe.ActiveVBProject.VBComponents("<modulename").Co deModule

Since form module names are of the format Form_<formname>, it's easy to
generate the name of the module, and find it in the VBComponents collection. Since not all forms must have modules, you might have to trap for the error that occurs if the module doesn't exist.
On Sun, 10 Oct 2004 07:54:09 GMT, "Filips Benoit" <be***********@pandora.be> wrote:

Dear All,

I want to seach the code of all forms for a string.
My code below only works for open forms.
I want it to work for all forms.

See *** Problem line ****

Thanks,

Filip

************************************************* **********************
Public Function SearchProjectFormsCode(ByVal strFindString As String) As
String

On Error GoTo errHandling

Dim MyForm As Object
Dim iObjectCount As Long

SearchProjectFormsCode = "String '" & strFindString & "' found in formcode:"& Chr(13)

For Each MyForm In CurrentProject.AllForms
If FindInFormCode(MyForm.Name, strFindString) Then
SearchProjectFormsCode = SearchProjectFormsCode & Chr(13) & ">" &
MyForm.Name
iObjectCount = iObjectCount + 1
Next MyForm
SearchProjectFormsCode = SearchProjectFormsCode & Chr(13) & Chr(13) &
iObjectCount & " forms cheked!"

Exit Function

errHandling:
MsgBox Err.Number & " SearchProjectFormsCode: " & Err.Description &
Chr(13) & iObjectCount
End Function

Function FindInFormCode(strFormName As String, strSearchText As String) AsBoolean
Dim mdl As Module
Dim lngSLine As Long, lngSCol As Long
Dim lngELine As Long, lngECol As Long
Dim strLine As String, strNewLine As String
Dim intChr As Integer, intBefore As Integer, _
intAfter As Integer
Dim strLeft As String, strRight As String

Set mdl = Forms(strFormName).Module ' *** Problem line ****

If mdl.Find(strSearchText, lngSLine, lngSCol, lngELine, lngECol) Then
FindInFormCode = True
Else
FindInFormCode = False
End If

Exit_FindAndReplace:
Exit Function

Error_FindAndReplace:

MsgBox Err & " FindInFormCode: " & Err.Description
FindInFormCode = False
Resume Exit_FindAndReplace
End Function