| |
|
|
| | Есть в форме 500 Label, нужно отловить програмно событие "нажатие кнопки", и виполнить програмний код | |
| |
| |
| |
|
|
| | А что мешает это сделать? | |
| |
| |
| |
|
|
| | В access-е не очень мудрёний, знаю как отловить собитие для конкретного обекта а вот для 550 совершенно не предстовляю. Понимаю что нужно обратится к обекту формы, потом перехвативать все собития и если наступило собитие "Нажатия кнопки" для lebel305, виполнить код.
Теоретически я ето понимаю но практически е знаю как реализовать подскажите кодом пожайлуста. | |
| |
| |
| |
|
|
| |
Private Sub Form_Open(Cancel As Integer)
Dim i As Integer
For i = 1 To 500
Me.Controls("lbl" & i).OnClick = "=LabelClick(" & i & ")"
Next
End Sub
Private Function LabelClick(i As Integer)
Debug.Print i
End Function
|
При условии, что все 500 Label имеют имена от "lbl1" до "lbl500"
В процедуре Form_Open мы в цикле назначаем свойству меток OnClick имя функции,
и передаем в функцию значение счетчика, по которому можем в функции LabelClick
идентифицировать метку. | |
| |
| |
| |
|
|
| | Огромное человеческое спасибо!!! Всё работает. Разбираюсь дальше | |
| |
| |
