Option ExplicitPrivate Sub MonthView1_DateClick(ByVal DateClicked As Date) Text1.Text = MonthView1.Value End Sub
Private Sub Form_Load() Text1.Text = MonthView1.Value End SubPrivate Sub MonthView1_SelChange(ByVal StartDate As Date, ByVal EndDate As Date, Cancel As Boolean) Text1.Text = MonthView1.Value End Sub
Private Sub Command1_Click()
text1.text=format(monthview1.value,"yyyy-MM-dd")
End Sub
me.text1.text=me.monthview.currentdate
Text1.Text = MonthView1.Value
End Sub
Text1.Text = MonthView1.Value
End SubPrivate Sub MonthView1_SelChange(ByVal StartDate As Date, ByVal EndDate As Date, Cancel As Boolean)
Text1.Text = MonthView1.Value
End Sub