Office: Access VBA – Prüfen, ob eine PDF bereits geöffnet ist, bevor sie erneut geöffnet wird

Beschreibung:

Ich arbeite mit Access VBA und habe eine Funktion implementiert, die beim Klick auf einen Button („Unterzeichnet“) einen Bericht als PDF exportiert.

Was aktuell funktioniert:

• Beim Klick auf „Unterzeichnet“ wird die PDF erfolgreich erstellt ✅
• Die PDF wird direkt geöffnet ✅
• Die relevanten Informationen (Wer, Wann) werden im Unterformular „Dokument“ gespeichert und angezeigt ✅
• Ãœber einen „Öffnen“-Button kann die erzeugte PDF erneut geöffnet werden ✅

Mein Problem:
Wenn ich mehrfach auf den „Öffnen“-Button klicke, wird die PDF jedes Mal erneut geöffnet.

Ich möchte stattdessen prüfen:
Ob die Datei bereits geöffnet ist
Falls ja, soll eine Meldung erscheinen wie:
„Das Dokument ist bereits geöffnet“

Was ich suche:
Eine Möglichkeit in VBA zu erkennen, ob eine bestimmte PDF-Datei bereits geöffnet ist (z. B. im Standard-PDF-Viewer), bevor ich sie erneut öffne.

Frage:
Wie kann ich in Access VBA überprüfen, ob eine PDF-Datei bereits geöffnet ist, um ein mehrfaches Öffnen zu verhindern?

Mein Code:
Private Sub Oeffnen_Click()
On Error GoTo Fehler

Dim pfad As String
pfad = Nz(Me!pfad, "")

If pfad = "" Then
MsgBox "Kein PDF-Pfad gespeichert.", vbExclamation
Exit Sub
End If
If Dir(pfad) = "" Then
MsgBox "Die PDF-Datei wurde nicht gefunden.", vbExclamation
Exit Sub
End If

Dim dateiname As String
dateiname = Mid(pfad, InStrRev(pfad, "\") + 1)

Dim tempDir As String
tempDir = Environ("TEMP") & "\AccessPDF\"

If Dir(tempDir, vbDirectory) = "" Then MkDir tempDir

Dim tempPfad As String
tempPfad = tempDir & dateiname

' Prüfen, ob Temp-Datei existiert
If Dir(tempPfad) <> "" Then

' Versuch: Temp-Datei löschen
On Error Resume Next
Kill tempPfad
If Err.Number <> 0 Then
' Datei konnte NICHT gelöscht werden ? PDF ist offen
MsgBox "Das Dokument ist bereits geöffnet.", vbInformation
Exit Sub
End If
On Error GoTo Fehler
End If

' Temp-Datei neu erzeugen
FileCopy pfad, tempPfad

' PDF öffnen
Shell "cmd /c start """" """ & tempPfad & """", vbHide
Exit Sub

Fehler:
MsgBox "Fehler: " & Err.Description, vbExclamation
End Sub