AccessTr.neT

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)