AccessTr.neT
Formda Tıklanan Öğe Adı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda Tıklanan Öğe Adı (/konu-formda-tiklanan-oge-adi.html)

Formda Tıklanan Öğe Adı - temre - 29/12/2019

Merhaba,

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

Cvp: Formda Tıklanan Öğe Adı - berduş - 29/12/2019 

 Me.ActiveControl.Name
ile aktif nesnenin adını alabilirsiniz ama tam olarak ne yapmak istiyorsunuz?

Cvp: Formda Tıklanan Öğe Adı - temre - 29/12/2019

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

Cvp: Formda Tıklanan Öğe Adı - berduş - 29/12/2019

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


Cvp: Formda Tıklanan Öğe Adı - temre - 29/12/2019

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

Cvp: Formda Tıklanan Öğe Adı - berduş - 29/12/2019

Iyi calismalar)