Fehlermeldung beri Verwendung von EOF

06/12/2008 - 20:21 von Marion Hildebrandt | Report spam
Guten Abend!

Bei folgender Sub erhalte ich die Fehlermeldung: "Fehler beim Kompilieren.
Unzulàssige Verwendung einer Eigenschaft." und "EOF" aus der vorletzten
Zeile der Sub ist markiert. Wenn ich die Do While Schleife herausnehme und
der erste Datensatz in Tabelle tblDateiVerschieben die Bedingung erfüllt,
wird der VBA Code exakt ausgeführt. Das Anliegen dieser Sub habe ich in
meiner vorangegangen Frage "Zugriff auf Tabelleninhalt ohne Formular"
formuliert. Ich komme im Moment nicht weiter und es wàre prima, wenn jemand
einen Tip für mich hat.

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strFilename, strFilepathTemp As String

Set db = CurrentDb
Set rs = db.OpenRecordset("tblDateiVerschieben", dbOpenDynaset)

Do While Not rs.EOF
If IsNull(rs!DatumZurück) Then
strFilename = rs!Dateipfad
strFilepathTemp = rs!DateipfadTemp

If FilepathExists(strFilepathTemp) = True Then

Name strFilepathTemp As strFilename
rs.Edit
rs!DatumZurück = Date
rs.Update
End If
End If
rs.EOF
Loop

Viele Grüße aus Hamburg
Marion
 

Lesen sie die antworten

#1 Jörg Ackermann
06/12/2008 - 20:33 | Warnen spam
Hallo,

Marion Hildebrandt meinte:

Bei folgender Sub erhalte ich die Fehlermeldung: "Fehler beim
Kompilieren. Unzulàssige Verwendung einer Eigenschaft." und "EOF"
aus der vorletzten Zeile der Sub ist markiert.



Statt rs.eof muß dort rs.movenext stehen.

Gruß

Ähnliche fragen