ник: Goblin
Чувак, это даже я расшифровал со своими скудными знаниями VBA. Правда у меня получилось что не к кнопке цепляется, а к тому полю, в которое он вводит дату. Открой на кнопку свойство-события-нажатие кнопки. Там будет 3 строки кода.
DoCmd.OpenForm "frmCalendar", , , , , acHidden
Forms("frmCalendar").ExportControl(2) = Me.txtTest
Forms("frmCalendar").Visible = True
Увидишь цифирьку (2), которую я поставил вместо того, что было написано автором. (Там было поле с переключателем прописано.) Так вот. В начале процедуры на календарь прописано: 1 - в левый верхний. 2 - левый нижний. 3 - правый верхний, 4 - левый верхний. Ну может немного что-то напутал, но смысел в том.
Короче, в свойстве кнопки меняй цифирь в этом диапазоне.