Getting rid of unused subforms

[dabeck]

While "creating" forms I often end up with xyz subform1, xyz subform2, etc
is there an easy way to see if a particular version of a subform is "being
used" as part of a form?

 

[John Vinson]

While "creating" forms I often end up with xyz subform1, xyz subform2, etc
is there an easy way to see if a particular version of a subform is "being
used" as part of a form?

Not terribly easily. There are some third party tools to do this kind
of thing (and much more):

Find and Replace http://www.rickworld.com
Speed Ferret http://www.moshannon.com
Total Access Analyzer http://www.fmsinc.com

 

[John Vinson]

While "creating" forms I often end up with xyz subform1, xyz subform2, etc
is there an easy way to see if a particular version of a subform is "being
used" as part of a form?

postscript I forgot to add...

A tedious but free method is to rename each subform in turn (say to
[xyz subform2_X] ), and open all your production forms. If you get an
error you can just rename the subform back; if not, delete it.

 

[Douglas J. Steele]

While "creating" forms I often end up with xyz subform1, xyz subform2, etc
is there an easy way to see if a particular version of a subform is "being
used" as part of a form?

postscript I forgot to add...

A tedious but free method is to rename each subform in turn (say to
[xyz subform2_X] ), and open all your production forms. If you get an
error you can just rename the subform back; if not, delete it.

The following code will list all subform controls (and the form they point
to) on all forms:

Sub FindSubforms()
Dim dbCurr As DAO.Database
Dim conForms As DAO.Container
Dim docCurr As DAO.Document
Dim ctlCurr As Control
Dim frmCurr As Form
Dim intLoop As Integer

DoCmd.Hourglass True

Set dbCurr = CurrentDb()
Set conForms = dbCurr.Containers!Forms
With conForms
For Each docCurr In .Documents
DoCmd.OpenForm docCurr.Name, acDesign, , , acFormReadOnly,
acHidden
Set frmCurr = Forms(docCurr.Name)
For Each ctlCurr In frmCurr.Controls
If ctlCurr.ControlType = acSubform Then
Debug.Print frmCurr.Name & " contains " & ctlCurr.Name &
_
" which uses subform " & ctlCurr.SourceObject
End If
Next ctlCurr
DoCmd.Close acForm, frmCurr.Name, acSaveNo
Next docCurr
End With

Set ctlCurr = Nothing
Set frmCurr = Nothing
Set docCurr = Nothing
Set conForms = Nothing
Set dbCurr = Nothing

DoCmd.Hourglass False

End Sub

 

[Ron Weiner]

Very Nice!

Ron W

While "creating" forms I often end up with xyz subform1, xyz subform2, etc
is there an easy way to see if a particular version of a subform is "being
used" as part of a form?

postscript I forgot to add...

A tedious but free method is to rename each subform in turn (say to
[xyz subform2_X] ), and open all your production forms. If you get an
error you can just rename the subform back; if not, delete it.

The following code will list all subform controls (and the form they point
to) on all forms:

Sub FindSubforms()
Dim dbCurr As DAO.Database
Dim conForms As DAO.Container
Dim docCurr As DAO.Document
Dim ctlCurr As Control
Dim frmCurr As Form
Dim intLoop As Integer

DoCmd.Hourglass True

Set dbCurr = CurrentDb()
Set conForms = dbCurr.Containers!Forms
With conForms
For Each docCurr In .Documents
DoCmd.OpenForm docCurr.Name, acDesign, , , acFormReadOnly,
acHidden
Set frmCurr = Forms(docCurr.Name)
For Each ctlCurr In frmCurr.Controls
If ctlCurr.ControlType = acSubform Then
Debug.Print frmCurr.Name & " contains " & ctlCurr.Name &
_
" which uses subform " & ctlCurr.SourceObject
End If
Next ctlCurr
DoCmd.Close acForm, frmCurr.Name, acSaveNo
Next docCurr
End With

Set ctlCurr = Nothing
Set frmCurr = Nothing
Set docCurr = Nothing
Set conForms = Nothing
Set dbCurr = Nothing

DoCmd.Hourglass False

End Sub