Kompilierungsfehler!

Computer: Software & Programmierung Microsoft Access
#1

Hi,
manchmal sieht man den Wald vor lauter Bäumen nicht mehr. Ich habe folgende Funktion zum auslesen des Datums geschrieben. Beim Ausführen bekomme ich immer einen Kompilierungsfehler. Da ich schon den ganzen Tag mit grübeln und lesen verbringe, möchte ich Euch doch mal den Code zeigen, in der Hoffnung, daß Ihr einen Fehler erkennt.

Function DatumAuslesen(Prüfdaten As Variant)

DIM RS AS RecordSet
DIM DB AS DataBase

Set Db = Application.CurrentDb
Set RS = Db.OpenRecordset(„Prüfdaten“, dbOpenTable.dbReadOnly)

DIM vDatum AS Variant

RS.MoveFirst

vDatum = RS.Fields(„Datum“).Value

End Function

Gruß
Tom

#2

Hallo Tom,
hast Du unter Extras Verweise die DAO3.6 angegeben ??
Gruß
PKH

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Schreibfehler?

Function DatumAuslesen(Prüfdaten As Variant)

DIM RS AS RecordSet
DIM DB AS DataBase

Set Db = Application.CurrentDb
Set RS = Db.OpenRecordset(„Prüfdaten“, dbOpenTable.dbReadOnly)

DIM vDatum AS Variant

RS.MoveFirst

vDatum = RS.Fields(„Datum“).Value

End Function

Servus Tom,

zum einen gibt es einen Schreibfehler bei

Set RS = DB.OpenRecordset("Prüfdaten", dbOpenTable, dbReadOnly)

Zum anderen solltest du daran denken, dass deine Funktion auch einen Wert zurückgeben sollte. Der Rückgabewert ist nicht gesetzt.

Dirk