Merhaba,
Formda tıklanan öğenin, mesela Alt1 olduğunu gösteren komut için yardımcı olur musunuz lütfen..
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Me.ActiveControl.Name
ile aktif nesnenin adını alabilirsiniz ama tam olarak ne yapmak istiyorsunuz?
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çinPublic Function HandleClick(ByRef ctl As Control)
Me.BUTONEYLEMI = ctl.Name
End Function