Microsoft Access Programmierrezepte

R6.25 Eine Tabelle temporär sperren

Aufgabe

Möchten Sie umfangreichere Veränderungen (z.B. Aktualisierung von Preisen mit UPDATE etc.) an einer oder auch mehreren Tabellen vornehmen, müssen Sie diese Tabelle(n) für andere Benutzer sperren.

Lösung

Folgende Möglichkeit bietet sich an:

Sub Tabellesperren()
Dim db As Database
Dim tb  As Recordset
    Set db = DBEngine.Workspaces(0).OpenDatabase("c:\test1.accdb")
    Set tb = db.OpenRecordset("Artikel", dbOpenTable, dbDenyWrite Or dbDenyRead)
    MsgBox "Warten ..."
    tb.Close
    db.Close
End Sub

In anderen Access-Instanzen erscheint nun die folgende Meldung beim Öffnen der Tabelle:

Abbildung 6.17 Fehlermeldung

Wollen Sie nur ...