Tipp 1.13 - Access Objekt offen

Wie kann ich ermitteln, ob das angegebene Access Objekt geöffnet ist?

Mit dieser Funktion können Sie ermitteln, ob das angegebene Access Objekt geöffnet ist. 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.

ab Access 2000Hinweis: Durch spezielle Anweisungen können Sie diese Funktion erst ab Access 2000 einsetzen.

Beispiel:

Option Explicit
 
Public Enum eJetObjectType
  A2XTypeTable = 0
  A2XTypeQuery = 1
  A2XTypeRelation = 6
  A2XTypeForm = 2
  A2XTypeReport = 3
  A2XTypeMacro = 4
  A2XTypeModule = 5
End Enum
 
Public Function A2XIsObjectOpen(peType As eJetObjectType, _
                                psName As String) _
                                As Boolean
  '// =====================================================
  '// Methode   | Ermittel, ob das angegebene Objekt ge-
  '//           | öffnet ist
  '// -----------------------------------------------------
  '// Parameter | pEType - Objekttyp
  '//           | psName - Name des Objektes
  '//           |          Das Enum eJetObjectType sollte
  '//           |          vorab auf Modulebene deklariert
  '//           |          sein!
  '// -----------------------------------------------------
  '// Rückgabe  | Boolean - True / False
  '// -----------------------------------------------------
  '// Erstellt  | Manuela Kulpa
  '//           | EDV Innovation & Consulting - Dormagen
  '// =====================================================
 
  A2XIsObjectOpen = (SysCmd(acSysCmdGetObjectState, _
                     peType, psName) <> 0)
 
End Function


Zurück Tipp 1.12 - Ist Replikat | Inhalt | Tipp 1.14 - Ist DB exklusiv Weiter