Forums Neueste Beiträge
 

Fehler 3420: Object invalid or no longer set

14/05/2008 - 15:11 von Thomas Wolf | Report spam
Hallo NG

Ich habe in einer Klasse folgenden Code. Dabei kommt mir in der Zeile mit
"If .Connect" obiger Fehler.

...
With mp_appOpenDb.CurrentDb.TableDefs(obj.Name)
If .Connect <> vbNullString then
..

Wenn ich im Debug-Modus in der zweiten Zeile bin, gibt mir das Direktfenster
folgendes:

? obj.Name
tblLanguage
? mp_appOpenDb.CurrentDb.Name
E:\Projekte\Test.mdb
? mp_appOpenDb.CurrentDb.TableDefs(obj.Name).Connect <> vbNullString
True

? .Connect <> vbNullString
-> Error 3420, Object invalid or no longer set

Ich habe keine zweite With-Anweisung in der Funktion. Was kann hier das
Problem sein?

Gruss
Thomas
 

Lesen sie die antworten

#1 André Minhorst
14/05/2008 - 15:17 | Warnen spam
Hi Thomas,

Thomas Wolf schrieb:
Ich habe in einer Klasse folgenden Code. Dabei kommt mir in der Zeile
mit "If .Connect" obiger Fehler.

...
With mp_appOpenDb.CurrentDb.TableDefs(obj.Name)
If .Connect <> vbNullString then
..



den Verweis auf CurrentDB musst Du festhalten, etwa so:

Dim db As DAO.Database
Set db = mp_appOpenDb.CurrentDb 'was auch immer mp_appOpenDb ist ...

With db.TableDefs(obj.Name)
If .Connect <> vbNullString then

Ciao
André

http://www.access-entwicklerbuch.de
http://www.access-im-unternehmen.de

Ähnliche fragen