1.窗體事件 on open
Private Sub Form_Open(Cancel As Integer)
Me!ActiveX控件1.Visible = False
End Sub
2.日期控件 on Got Focus
Private Sub 日期__on GotFocus()
Me!in.Visible = True
End Sub
3.ActiveX控件1 on Click
Private Sub ActiveX控件1_Click()
Me!日期= Me!ActiveX控件1
End Sub
4.日期控件 on Lost Focus
Private Sub 日期控件 _LostFocus()
Me!ActiveX控件1.Visible = False
End Sub