Private Function checktables(tabname As String) As Boolean
 
' Ist Tabname vorhanden?
 
Dim X As TableDef
checktables = False
 
If Right(tabname, 1) <> "$" Then tabname = tabname & "$"
 
For Each X In db.TableDefs
    If X.Name = tabname Then
        checktables = True
        Exit Function
    End If
Next
MsgBox tabname & " nicht vorhanden"
 
End Function
 
Private Function checkfield(tabname As String, fieldname As String) As Boolean
 
' Ist Feldname vorhanden?
 
Dim X As Field
checkfield = False
 
If Right(tabname, 1) <> "$" Then tabname = tabname & "$"
 
For Each X In db.TableDefs(tabname).Fields
    If X.Name = fieldname Then
        checkfield = True
        Exit Function
    End If
Next
MsgBox "In Tabelle " & tabname & " Feld " & fieldname & " nicht vorhanden"
 
End Function
 
Private Sub checkrules(tabname As String)
 
' prüft jeweils eine Regel-Tabelle auf konsistenz
 
Dim X As Field
Dim y As Field
Dim rsrules As Recordset
Dim typ As String
Dim such As String
Dim found As Boolean
 
If Right(tabname, 1) <> "$" Then tabname = tabname & "$"
Set rsrules = db.OpenRecordset(tabname, dbOpenDynaset)
 
' Für alle Gruppenfelder in der Regel-Tabelle
For Each X In db.TableDefs(tabname).Fields
If Left(X.Name, 1) = "G" Then
 
    ' aus der zweiten Zeile den typ (K oder A) lesen
    rsrules.MoveFirst
    rsrules.MoveNext
    typ = rsrules.Fields(X.Name)
    rsrules.MoveFirst
 
    ' Typ A: dann muss ein Eintrag in der Groups-tabelle sein.
    If typ = "A" Then
        such = "Group='" & rsrules.Fields(X.Name) & "'"
        rsgroups.FindFirst such
        If rsgroups.NoMatch Then
            MsgBox "In " & tabname & ": Allgemeine Gruppe " & rsrules.Fields( _
              X.Name) & " nicht gefunden"
            End
        End If
    End If
 
    found = False
    ' Typ K: alle felder in der Kunden-Tabelle durchsuchen
    If typ = "K" Then
        For Each y In db.TableDefs(dbclients).Fields
        If y.Name = rsrules.Fields(X.Name) Then found = True
        Next
        If found = False Then
            MsgBox "In " & tabname & ": Kunden-Gruppe " & rsrules.Fields( _
              X.Name) & " nicht gefunden"
            End
        End If
 
    End If
 
End If
Next
 
End Sub