Ленточная форма, 10 полей, слева и справа от каждого заголовка - по кнопочке (итого 20 шт.). Одна - сортировка по убыванию, другая - по возрастанию.
В модуле одна процедура:

Function fnСортировка(strИмяПоля As String, intПорядокСорт As Integer)
...................................

В окне "Свойства", вкладка "Событие" на событие "Нажатие" указано:

=fnСортировка(<имя кнопки>.[Tag];<0 или 1>)

соответственно, в св-ве Tag, кнопок указано имя поля формы, к которой они относятся.
Очень редко, но случается так, что по нажатию любой из кнопок сама процедура вызывается, но параметр Tag в неё не передаётся.
Хотя, если выполнение приостановить и в отладке написать:

 ? <имя кнопки>.Tag 

то значение выводится

http://www.sql.ru/forum/1119948/podskazhite-optimizaciu-koda-mnogo-knopok-s-odnotipnymi-deystviyami