Forums Neueste Beiträge
 

Object Invalid or no longer set

21/12/2007 - 08:43 von Thomas Wolf | Report spam
Hallo NG

Mit diesem Code durchlaufe ich alle Access Objekte. 'AccessObjekte' ist ein
Verweis auf ein 'All...'-Objekt (AllTables, AllForms etc.), je nach dem,
welches ich gerade brauche:

110 For Each obj In AccessObjekte
120 With CurrentDb.TableDefs(obj.Name)
130 If .Connect <> vbNullString Then
' Tu was...
140 End If
150 End With
160 Next obj

Bis und Zeile 120 funktioniert alles problemlos. Aber in Zeile 130 kommt der
Fehler 3420: "Object invalid or no longer set."
obj.name wird korrekt aufgelöst. Wenn ich das ".connect" in Zeile 120
hochnehme funktionert es ebenfalls. Wenn Zeile 120 schon durchgelaufen wird
und der Debugger auf 130 steht, erhalte ich im Direktfenster nach der
Eingabe eines Punktes alle Eigenschaltenn und Methoden des
TableDefs-Objektes.

Kann mir jemand weiterhelfen?

Gruss
Thomas
 

Lesen sie die antworten

#1 Martin Hey
21/12/2007 - 09:40 | Warnen spam
Hallo,

ich hatte das Problem auch schonmal. Bei mir hat es da geholfen einfach
CurrentDb einem neuen Objekt vom Typ Database zuzuweisen und auf diesem
Objekt alle Aktionen durchzuführen

also:
Dim db as Database
Set db = CurrentDb
...
With db.TableDefs
...

Martin


"Thomas Wolf" schrieb im Newsbeitrag
news:
Hallo NG

Mit diesem Code durchlaufe ich alle Access Objekte. 'AccessObjekte' ist
ein Verweis auf ein 'All...'-Objekt (AllTables, AllForms etc.), je nach
dem, welches ich gerade brauche:

110 For Each obj In AccessObjekte
120 With CurrentDb.TableDefs(obj.Name)
130 If .Connect <> vbNullString Then
' Tu was...
140 End If
150 End With
160 Next obj

Bis und Zeile 120 funktioniert alles problemlos. Aber in Zeile 130 kommt
der Fehler 3420: "Object invalid or no longer set."
obj.name wird korrekt aufgelöst. Wenn ich das ".connect" in Zeile 120
hochnehme funktionert es ebenfalls. Wenn Zeile 120 schon durchgelaufen
wird und der Debugger auf 130 steht, erhalte ich im Direktfenster nach der
Eingabe eines Punktes alle Eigenschaltenn und Methoden des
TableDefs-Objektes.

Kann mir jemand weiterhelfen?

Gruss
Thomas

Ähnliche fragen