Formularname in VBA Funktion ermitteln

[stephan sochor]

Hallo,

Ich habe in einer VBA Function folgenden Code, um den Namen des gerade
aktuellen Formulars zu bekommen:

Dim fn As String
fn = Application.CurrentObjectName

Dieser Code steht in einer Funktion, die durch das Ereignis „Beim Öffnen“
des Formulars aufgerufen wird. Bisher hat dieser Code immer funktioniert,
wenn ich jedoch das Formular über ein Makro aufrufe, steht in fn der Name des
Makros und nicht der des Formulars.

Me!Name kann ich nicht verwenden, da die Funktion nicht in dem selben Modul
wie das Formular steht (Die Funktion soll für alle Formulare meines Projekts
funktionieren).

Gibt es eine andere Möglichkeit, den Namen des Formulars zu bekommen, die
immer funktioniert?

Gruß Stephan

[Gunter Avenius]

Hallo stephan,

Post by stephan sochor
Ich habe in einer VBA Function folgenden Code, um den Namen des
Dim fn As String
fn = Application.CurrentObjectName
Dieser Code steht in einer Funktion, die durch das Ereignis „Beim
Öffnen“ des Formulars aufgerufen wird. Bisher hat dieser Code immer
funktioniert, wenn ich jedoch das Formular über ein Makro aufrufe,
steht in fn der Name des Makros und nicht der des Formulars.
Me!Name kann ich nicht verwenden, da die Funktion nicht in dem
selben Modul wie das Formular steht (Die Funktion soll für alle
Formulare meines Projekts funktionieren).
Gibt es eine andere Möglichkeit, den Namen des Formulars zu
bekommen, die immer funktioniert?

screen.ActiveForm.Name

[stephan sochor]

Post by Gunter Avenius
screen.ActiveForm.Name

Dann bekomme ich folgenden Fehler:

"Laufzeitfehler 2475

Sie haben einen Ausdruck eingegeben, für den es erforderlich ist, dass das
aktive Fenster ein Formular ist."

Möglicherweise funktioniert screen.ActiveForm.Name noch nicht in einer
Funktion, die durch das Ereignis "Beim Öffnen" ausgelöst wird, da das
Formular zu diesem Zeitpunkt nocht nicht aktiv ist?

Gibt es einen anderen Weg oder kann man hier etwas ändern, so dass es
trotzdem geht?

Gruß Stephan

[Gunter Avenius]

Hallo stephan,

Post by stephan sochor

Post by Gunter Avenius
screen.ActiveForm.Name

"Laufzeitfehler 2475
Sie haben einen Ausdruck eingegeben, für den es erforderlich ist,
dass das aktive Fenster ein Formular ist."
Möglicherweise funktioniert screen.ActiveForm.Name noch nicht in
einer Funktion, die durch das Ereignis "Beim Öffnen" ausgelöst
wird, da das Formular zu diesem Zeitpunkt nocht nicht aktiv ist?
Gibt es einen anderen Weg oder kann man hier etwas ändern, so dass
es trotzdem geht?

übergebe Deiner Funktion doch einfach den Formularnamen.

DeineFunction (me.name)

[stephan sochor]

Post by Gunter Avenius
DeineFunction (me.name)

Das funktioniert deshalb nicht, weil das Formular manchmal auch als
Unterformular eingestetzt wird. Auch wenn das Formular als Unterformular
eingesetzt wird, brauche ich den Namen des Hauptformulars.

Gruß Stephan

[Gunter Avenius]

Hallo stephan sochor,

Post by stephan sochor

Post by Gunter Avenius
DeineFunction (me.name)

Das funktioniert deshalb nicht, weil das Formular manchmal auch als
Unterformular eingestetzt wird. Auch wenn das Formular als
Unterformular eingesetzt wird, brauche ich den Namen des
Hauptformulars.

Dann fang den Fehler ab und greife mit forms(strFormname).Parent in
"DeinerFunction" auf das Hauptformular zu.

[Peter Doering]

Hallo,

Post by stephan sochor

Post by Gunter Avenius
screen.ActiveForm.Name

"Laufzeitfehler 2475
Sie haben einen Ausdruck eingegeben, für den es erforderlich ist, dass das
aktive Fenster ein Formular ist."
Möglicherweise funktioniert screen.ActiveForm.Name noch nicht in einer
Funktion, die durch das Ereignis "Beim Öffnen" ausgelöst wird, da das
Formular zu diesem Zeitpunkt nocht nicht aktiv ist?

Nein, funktioniert auch in Form_Open. Kann es sein, dass du versucht hast,
die Funktion schrittweise auszufuehren? Dann waere naemlich das VBE-Fenster
das ActiveForm und der Fehler erklaerbar.

Post by stephan sochor
Gibt es einen anderen Weg oder kann man hier etwas ändern, so dass es
trotzdem geht?

Siehe Gunter's Antwort.

Gruss - Peter

[Henry Habermacher [MVP Access]]

Hallo Stephan

Post by stephan sochor

Post by Gunter Avenius
screen.ActiveForm.Name

"Laufzeitfehler 2475
Sie haben einen Ausdruck eingegeben, für den es erforderlich ist,
dass das aktive Fenster ein Formular ist."
Möglicherweise funktioniert screen.ActiveForm.Name noch nicht in einer
Funktion, die durch das Ereignis "Beim Öffnen" ausgelöst wird, da das
Formular zu diesem Zeitpunkt nocht nicht aktiv ist?

Du darfst das Screen Object nicht im Step-By-Step Modus auswerten. Auch im
Debug Fenster geht das nicht, da ist nämlich nicht das Formular das aktive
Formular, sondern VBA.

Mach' mal folgendes:

set frm = screen.activeform.name
stop
debug.print frm.name

Nun kannst Du ab dem Stop weiterdebuggen.

Gruss
Henry

[Peter Doering]

Hallo Henry,

Post by Henry Habermacher [MVP Access]
set frm = screen.activeform.name

^^^^^
Bist du sicher? ;-)

Gruss - Peter

[Henry Habermacher [MVP Access]]

Hallo Peter

Post by Peter Doering

Post by Henry Habermacher [MVP Access]
set frm = screen.activeform.name

^^^^^
Bist du sicher? ;-)

Nein, Du hättest aber auch gleich die richtige Version schreiben dürfen...

set frm = screen.activeform

Gruss
Henry

[Michael Zimmermann]

Hallo!

Post by Peter Doering
Bist du sicher? ;-)

Nein, ...

Laß Dich von dem nicht ärgern, Henry. Das mache ich dann
wieder in gewohnt professioneller Manier, sobald ich wieder
mehr Zeit habe. ;-)

Gruß aus Mainz
Michael, auf Henry-Entzug :-(