R6.23 Testen, ob ein Datensatz gesperrt ist

Aufgabe

Sie möchten testen, ob ein einzelner Datensatz gesperrt ist.

Lösung (DAO)

Verwenden Sie die folgende Funktion:

Function IsLocked (Rs As Recordset)
On Error GoTo openFehler

  IsLocked = False
  Rs.Edit          ' Versuch, den Datensatz zu öffnen
  Rs.CancelUpdate  ' Abbruch des Editierens.
  Exit Function

openFehler:        ' konnte nicht geöffnet werden
  IsLocked = True
  Resume Next
  Exit Function
End Function

Get Microsoft Access Programmierrezepte now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial