Alle geöffneten Formulare schliessen

Nachfolgend eine Funktion zum Schließen aller geöffneter Formulare.

Code:

Function AlleFormulareSchliessen()   '---------------------------------------------------------- ' Funktion zum Schließen aller geöffneten Formulare. Steht ' "SetWarnings=False" werden alle Formulare gespeichert ' und geschlossen, steht "SetWarnings=True" wird vor dem ' Speichern gefragt. '----------------------------------------------------------   Dim f As Form Dim n As Integer Dim i As Integer   i = 0 While Forms.Count > 0 i = i + 1 Set f = Forms(n) DoCmd.Close acForm, f.Name Wend If i = 1 Then MsgBox "Es wurde ein Formular geschlossen!", 64 Else MsgBox "Es wurden " & i & " Formulare geschlossen!", 64 End If   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!