Sub ShowFormHasModule()
On Error GoTo Err_Handler
Dim db As DAO.Database
Dim doc As DAO.Document
Dim lngFormCount As Long
Set db = CurrentDb
For Each doc In db.Containers("Forms").Documents
DoCmd.OpenForm doc.name, acDesign, WindowMode:=acHidden
With Forms(doc.name)
lngFormCount = lngFormCount + 1
Debug.Print .name & " - Has Module " & .HasModule
DoCmd.Close acForm, .name
End With
Next doc
Exit_Point:
Set doc = Nothing
Set db = Nothing
MsgBox "*** Scanned " & lngFormCount & " forms."
Exit Sub
Err_Handler:
MsgBox Err.Description, vbExclamation, "Error " & Err.number
Resume Exit_Point
End Sub
Function FormHasModule(ByVal FormName As String) As Boolean
[COLOR="Green"] 'ensure that given FormName is prefixed with 'Form_'[/COLOR]
If left(FormName, 5) <> "Form_" Then FormName = "Form_" & FormName
[COLOR="Green"] 'if this reference fails then the form does not have a module
'since form modules are VB Components[/COLOR]
On Error Resume Next
FormHasModule = VBE.ActiveVBProject.VBComponents.Item(FormName).Name = FormName
End Function
Public Sub FormModulesWithNoCode()
Dim obj As AccessObject
For Each obj In Application.CurrentProject.AllForms
On Error Resume Next
[color=green]' From lagbolt.[/color]
Debug.Print VBE.ActiveVBProject.VBComponents.Item("Form_" & obj.Name).Name;
If Err.Number = 0 Then
DoCmd.OpenForm obj.Name, acViewDesign
If Forms(obj.Name).Module.CountOfLines = 0 Then
Debug.Print " <<< has module with no code."
Else
Debug.Print
End If
DoCmd.Close acForm, obj.Name, acSaveNo
End If
Next obj
End Sub
