以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  错误 提示 求解  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58172)

--  作者:卟离卟弃
--  发布时间:2014/10/13 11:38:00
--  错误 提示 求解

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20141013113447.png
图片点击可在新窗口打开查看

Dim rq As Date 
 With e.Form.Controls("生产日期") 
 rq = e.Form.Controls("生产日期").Value
 End With 
 Tables("生产记录表").Filter = "[生产日期] = #" & rq & "# " 

 按钮代码



 实在是弄不懂了, 
 我在我开发版的电脑上面试,没有问题 到了使用者的电脑中
,出现这个错误提示 找了很多原因,都不知道为什么,求助一下。
[此贴子已经被作者于2014-10-13 11:39:08编辑过]

--  作者:Bin
--  发布时间:2014/10/13 11:40:00
--  
因为这台电脑的系统日期格式带有星期几,改一下为正常不带中文的格式即可.
--  作者:卟离卟弃
--  发布时间:2014/10/13 11:53:00
--  
非常感谢。。。。。。
--  作者:有点甜
--  发布时间:2014/10/13 11:56:00
--  

 日期有问题

 

Tables("生产记录表").Filter = "[生产日期] = #" & Format(rq, "yyyy-MM-dd") & "# "