Formda Tıklanan Öğe Adı

Merhaba,

Formda tıklanan öğenin, mesela Alt1 olduğunu gösteren komut için yardımcı olur musunuz lütfen..

 Me.ActiveControl.Name

ile aktif nesnenin adını alabilirsiniz ama tam olarak ne yapmak istiyorsunuz?

ANAFORM u açtığım zaman hangi nesneye tıklarsam onun adı BUTONEYLEMI kutucuğunda yazsın.

dilerim işinize yarar
ilk kod form açıldığında olayına eklenecek

   Dim ctl As Control

    

    For Each ctl In Me

Debug.Print ctl.Name & " - " & ctl.ControlType 'bu satıra gerek yok hata durumunda hangi kontrolde sorun çıktı onu anlamak için

        If ctl.ControlType <> 112 And ctl.ControlType <> 111 Then

            ctl.OnClick = "=HandleClick([" & ctl.Name & "])"

        Else

            ctl.OnEnter = "=HandleClick([" & ctl.Name & "])"

        End If

    Next ctl

aslında Debug.Print ctl.Name & " - " & ctl.ControlType satırına gerek yok hata durumunda hangi kontrolde sorun çıktı onu anlamak için
diğer kod forma eklenecek birfonksiyon

Public Function HandleClick(ByRef ctl As Control)

    Me.BUTONEYLEMI = ctl.Name

End Function

Çok teşekkür ederim. İşime yaradı.

Iyi calismalar)