Office中国论坛/Access中国论坛

标题: access文件查询不了 [打印本页]

作者: alan6710 时间: 2011-10-11 09:33
标题: access文件查询不了
让人帮我做了个ACCESS收银系统。原来装了access2003和vb6.0的，用得很正常，可是重装系统后，再装上access2003和VB6.0就不能查询了，其他都正常，求高手指点

作者: 风中漫步 时间: 2011-10-11 09:37
有提示吗?

作者: alan6710 时间: 2011-10-11 09:41
没有，什么反应都没有

作者: andymark 时间: 2011-10-11 09:44
可能是日期默认格式不对

作者: alan6710 时间: 2011-10-11 09:46
在哪调呀，我没有改过里面的数据

作者: 风中漫步 时间: 2011-10-11 09:49
你有源码?看你按了VB6,应该有,看一下查询事件的代码

作者: 风中漫步 时间: 2011-10-11 09:50
看你的查询条件是否应该有记录,这你应有数

作者: andymark 时间: 2011-10-11 10:04
安装系统，会导至日期区域的改变，如果你没有在程序中强制转换成一个格式，那查询出来的结果肯定不正确
你可以在控制面板，区或，把日期显示格式重新设为你之前的值

作者: alan6710 时间: 2011-10-11 10:18

andymark 发表于 2011-10-11 10:04
安装系统，会导至日期区域的改变，如果你没有在程序中强制转换成一个格式，那查询出来的结果肯定不正确
你 ...

你好，管理员，我是个程序白痴，要换成哪种格式呀，之前我也没注意是什么格式，只不过每次输入时间是比如2011年10月11日就写成20111011

作者: Henry D. Sy 时间: 2011-10-11 10:20
在windows里的控制面板，区或，把日期显示格式重新设为你之前的值

作者: alan6710 时间: 2011-10-11 10:23

Henry D. Sy 发表于 2011-10-11 10:20
在windows里的控制面板，区或，把日期显示格式重新设为你之前的值

里面的三种格式我都试过了，还是没用

作者: alan6710 时间: 2011-10-11 10:26
奇怪的是，只有查询一项里面不能输入日期，其他都可以

作者: alan6710 时间: 2011-10-11 10:33

Henry D. Sy 发表于 2011-10-11 10:20
在windows里的控制面板，区或，把日期显示格式重新设为你之前的值

我也不知道是哪种格式了，只不过每次在软件里比如2011年10月11日就输：20111011

作者: Henry D. Sy 时间: 2011-10-11 10:51
你说什么操作系统？

作者: alan6710 时间: 2011-10-11 12:36
Option Compare Database

Private Sub 换货窗口刷新_Click()
On Error GoTo Err_换货窗口刷新_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_换货窗口刷新_Click:
Exit Sub

Err_换货窗口刷新_Click:
MsgBox Err.Description
Resume Exit_换货窗口刷新_Click

End Sub
Private Sub 打开换货记录修改窗口_Click()
On Error GoTo Err_打开换货记录修改窗口_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(25442) & ChrW(-29401) & ChrW(-29776) & ChrW(24405) & ChrW(20462) & ChrW(25913) & ChrW(31383) & ChrW(21475)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_打开换货记录修改窗口_Click:
Exit Sub

Err_打开换货记录修改窗口_Click:
MsgBox Err.Description
Resume Exit_打开换货记录修改窗口_Click

End Sub
Private Sub 运行宏_关闭销售查询_Click()
On Error GoTo Err_运行宏_关闭销售查询_Click

Dim stDocName As String

stDocName = ChrW(20851) & ChrW(-27155) & ChrW(-27392) & ChrW(21806) & ChrW(26597) & ChrW(-29726) & ChrW(21518)
DoCmd.RunMacro stDocName

Exit_运行宏_关闭销售查询_Click:
Exit Sub

Err_运行宏_关闭销售查询_Click:
MsgBox Err.Description
Resume Exit_运行宏_关闭销售查询_Click

End Sub

上面是查询前面那个输入日期的代码,有没有问题,我是个门外汉.请高人指点

作者: alan6710 时间: 2011-10-11 12:38
有没有人愿意远程帮我看一下呀,万分感激,我的QQ:2478630905.手机13517932926.您的QQ是多少.跪谢{:soso_e183:}

作者: 风中漫步 时间: 2011-10-11 14:43
你上传的代码看不出问题

如果方便的话把库发上来吧
用ACCESS开发的库为何要装VB呢?...打包安装多省劲

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)