ErrObject an aufrufende Prozedur zurückgeben

03/12/2008 - 09:33 von Andreas Vogt | Report spam
Hallo NG,
wie kann ich in einer Funktion bei auftretendem Fehler das ErrObject
an die aufrufende Prozedur zurückgeben?

Dim myErr As ErrObject
Set myErr = Funktion1()
...
Function Funktion1() As ErrObject
On Error GoTo Funktion1_Error

Funktion1_Error:
Funktion1= Err
End Function

Bekomme als Fehler "Objektvariable oder With-Blockvariable nicht
festgelegt"

Wo liegt das Problem? (außer beim Programmierer mein ich)
Gruß Andreas
 

Lesen sie die antworten

#1 Josef Poetzl
03/12/2008 - 09:42 | Warnen spam
Hallo!

Andreas Vogt schrieb:
Dim myErr As ErrObject
Set myErr = Funktion1()


^^^
...
Function Funktion1() As ErrObject
On Error GoTo Funktion1_Error

Funktion1_Error:
Funktion1= Err


^^^ hier fehlt set.


Dazu hàtte ich eine Frage: können von VBA.Err überhaupt mehrere
Instanzen innerhalb einer Anwendung existieren?
Oder benutzt du das zum Weitergeben in ein AddIn o.à.?


mfg
Josef

EPT: (Access Error Prevention Table) http://access.joposol.com/
FAQ: (Access-FAQ von Karl Donaubauer) http://www.donkarl.com/

Ähnliche fragen