title image


Smiley TIPP: Objekthierarchie ermitteln
Meinst du so etwas:



Public Function Wobinich()

Dim Ctl As CONTROL, IsForm As Boolean, Res As String, Frm As Form

On Error Resume Next

Set Ctl = Screen.ActiveControl

Do Until Err 0

If IsForm Then

Res = Res & "auf Formular: " & Frm.Name

Err.Clear

Set Frm = Frm.Parent

If Err = 0 Then

IsForm = True

Else

Err.Clear

Set Ctl = Frm.Parent

IsForm = False

End If

Else

Res = Res & "auf Steuerelement: " & Ctl.Name

Err.Clear

Set Frm = Ctl.Parent

If Err = 0 Then

IsForm = True

Else

Err.Clear

Set Ctl = Ctl.Parent

IsForm = False

End If

End If

Loop

MsgBox Mid(Res, 5)

End Function





Ergänzung

oder kürzer:



Public Function Wobinich()

Dim myObj As Object, IsForm As Boolean, Res As String, Frm As Form

On Error Resume Next

Set myObj = Screen.ActiveControl

Do Until Err 0

Set Frm = myObj

IsForm = myObj Is Frm ' ist es ein Formular?

Res = Res & " auf " & IIf(IsForm, "Formular", "Steuerelement") & ": " & myObj.Name

Err.Clear

Set myObj = myObj.Parent ' eine Ebene höher, solange, bis ein Fehler auftritt

Loop

MsgBox Mid(Res, 6)

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: