Fehler -91 bei AllForms

13/11/2007 - 15:17 von Thomas Wolf | Report spam
Hallo NG

Ich möchte eine Klasse erstellen, in welcher ich u.a. Objekte öffnen lassen
kann. Dabei scheitere ich schon am Anfang: In der unten markierten Zeile
tritt folgender Fehler auf -91: "Objektvariable oder with-Blockvariable
nicht festgelegt.

Public Sub OpenAccessObject(ObjectName As String)
Dim Datenbank As CurrentProject
Set Datenbank = Application.CurrentProject
With Datenbank
MsgBox (ObjectName)
********* hier kommt der Fehler ********
MsgBox .AllForms(ObjectName ).IsLoaded
End With
End Sub

Was mache ich falsch?

Gruss
Thomas
 

Lesen sie die antworten

#1 Jens Schilling
13/11/2007 - 15:52 | Warnen spam
Hallo, Thomas

Thomas Wolf wrote:
Hallo NG

Ich möchte eine Klasse erstellen, in welcher ich u.a. Objekte öffnen
lassen kann. Dabei scheitere ich schon am Anfang: In der unten
markierten Zeile tritt folgender Fehler auf -91: "Objektvariable oder
with-Blockvariable nicht festgelegt.

Public Sub OpenAccessObject(ObjectName As String)
Dim Datenbank As CurrentProject
Set Datenbank = Application.CurrentProject
With Datenbank
MsgBox (ObjectName)
********* hier kommt der Fehler ********
MsgBox .AllForms(ObjectName ).IsLoaded
End With
End Sub



Dein Code làuft bei mir ( unter AXP und A03 ) ohne Probleme ...
Ist dies denn der komplette Code, oder fehlt da was ?

Ansonsten ist in der FAQ 4.19 Prüfen ob Formular geöffnet (
www.donkarl.com?FAQ4.19 ) noch eine Alternative zu Deiner Vorgehensweise
genannt.

Gruss
Jens
______________________________
FAQ: http://www.donkarl.com

Ähnliche fragen