AW: Accessdatei geöffnet ?
Dieter
Hallo rolf,
du kannst das z.B. folgendermaßen prüfen (Lösung habe ich selbst mal aus diesem Forum bekommen):
Sub Test_DateiWirdBenutzt()
Dim dat As String
Dim pfad As String
pfad = "\\G2200\D\VBA_Test\"
dat = pfad & "nlicht.mdb"
MsgBox "Datei " & vbNewLine & dat & vbNewLine & _
"wird benutzt: " & DateiWirdBenutzt(dat)
End Sub
Function DateiWirdBenutzt(Datei As String) _
As Boolean
' = True: Datei ist bereits von einem
' anderen Benutzer geöffnet worden
On Error GoTo ErrHandler
Name Datei As Datei
Exit Function
ErrHandler:
Select Case Err.Number
Case 75
DateiWirdBenutzt = True
Case Else
Err.Raise Err.Number
End Select
End Function
MfG
Dieter