Не могёт такого быть:)
Делаем меню - одна кнопка. Вешаем функцию в OnAction tst_msg. Идём в модули, создаём Public Sub tst_msg.
Там пишем MsgBox "Test". Простую форму без контролов, в свойствах указываем наше меню - и видим только одно сообщение, а не два:)

Ищите второй вызов функции пи открытии формы, текущей записи, на загрузке и прочее....

2 Senin Viktor
Ну вот сколько с менюшками не работаю - такого не видал:)
Вся работа с ними ведётся только на Аксесс Хп (в основном), в 97 немного работал, но таких глюков так же не видел.

Если в такой базе (с глюком) сделать как я описал выше - будет 2 сообщения?
Это происходит только с одним меню или со всеми?

2 sasha_1
надо подставлять обязательно
function (не sub)

Нифига подобного. Всё прекрасно работает на SUB, даже и без Public.
В OnAction можно указывать вот так [имя процедуры] без всяких скобок и знаков равенства.

2 Senin Viktor
Проверил в ХП (SP-2). Всё нормально, наблюдался только один MSGBOX.
Где-то вычитал (уж непомню где), что при вызове функций и процедур из модулей форм через меню могут выплывать глюки и ошибки, рекомендовалось фунецию писать в модуле, а уж отдуда вызывать функцию для меню, которая находится в форме). Ну как и сделано в твоём случае.

Для универсальности функции для меню можно обращаться к форме и функциям в модуле формы через Screen.ActiveForm.[имя функции] или для подчинённой формы: Screen.ActiveForm.ActiveControl.Form.[имя функции]

2 Senin Viktor
Нет, не тебе говорил:) Просто забыл в разрыв строк ник вставить. visor-у говорил.
Важно помнить, ктож спорит, но в общем случае часто выручает такое обращение:)