Date MS访问和系统时间设置关系

我有MS Access数据库查询条件…Documents.DATE>DATE（）。。。 它在一台计算机上运行良好，其中安装了完全访问（2016）接口。 但在我使用Access Runtime verison（也是2016年）的其他地方，它不起作用

---

我在计算机上用完整版本的.accrd文件尝试了这个查询，它也可以工作。什么会导致这种行为？

这通常是由缺少引用引起的

您可以进入“工具、参考”菜单，检查是否有任何参考标记为缺失，并解决该问题。但是，由于它是一个运行时，您可能必须创建一个小的测试应用程序，列出运行时所在机器上的引用。以下是一个模块，让您开始学习：

选项比较数据库
选项显式
“验证访问”外部引用。
'如果所有引用都有效，则返回True。
'将安静运行，如果使用参数Quiet作为True调用。
'
'将作为AutoExec宏的第一个命令调用
'之后是对函数的调用（例如CompileAndSave），该函数将
““编译并保存所有模块”。
'
' 2018-07-10. 仙人掌数据ApS，CPH。
'
公共功能验证参考（_
可选的ByVal（作为布尔值）_
作为布尔值
'消息框的设置。
Const Title As String=“缺少支持文件”
Const Header As String=“缺少一个或多个支持文件：”
Const Footer As String=“将此报告给IT支持部门。”&vbCrLf&“程序执行无法继续。”
常量按钮的长度=VbMsgBoxStyle.vbCritical+VbMsgBoxStyle.vbOKOnly
作为访问的Dim引用。引用
将项目设置为整数
将Guid设置为字符串
我的专业很长
暗淡的小调和长的一样
将提示变暗为字符串
布尔型
以布尔形式运行
将结果设置为布尔值
做
'循环（第二次）引用并建立一个断开引用的列表。
坏的=假的
Prompt=“”
对于Access.References中的每个引用
如果Reference.BuiltIn那么
“没什么可查的。
ElseIf IsbrokerNext（参考）然后
断章取义
Prompt=Prompt&Reference.Guid
出错时继续下一步
Prompt=Prompt&“-”和Reference.Name
错误转到0
Prompt=Prompt&vbCrLf
如果结束
下一个
如果第二次运行，则
'仅将引用洗牌一次。
退出Do
否则就不会坏了
"所有参考资料都已核实。
其他的
'尝试删除最后一个未断开的引用并将其添加回。
'这将洗牌引用集合，可能洗牌，也可能洗牌
'导致断开的引用被添加回。
Item=Access.References.Count
做
Set Reference=Access.References.Item（Item）
如果不是Reference.BuiltIn，则
如果不是下一个（参考），则
'移除前记录参考的标识。
Guid=Reference.Guid
少校=参考。少校
小调=参考。小调
'删除此引用。
Access.References.Remove引用
'将删除的引用添加回。
Access.References.AddFromGuid Guid，主要，次要
退出Do
如果结束
如果结束
项目=项目-1
'满足内置引用时退出循环。
“这些总是最重要的。
循环直到Reference.BuiltIn
SecondRun=True
如果结束
循环直到没有断开
结果=未损坏
如果结果为假，安静为假，则
Prompt=页眉&vbCrLf&vbCrLf&Prompt&vbCrLf&Footer
VBA.MsgBox提示符、按钮、标题
如果结束
设置引用=无
验证引用=结果
端函数
'如果引用被破坏，则执行扩展检查，如
'IsBreak属性不检查未注册的文件。因此
'即使未标记为丢失，未注册的引用也可能失败。
'
' 2018-07-09. 古斯塔夫·布罗克。仙人掌数据。
'
公共职能下一步（_
ByRef引用作为Access.Reference）_
作为布尔值
Dim NotBreaked作为布尔值
On Error GoTo Err_IsbrokerNext
'如果引用未注册，则调用属性FullPath将失败。
'即使该文件存在于虚拟文件系统中，GetAttr也会找到它。
如果（VBA.GetAttr（Reference.FullPath）和vbDirectory）是vbDirectory，则
'完整路径有效。
notbreak=不引用。isbreak
如果结束
退出下一步：
isbrokernext=未断开
退出功能
下一步：
'忽略不存在的服务器、驱动器和路径。
下一步继续退出
端函数