access文件查询不了

alan6710

让人帮我做了个ACCESS收银系统。原来装了access2003和vb6.0的，用得很正常，可是重装系统后，再装上access2003和VB6.0就不能查询了，其他都正常，求高手指点

风中漫步

你上传的代码看不出问题

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

alan6710

有没有人愿意远程帮我看一下呀,万分感激,我的QQ:2478630905.手机13517932926.您的QQ是多少.跪谢{:soso_e183:}

alan6710

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

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

Henry D. Sy

你说什么操作系统？

alan6710

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

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

alan6710

奇怪的是，只有查询一项里面不能输入日期，其他都可以

alan6710

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

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

Henry D. Sy

在windows里的控制面板，区或，把日期显示格式重新设为你之前的值

alan6710

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

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