Question

VBA习题：关于计时器控件的疑问

题目：在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1秒，计时器触发事件过程则实现在 Text1 文本框中动态显示当前的日期和时间。请补充完整。

Private Sub Form_Loaded()
Me.Timer1.Interval = 1000

End Sub

Private Sub _____________
Me! text1 = Now( )

End Sub

以上文字按书籍原文输入，检查无误。

这是朋友发来的一份VBA习题，虽然我是相关专业毕业但是没有任何VBA经验。在网上略作搜索，发现VBA并没有原生的计时器控件，并且对原书习题的专业性有所怀疑。所以斗胆求证：

1. Timer1 是某自定义的计时器控件，此题略去源代码。
2. 要求填空的方法中有语法错误，应该是: Me.Text1 = Now()

另外，习题答案是 Timer1_Timer()
求BVA达人讲解。多谢。
此题是VBA代码无疑，实际为Access的宏，第二个方法内容应是 Me!Text1 = Now() 感叹号后无空行。

Answer 1

ACCESS有Timer控件吗？我是2003版本的，根本就没有，窗体自己带计时器啊，你看看窗体属性是不是有个时间间隔属性，那就是TimerInterval属性,他只有这么一个成员
Private Sub Form_Loaded()这是什么 Load写错了。
Me!Text1在VBA中行不通，在ACCESS查询设计器里“！”起作用，VB中不认识这个符号。
如果是VB这样完全行得通：
Private Sub Form_Load()
Timer1.Enabled=True
Timer1.Interval=1000
End Sub
Private Sub Timer1_Timer()
Me.Text1=Date() + Time()
End Sub
这样写法只有在VB中行的通，VBA中这么写(前提条件窗体必须要有数据源，没数据集合的窗体没办法更新)：
Private Sub Form_Load()
Me.TimerInterval=1000
End Sub
Private Sub Form_Timer()
Me.Text1=Now()
End Sub
看看是不是，VB和VB出入很大，VB控件是C++写的，为VBA制作的是写在窗体事件里
看一下

Answer 2

你这个就是VB代码，不是VBA，而且有点错误，应当是：
Private Sub Form_Load() ‘启动事件
Me.Timer1.Interval = 1000 '计时器间隔为1秒
End Sub
Private Sub Timer1_Timer() '计时器事件
Me.Text1.Text = Now '在文本框里显示当前日期和时间
End Sub

Answer 3

从题目以及答案来看，似乎不是VBA。
应该就是VB的题目。VBA与VB应该是有联系，又有区别的。
所以，我认为本题目属于VB题目，从题目文字来分析，似乎缺少窗体上有Timer1控件的叙述。
从代码分析看，你的2个回答是正确的！
填空部分应该是：Timer1_Timer()