bestimmte Formulare schließen

[fred-neumann]

Hallo Access Experten.
Zum schließen -ausgehend von meinem "Hauptformular" aller darauf folgenden Formulare, habe ich den Code:

Code [Auswählen] Erweitern


Public Function CloseAllForms(Optional BesidesThisOne As String)
Dim i As Long, FrmName As String
For i = Forms.Count - 1 To 0 Step -1
  FrmName = Forms(i).Name
  If FrmName <> BesidesThisOne Then
    DoCmd.Close acForm, FrmName, acSaveYes
  End If
Next i
End Function


Meine Frage: Ist es per vba möglich, alle Formulare die vom Namen "Z1" beginnen, zu schließen?

[Beaker s.a.]

Code [Auswählen] Erweitern

If Left(FrmName, 2) = "Z1" Then

[fred-neumann]

Hallo Beaker,
ich bin absolut kein vba`ler, nehme an, das ich es hier einsetze:

Code [Auswählen] Erweitern


Public Function CloseZ1(Optional BesidesThisOne As String)
Dim i As Long, FrmName As String
If Left(FrmName, 2) = "Z1" Then
For i = Forms.Count - 1 To 0 Step -1
  FrmName = Forms(i).Name

  If FrmName <> BesidesThisOne Then
    DoCmd.Close acForm, FrmName, acSaveYes
  End If

Next i
End Function

aber wo das "end If"
Oder meinst du ein vba " mit "If Left(FrmName, 2) = "Z1" Then" und "DoCmd.Close acForm"
Wie füge ich es ein?

[fred-neumann]

Beaker, - alles kloar!
nach "experimenten":

Code [Auswählen] Erweitern


Public Function CloseZ1(Optional BesidesThisOne As String)
Dim i As Long, FrmName As String

For i = Forms.Count - 1 To 0 Step -1
  FrmName = Forms(i).Name

If Left(FrmName, 2) = "Z1" Then

    DoCmd.Close acForm, FrmName, acSaveYes
  End If

Next i
End Function


Danke für die Mühe,- der Code vereinfacht mir vieles!

mfg
Fred