[AccessD] Close All Forms

On 8/19/05, Barbara Ryan <BarbaraRyan at cox.net> wrote:
> I have used the following code successfully in Access 97 to close all forms when a specific function key is pressed.  However, in Access 2002, this code causes the error box to appear (with the 2 options to send an error report to Microsoft or not) and then closes Access.  Does anyone know why?
> 
>     Function CloseAllForms()
>         Dim i As Integer
>         ' Loop through the collection of open forms and close them (except for the main menu)
>         If Forms.Count > 0 Then
>             For i = Forms.Count - 1 To 0 Step -1
>                 If Forms(i).Name <> "frmMainMenu" Then
>                     DoCmd.Close acForm, Forms(i).Name
>                 End If
>             Next i
>         End If
>     End Function

Can you trace the specific line that it dies on? (IE Set a breakpoint
on DoCmd and see if it ever fires for each form.)

-- 
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein