日期

半夜罗　发表于：2019-03-12 16:34:54 　

请问各位老师，一个窗体上有两个文本框，想在第一文本框中输入类似 “DateSerial(Year(Date())-1,1,1)” 这样的字符串，将想要获得的日期显示在第二个文本框中（显示的是日期，而不是字符）

在第一个文本框的更新后事件写上：

Private Sub 测试1_AfterUpdate()
Me.测试 = Me.测试1
End Sub
结果得出的是字符，而不是想要得到的日期（如：2019-03-04），请问老师们，错在哪里？

谢谢！

leoyoung 发表于：2019-03-12 21:59:33

Me.测试.ControlSource = "=" & Me.测试1

半夜罗发表于：2019-03-13 09:06:18

谢谢！根据 leoyoung 老师的答案，为了有可能会输入等号“=”，我将其修改了一下：

If Left(Me.测试1, 1) = "=" Then
Me.测试.ControlSource = Me.测试1
Else
Me.测试.ControlSource = "=" & Me.测试1
End If

又学到了一个文本框的属性（ControlSource），我之所以失败的原因，就是不知道这个属性。谢谢！

总记录：2篇页次：1/1 9 1 :

Access交流中心