PDA

Vollständige Version anzeigen : Blöder Error


SandraSTG
29.08.2001, 15:53
Halli Hallo,
ich bekomme beim ausführen der unteren Zeilen jedesmal ein Run Time error 13 - Type Mismatch bei der Zeile ..OpenRecordset...

Ich versteh einfach nicht warum, denn alles sollte stimmen ??

Function ID2()
Dim DB As Database
Dim r As Recordset
Dim s As Recordset

Set DB = CurrentDb
Set s = DB.OpenRecordset("ISG Invoice Address")
Set r = DB.OpenRecordset("completeISG Database")
Dim f As Form
Set f = [Forms]![newISG Customer Contacts]

Rem bla bla Zuweisungen usw.

Set DB = Nothing
End Function

Bitte helft mir !!!!

EricB
29.08.2001, 22:03
Hallo!

Nachdem du uns die Access version verschwiegen hast hole ich meine Kristallkugel raus und übe mich mal im hellsehen:

Du hast Access 2000 oder XP und es fehlt der Verweis auf die Datei DAO360.dll!

Oder du hast DAO hinter dem verweis auf ADO in deiner DB!

Auf jeden Fall solltest du die Deklaration so machen:

Dim DB As DAO.Database
Dim r As DAO.Recordset
Dim s As DAO.Recordset


Ciao
Eric