title image


Smiley Re: Formulare schließen
Versuchs mal damit:Function CloseAllForms() Dim frm As Form Dim FormNummer, i As Integer FormNummer = 0 i = 0 While Forms.count > 1 i = i + 1 Set frm = Forms(FormNummer) If frm.FormName = "zUtilityServer" Then FormNummer = 1 Else If frm.Modal Then frm.Modal = False If frm.PopUp Then frm.PopUp = False DoCmd.Close acForm, frm.Name End If wendEnd Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: