Looping through all forms and deleting them

[zevw]

I am looping through a Database and want to delete all its Forms, in the middle of looping it gives me a error the object or Name does not exist or invalid.

Is there a more proper way how to do this?

Dim frmName As String, i As Integer

    For i = 0 To CurrentProject.AllForms.Count - 1
      frmName = CurrentProject.AllForms(i).Name
      [COLOR=#73D216]'On Error Resume Next[/color]
      DoCmd.DeleteObject acForm, frmName
    Next I

 

[PHV]

Replace this:
For i = 0 To CurrentProject.AllForms.Count - 1
with this:
For i = CurrentProject.AllForms.Count - 1 To 0 Step -1

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[zevw]

Thanks!