Tipp 1.12 - Ist Replikat

Wie kann ich ermitteln, ob es sich bei der aktuellen Datenbank um ein Replikat handelt?

Mit dieser Funktion können Sie ermitteln, ob es sich bei der aktuellen Datenbank um ein Replikat handelt. 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 Function A2XIsDbReplica() As Boolean
  '// =====================================================
  '// Methode   | Ermittelt, ob es sich bei der aktuellen
  '//           | DB um ein Replikat handelt
  '// -----------------------------------------------------
  '// Rückgabe  | Boolean - True / Ja, False / Nein
  '// -----------------------------------------------------
  '// Erstellt  | Manuela Kulpa
  '//           | EDV Innovation & Consulting - Dormagen
  '// =====================================================
 
  On Error Resume Next
  Dim lError As Long
 
  If CurrentDb.Properties("Replicable") = "T" Then
    lError = Err.Number
    On Error GoTo HandleErr
    If lError = 3270 Then
      ' DB ist kein Replikat
      A2XIsDbReplica = False
    Else
      ' DB ist der Design Master oder ein Replikat
      A2XIsDbReplica = True
    End If
  Else
    On Error GoTo HandleErr
  End If
 
HandleExit:
  Exit Function
 
HandleErr:
  Select Case Err.Number
    Case Else
      MsgBox "Fehler " & Err.Number & ": " & _
             Err.Description, vbCritical, _
             "basInfo.A2XIsDbReplica"
  End Select
  Resume HandleExit
End Function


Zurück Tipp 1.11 - VBA-Projekt kompilieren | Inhalt | Tipp 1.13 - Access Objekt offen Weiter