Question

请帮我看看我的VBA代码怎么运行不成功 在学习access中VBA

这里有图片 我写了代码点运行就这样了 没有反应 该怎么办 我是插入的一个类模块 然后再里面输入的带代码
Sub procedure1()
If Hour(Time()) >= 12 Then Debug.Print "下午好！"
End Sub

Answer 1

Sub procedure1()
If Hour(Time) >= 12 Then Debug.Print "下午好！慎漏"
End 宽耐烂Sub

TIME不用括亩衡号

追问

把括号去掉了 还是这样  弹出一个宏名称对话框就完了

追答

应该是放在模块中，而不是放在类模块中

Answer 2

你可以困李租汪兆在视图（V)菜单，->立即扰闭
出现立即窗口后，在立即窗口输入 ：
?Hour(Time)>=12
回车。
就会提示true,或false
这是最常用的调试方法，前面加问号就会显示结果