PDA

Vollständige Version anzeigen : Kompilierungsfehler!!


kessi
21.01.2001, 16:43
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

Heathen
02.02.2001, 10:51
Hallo Tom,
ich gehe mal von dem Fall aus, daß es eine lokale Tabelle unter Access ist von der Du redest. Dann sollte folgendes Dir helfen:

Function DatumAuslesen(Prüfdaten As Variant)


Dim RS As DAO.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