我有这段代码可以在 VBA Microsoft Access 365 ProPlus 中的模块中完美运行，但是当我尝试在表单中的 Button_Click 控件中使用它时，显示此错误：
“运行时错误‘94’：无效使用空值”
在这一行：
RealDate = Date
这是我的代码：
Sub DateTest()
Dim MyHour As String
Dim RealDate As String
MyHour = Hour(Now)
If MyHour >= 2 And MyHour <= 23 Then
RealDate = Date
Else
RealDate = Date - 1
End If
End Sub
关于什么可能导致此错误的任何建议？
在此先感谢您的帮助 ！
问候。
迭戈。
如果您想将一个Date值放入 a String，这是一种方法：
If MyHour >= 2 And MyHour <= 23 Then
RealDate = Format$(Date, "mm/dd/yyyy")
Else
RealDate = Format$(DateAdd("d", -1, Date), "mm/dd/yyyy")
End If
“d”的意思是“天”——如果你使用 -1，它会将天减一。如果您希望减少小时数，请改用“h”。
而且，您将定义MyHour为 a String，然后将其与一个数字进行比较，这也不起作用。
Dim MyHour As Integer
您还可以使用它来检查变量是否为空：
If IsNull(Date) Then MsgBox "The Date is Null"
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句