Hallo Leute,
Ich habe ein Formular, das u.a. eine Tabellenerstellungsabfrage ausführt. Vorher wird natürlich die alte Tabelle gelöscht.
Jedenfalls ist die betreffende Tabelle gesperrt wenn MS Word gerade mit der Tabelle verbunden ist - das führt dann zu einer Fehlermeldung.
Jetzt suche ich nach einer Möglichkeit den Zustand der Tabelle gesperrt/freigegeben zu prüfen und die Ausführung rechtzeitig abzubrechen zu können.
Vielen Dank schon mal.
Man könnte so vorgehen. Dim rs AS DAO.Recordset
On Error Resume Next
Set rs = CurrentDb().OpenRecordset("tabellenname", dbOpenTable, dbDenyWrite Or dbDenyRead)
If Err Then
MsgBox "Tabelle ist in Verwendung"
Else
rs.Close
'Tabelle kann gelöscht werden
End If
PS: Alternativ könnte man auch die Daten der Tabelle löschen und anschließend eine Anfügeabfrage laufen lassen.
Vielen Dank schon mal aber im Anschluss an die Neuerstellung der DB, führ das in Word zu folgender Fehlermeldung:
ZitatFehler: Die Datenbank wurde vom Benutzer 'Admin' auf Computer 'EDV1' in einen Status versetzt, in dem sie nicht geöffnet oder gesperrt werden kann.
Alles Käse - mir ist ein grandioser Denkfehler unterlaufen!
Gerade eben habe ich festgestellt, dass MS-Word auch Auswahlabfragen als Empfängerlisten verarbeiten kann.
Anstatt eine Tabellenerstellungsabfrage für die Serienbriefe zu verwenden und dann in Word diese Tabelle als Empfängerliste zu wählen, hätte ich direkt die Auswahlabfrage verwenden sollen und hätte garnicht erst die Probleme mit der exklusiven Verwendung gehabt.