Обработка нажатия кнопки на форме

[myprog]

Еще раз ПРИВЕТ ВСЕМ!!!

Работаем с формой.
На форме куча объектов с именами:
об_1, об_2 и т.д.

задавать свойства к обектам я научился.
Но возникла следущая задача:
процедура обработки нажатия мышки

Private Sub об_01_Click()
как получить название обекта об_1

[Abrakadabra]

А что в Вашем понимании есть "название объекта"?

[Teslenko_EA]

Здравствуйте myprog.

Сообщение от myprog

Private Sub об_01_Click()
как получить название обекта об_1

Имя объекта можно узнать/получить обратившись к его свойству Name

    [об_1].Name

Евгений.
P.S. для удобочитаемости выкладываемый код заключайте в тэги [соde]...[/соde].

[myprog]

Всем привет.

Ответа я пока не получил.
Поэтому еще раз:

Есть 80 прямоугольников с именами:
об_01, об_02 ... об_80

При нажатии на кнопку должна выполнятся процедура
в принципе процедура для всех кнопок одна
изменить цвет кнопки и записать результат в таблицу:

Public Sub ОбработкаКлика(tmpName As String)

'tmpName - название объекта: об_01, об_02 ... об_80
    
    Параметр1=Функция1(tmpName)
    Параметр2=Функция2(tmpName)
    Параметр3=Функция3(tmpName)

    If Form_Форма1.Controls(tmpName).BackColor = Form_Форма1.Цвет1.BackColor Then
        Form_Форма1.Controls(tmpName).BackColor = Form_Форма1.Цвет2.BackColor
        Call ЗаписьВТаблицу(Параметр1, Параметр2, Параметр3)
        Exit Sub
    End If
    
    If Form_Форма1.Controls(tmpName).BackColor = Form_Форма1.Цвет2.BackColor Then
        Form_Форма1.Controls(tmpName).BackColor = Form_Форма1.Цвет1.BackColor
        Call ЗаписьВТаблицу(Параметр1, Параметр2, Параметр3)
        Exit Sub
    End If

End Sub

но результат зависит от названия кнопки
при формировании формы в access в свойствах объекта
на вкладке СОБЫТИЕ свойство НАЖАТИЕ КНОПКИ
автоматически формирует процедуру:

Private Sub об_01_Click()

End Sub

как можно автоматически узнать имя нажатой кнопки
чтобы передать во вспомогательную процедуру:
т.е. типа такого:

Private Sub об_01_Click()
   tmpName=......некое выражение(мне неизвестное) после которого tmpName=об_01
   call ОбработкаКлика(tmpName)
End Sub

вот и все что мне нужно.
Заранее ВСЕМ БААААЛЬшое СПааасибо.ђС•Ђ¶¬яяяяаьЄ®Е1 @?

[LittleFatCat]

Доброго времени суток!

В хелпе (RTFM) обнаружил вот такой кусочек кода:

Dim ctlCurrentControl As Control
Dim strControlName As String
Set ctlCurrentControl = Screen.ActiveControl
strControlName = ctlCurrentControl.name

В итоге переменная strControlName содержит название нужного элемента.
Её и надо передавать в подпрограмму

[myprog]

И снова здрасте!!!

Спасибо LittleFatCat, но код не работает.
Не знаю почему. Но еще раз напомню: 80 прямоугольников (и совсем не кнопок)

Screen.ActiveControl.Name - выдает название единственной
( и соответственно активной ) кнопки "ОК"

[Teslenko_EA]

myprog возможно Вам будет интересна конструкция в образце.
Евгений.

[myprog]

Я Всем благодарен за советы и решения.
Но пока требуемого результата нет.

Последнее решение предложенное Евгением
не дает ответа на вопрос:
КАК АВТОМАТИЧЕСКИ ПОЛУЧИТЬ НАЗВАНИЕ ОБЪЕКТА
по которому кликнули мышкой.

Код Евгения:

Private Sub Прямоугольник0_Click()
    ОбработкаКлика Прямоугольник0
End Sub

Еще раз:
1) Прямоугольник0_Click() - функция обработки нажатия на объект
2) Прямоугольник0 - название этого объекта
3) ВОПРОС:
СУЩЕСТВУЕТ ЛИ ФУНКЦИЯ ФОРМИРОВАНИЯ (ПОЛУЧЕНИЯ) ИМЕНИ ОБЪЕКТА

Еще раз Всем СПАСИБО. Надеюсь что решение НАЙДЕМ.

P.S.: Насколько я понимаю решение есть и простое. Все гениальное- просто. Как говориться.

[Teslenko_EA]

Здравствуйте myprog.
Я очевидно не понимаю Вашу задачу - "..как автоматически получить название объекта по которому кликнули мышкой..".
речь о том что бы получить имя внешней программой(?) используйте API, а если в той же программе используется обработчик события объекта и событие явно указывает на объект, а получать его свойство .Name Вы хотите ФУНКЦИЕЙ - не понимаю???
Евгений.