Я пытаюсь получить дату из выбора даты при нажатии на текстовое поле.после выбора даты в окне выбора даты (месячный обзор) в месячном обзоре дата не сохраняется.образец приложен.Пожалуйста, помогите.
1) Вывести значение клика из месяца просмотра, не работает.
Private Sub TextBox1_Enter()
DATEpicker.Show
ActiveControl.ActiveControl.Value = DATEpicker.MonthView1.Value
End Sub
2) Отправить значение клика в TextBox, но код вида месяца должен определить имя пользовательской формы(Projecta), как передать имя пользовательской формы (текстовое поле находится) и элемент управления.
Public Sub TextBox1_Enter()
Set oCtl = ActiveControl.ActiveControl
DATEpicker.Show
End Sub
Public Sub MonthView1_DateClick(ByVal DateClicked As Date)
PROJECTa.oCtl.Value = Me.MonthView1.Value
Unload Me
End Sub