Sub Schaltflaechenaktualisieren(frm As Form)
 On Error GoTo Schaltflaechenaktualisieren_Fehler
 'Focus auf immer auswählbare Schaltfläche setzen
 frm.Controls("cmdopen_Hauptmenue").SetFocus
 
 If Satzposition(frm) = -1 Then
  'kein aktueller Datensatz positioniert
  frm.Controls("cmdFirst").Enabled = False
  frm.Controls("cmdPrev").Enabled = False
  frm.Controls("cmdNext").Enabled = False
  frm.Controls("cmdLast").Enabled = False
  frm.Controls("cmdDelete").Enabled = False
  frm.Controls("cmdSave").Enabled = False
 Else
  frm.Controls("cmdFirst").Enabled = True
  frm.Controls("cmdPrev").Enabled = True
  frm.Controls("cmdNext").Enabled = True
  frm.Controls("cmdLast").Enabled = True
  frm.Controls("cmdDelete").Enabled = True
  frm.Controls("cmdSave").Enabled = True
 End If
 If Satzposition(frm) = 0 Then
  'Erster Datensatz positioniert
  frm.Controls("cmdFirst").Enabled = False
  frm.Controls("cmdPrev").Enabled = False
 End If
 If Satzposition(frm) = frm.RecordsetClone.RecordCount - 1 Then
  'Letzter Datensatz positioniert
  frm.Controls("cmdNext").Enabled = False
  'frm.Controls("cmdLast").Enabled = False
 End If
 If frm.NewRecord Then
  frm.Controls("cmdNew").Enabled = False
  frm.Controls("cmdDelete").Enabled = False
  frm.Controls("cmdNext").Enabled = False
  frm.Controls("cmdPrev").Enabled = False
    frm.Controls("cmdLast").Enabled = True
    frm.Controls("cmdFirst").Enabled = True
  frm.Controls("cmdSave").Enabled = True
 Else
  frm.Controls("cmdNew").Enabled = True
 End If
 
 'Falls der Anwender keine Neuanlageberechtigung besitzt, Schaltfläche 
 ' ausblenden
 'DbSecInsertData
  If CheckDbSecInsertData(frm.RecordSource) Then
   frm.Controls("cmdNew").Visible = True
  Else
   frm.Controls("cmdNew").Enabled = False
  End If
 'Falls der Anwender keine Loeschberechtigung besitzt, Schaltfläche ausblenden
  'DbSecDeleteData
  If CheckDbSecDeleteData(frm.RecordSource) Then
   frm.Controls("cmdDelete").Visible = True
  Else
   frm.Controls("cmdDelete").Enabled = False
  End If
 'Falls der Anwender keine Änderungsberechtigung besitzt, Schaltfläche 
 ' ausblenden
  'DbSecReplaceData
  If CheckDbSecReplaceData(frm.RecordSource) Then
   frm.Controls("cmdSave").Visible = True
   Eingabesperre frm, False
  Else
   frm.Controls("cmdSave").Enabled = False
   Eingabesperre frm, True
  End If
 
 'Nur sicht- und auswählbare Schaltflächen können den Focus erhalten
  frm.Controls("cmdopen_Hauptmenue").SetFocus
 
Schaltflaechenaktualisieren_Fehler:
If Err.Number <> 0 Then
MsgBox Err.Number & " " & Err.Description & " " & " " & _
  "MModulGlobal-Schaltflaechenaktualisieren"
Resume Schaltflaechenaktualisieren_Exit
End If
 
Schaltflaechenaktualisieren_Exit:
    Exit Sub
End Sub
 
 
Function Satzposition(frm As Form)
Dim rst As DAO.Recordset
On Error GoTo Satzposition_fehler
Set rst = frm.RecordsetClone
If Not frm.NewRecord Then
    rst.Bookmark = frm.Bookmark
End If
Satzposition = rst.AbsolutePosition
rst.Close
Set rst = Nothing
 
Satzposition_fehler:
If Err.Number <> 0 Then
    MsgBox Err.Number & " " & Err.Description & " " & " " & _
      "MModulGlobal-Function Satzposition"
    Resume Exit_Satzposition_Fehler
End If
 
Exit_Satzposition_Fehler:
    Exit Function
 
End Function