Tipp 2.5 - Schließen ohne Fehler

Wie kann ich ein angegebenes Formular ohne Fehler schließen?

Mit dieser Funktion können Sie ein angegebenes Formular ohne Fehler schließen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Sub A2XFrmClose(psForm As String)
  '// =====================================================
  '// Methode   | Schließt das angegebene Formular ohne
  '//           | Fehler
  '// -----------------------------------------------------
  '// Parameter | psForm - Name des Formulars
  '// -----------------------------------------------------
  '// Erstellt  | Manuela Kulpa - Sep, 2002
  '//           | EDV Innovation & Consulting - Dormagen
  '// =====================================================
  On Error GoTo HandleErr
  If SysCmd(acSysCmdGetObjectState, _
            acForm, psForm) <> 0 Then
    DoCmd.Close acForm, psForm
  End If
 
HandleExit:
  Exit Sub
 
HandleErr:
  Select Case Err.Number
    Case Else
      MsgBox "Fehler " & Err.Number & ": " & _
             Err.Description, vbCritical, _
             "basFrm.A2XFrmClose"
  End Select
  Resume HandleExit
End Sub


Zurück Tipp 2.4 - Controls de- bzw. aktivieren | Inhalt | Tipp 2.6 - Controls in Array Weiter