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:
Doch mit zwei Formularen klappt es nicht:
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
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:
Code:
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:
Code:
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