Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA Fehler, immer wieder VBA Fehler...

30 views
Skip to first unread message

Meier Rudolf

unread,
Sep 3, 2002, 7:49:31 PM9/3/02
to
Hallo

hier schnell mein VBA Code... ist ja eigentlich ganz einfach... denk ich mal


Dim Db As Database
Dim Rcset As Recordset

Set Db = CurrentDb

Set Rcset = Db.OpenRecordset("Adressen", dbOpenTable)

Dim a As Integer
a = Rcset.RecordCount

Rcset.Close


-> und hier das Problem... in der Zeile mit Set Rcset ... krieg ich den
Fehler 13 "Typen unverträglich" ... wieso? was mach ich falsch? (Access
2002, es gibt eine Tabelle namens "Adressen")... ich hab so viele Beispiele
gesehen, die alle eigentlich dasselbe tun... aber irgendwie doch nicht...
was könnte fehlen? evtl. nicht mal an der Prozedur, sondern irgendwo anders?

ich wäre wirklich dankbar, wenn mir da jemand helfen kann
danke
MR

Lara

unread,
Sep 3, 2002, 8:10:39 PM9/3/02
to
Dim Db As DAO.Database
Dim Rcset As DAO.Recordset

mfg Lara ;-)

karsten euting

unread,
Sep 4, 2002, 12:24:35 AM9/4/02
to
moin zusammen,

"Lara" <j-...@t-online.de> schrieb

> Dim Db As DAO.Database
> Dim Rcset As DAO.Recordset

... und zusätzlich Verweis setzen auf DAO 3.6 - IMHO nicht 3.51

gruß

karsten


Tu Dang

unread,
Sep 4, 2002, 2:34:44 AM9/4/02
to
moin,

karsten euting schrieb:

... und vor dem .RecordCount ein .MoveLast setzen :-)

Gruß
Tu

Andreas

unread,
Sep 4, 2002, 4:04:19 PM9/4/02
to
Hallo,
Access 2002 arbeitet wie schon Access 2000 mit dem ADO Modell.
Der vorlegende Code ist aber für DAO, also bis zu Access 97 gültig.
Um mit AccessXP auch mit DAO arbeiten zu können muß der Verweis
"Microsoft DAO 3.6 Objekt Library" gesetzt sein.
HTH Andreas
0 new messages