点击下载此附件

问题：
新手求助，怎么可以双击文本框后自动添入当天日期？和 双击 文本框1 后动添入? 文本框2 中的内容？
http://www.accessoft.com/bbs/showtopic.asp?id=22161

Private Sub Form_Load()
Me.Text2 = "天气不错"
End Sub

Private Sub Text0_DblClick(Cancel As Integer)
Me.Text0 = Date   '当天日期
End Sub

Private Sub Text1_DblClick(Cancel As Integer)
Me.Text1 = Me.Text2   '添入 文本框2 中的内容
End Sub