Formulare schließen

[Aitutaki]

Hallo allerseits,

ich möchte mit einer Public Function in einem Modul alle evtl. geöffneten Formulare schließen, nur das Startformular und, falls geöffnet, das Hauptformular sollen geöffnet bleiben:

Mit einem Formular klappt es einwandfrei:

Public Function Formulare_Schliessen()
   Dim I As Integer
   For I = Forms.Count - 1 To 0 Step -1
   If Forms(I).Name <> "frm_StartForm" Then
      DoCmd.Close acForm, Forms(I).Name
   End If
   Next I
End Function

Doch mit zwei Formularen klappt es nicht:

Public Function Formulare_Schliessen()
   Dim I As Integer
   For I = Forms.Count - 1 To 0 Step -1
   If Forms(I).Name <> "frm_StartForm" Or "frm_HauptForm" Then
      DoCmd.Close acForm, Forms(I).Name
   End If
   Next I
End Function

Bekomme hier die Fehlemeldung 13 (Typen unverträglich).
Setze ich statt "Or" ein "And", kommt die gleiche Meldung.

Hat jemand eine Idee?
Danke schonmal und Gruß
Robert

 

[Aitutaki]

Hallo Forumler,

kennt sich jemand mit diesem Fall aus und hat eine Idee?
Ich kriege den 2. Code leider nicht zum Laufen.

Viele Grüße Robert

 

[Aitutaki]

Hallo,

habe es jetzt nach langen Versuchen in allen möglichen Variationen selbst herausgefunden.
Bis es funktioniert hat und keine Fehlermeldungen mehr gekommen sind, habe ich lange herumgebastelt.

Public Function Formulare_Schliessen()
   Dim I As Integer
   For I = Forms.Count - 1 To 0 Step -1
   If Forms(I).Name <> "frm_StartForm" And Forms(I).Name <> "frm_HauptForm" Then
      DoCmd.Close acForm, Forms(I).Name
   End If
   Next I
End Function

Man könnte jetzt den Code auch um weitere Formulare erweitern, die geöffnet bleiben sollen, wenn man es wollte.

Viele Grüße Robert