Hallo, ich hoffe ich nerve nicht zu sehr ab 
In der Tabelle „Frage“ habe ich eine Spalte mit Dateilinks,
die ich auf Existenz überprüfen möchte, andernfalls soll
eine Fehlermeldung eingetragen werden.
Ich hatte folgende Idee, bekomme aber die Fehlermeldung, dass die Datenbank oder das Objekt schreibgeschützt ist:
Hat vielleicht jemand eine Idee?
Danke und Grüße…
Public Sub check_links()
Dim dbs As Database, qdf As DAO.QueryDef, rst As DAO.Recordset
Dim tmpSQL As String
Dim boolNext As Boolean
Const tmpAbfrage = „tmpLinks“
’ Bezug auf aktuelle Datenbank zurückgeben.
Set dbs = CurrentDb
'Mögliche Abfrage löschen
If TabVorhanden(tmpAbfrage) = True Then dbs.QueryDefs.Delete (tmpAbfrage)
’ SQL-Anweisung zusammenstellen.
tmpSQL = „Select distinct frage.link from frage;“
’ Neue Abfrage erstellen.
Set qdf = dbs.CreateQueryDef(tmpAbfrage, tmpSQL)
’ Recordset-Objekt aus einem QueryDef-Objekt
Set rst = qdf.OpenRecordset(dbOpenDynaset)
boolNext = True
rst.MoveFirst
Do
If (IsNull(rst!Link) = False) Then
If (FileExists(rst!Link) = False) Then
Fehler-> rst!Link = FileNotFound
rst.Update
End If
End If
rst.MoveNext
If rst.EOF = True Then boolNext = False
'boolNext = rst.NextRecordset
Loop While boolNext = True
’ rst.Update
'Löschen der Temporären Abfrage
dbs.QueryDefs.Delete tmpAbfrage
rst.Close
Set dbs = Nothing
End Sub