Option Compare Database
Option Explicit

Public mo_pbl_ControlElement       As Control    'храниться ссылка на элемент в который надо внести значение выбранной даты

Public Sub mo_OpenCalendar(mo_Element As Control)
    Set mo_pbl_ControlElement = mo_Element    ' присваевам переданный объект глобальной переменной
    Set mo_Element = Nothing    'подчистим
    DoCmd.OpenForm "frm0Calendar" 'форма с календарем
    'уничтожается mo_pbl_ControlElement в модуле frm0Calendar при закрытии
End Sub

Private Sub Form_Current()
' получаем значение mo_pbl_ControlElement. Оно формируется в момент нажатии кнопки на некой форме.
' mo_pbl_ControlElement присваевается значение элемента к-ое мы хотим изменить
    On Error Resume Next
    k.Value = Nz(mo_pbl_ControlElement.Value, Date) ' k- имя элемента Календарь
End Sub

Private Sub k_DblClick()
    Call Кнопка1_Click 
End Sub

Private Sub Кнопка1_Click()
' Кнопка1 - это кнопка типа ОК. Так же эта процедкрка вызывается из события двойного щелчка по календарю

' делаем обратное присваивание. Так как mo_pbl_ControlElement содержит ссылку на поле (Control)
' то присваевание mo_pbl_ControlElement приведет к смене значения в поле формы
    On Error Resume Next
    mo_pbl_ControlElement.Value = k.Value
    Set mo_pbl_ControlElement = Nothing
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub ButtonCalendar_Click()
        Call mo_OpenCalendar(ПолеНаФорме_с_Датой)
End Sub