Attribute VB_Name = "modRechte"
Public Function MitarbeiterStationRecht(VarKellnerLokal, VarStationLokal)

Dim objConn As New ADODB.Connection
Dim rsRechte As New ADODB.Recordset
Dim strPath As String


On Error GoTo err_Handler

Set objConn = New ADODB.Connection
Set rsRechte = New ADODB.Recordset

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
 
  'Stationberechigung vom Kellner überprüfen

  With rsRechte
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Kellner Where Mitarbeiter = '" & VarKellnerLokal & "' "
  End With

  If Not rsRechte.EOF = True Then
   
    If rsRechte.Fields(VarStationLokal).Value = True Then 'für diesen Kellner überprüffen
      MitarbeiterStationRecht = True
    Else
      MitarbeiterStationRecht = False
    End If

 End If
  

exit_Sub:
 Set rsRechte = Nothing
 Set objConn = Nothing

 On Error GoTo 0
 Exit Function
 
err_Handler:
 MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
 Resume exit_Sub
End Function
Public Function MitarbeiterRecht(VarKellnerLokal, VarMitarbeiterRechtLokal)

Dim objConn As New ADODB.Connection
Dim rsRechte As New ADODB.Recordset
Dim strPath As String


On Error GoTo err_Handler

Set objConn = New ADODB.Connection
Set rsRechte = New ADODB.Recordset

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
 
  'Stationberechigung vom Kellner überprüfen
  With rsRechte
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM Kellner Where Mitarbeiter = '" & VarKellnerLokal & "' "
  End With
 If Not rsRechte.EOF = True Then
     If rsRechte.Fields(VarMitarbeiterRechtLokal).Value = True Then 'für diesen Kellner überprüffen
     MitarbeiterRecht = True
    Else
     MitarbeiterRecht = False
    End If
  End If
exit_Sub:
 Set rsRechte = Nothing
 Set objConn = Nothing

 On Error GoTo 0
 Exit Function
 
err_Handler:
 MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
 Resume exit_Sub
End Function
Public Function TischNummerAbfrage(VarTischLokal)

Dim objConn As New ADODB.Connection
Dim rsTischNummerAbfrage As New ADODB.Recordset
Dim strPath As String


On Error GoTo err_Handler

Set objConn = New ADODB.Connection
Set rsTischNummerAbfrage = New ADODB.Recordset

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
 
  'Stationberechigung vom Kellner überprüfen

  With rsTischNummerAbfrage
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM OffeneTische Where Tisch= '" & VarTischLokal & "' "
  End With
 
 If Not rsTischNummerAbfrage.EOF = True Then
     TischNummerAbfrage = True
    Else
     TischNummerAbfrage = False
 End If
  

exit_Sub:
 Set rsTischNummerAbfrage = Nothing
 Set objConn = Nothing

 On Error GoTo 0
 Exit Function
 
err_Handler:
 MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
 Resume exit_Sub
End Function
Public Function TischKellnerAbfrage(VarTischLokal, VarKellnerLokal)

Dim objConn As New ADODB.Connection
Dim rsTischKellnerAbfrage As New ADODB.Recordset
Dim strPath As String


On Error GoTo err_Handler

Set objConn = New ADODB.Connection
Set rsTischKellnerAbfrage = New ADODB.Recordset

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & strPath & "asql.mdb"
    .CursorLocation = adUseClient
    .Open
  End With
 
  'Stationberechigung vom Kellner überprüfen

  With rsTischKellnerAbfrage
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select *FROM OffeneTische Where Tisch= '" & VarTischLokal & "' and Kellner = '" & VarKellnerLokal & "' "
  End With
 
 If Not rsTischKellnerAbfrage.EOF = True Then
     TischKellnerAbfrage = True
    Else
     TischKellnerAbfrage = False
 End If
  

exit_Sub:
 Set rsTischKellnerAbfrage = Nothing
 Set objConn = Nothing

 On Error GoTo 0
 Exit Function
 
err_Handler:
 MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
 Resume exit_Sub
End Function