关于查询出错如何解决？

陈程　发表于：2011-11-04 11:46:10 　

复制

点击下载此附件
给位大哥，大姐。

你们好。我是个ACCESS初学者。我结合自己工作所需创建了个ACCESS表，结果在查询的窗口里子窗口不显示内容然后我编的的查询的语句也提示错误。

请大家打开看下帮我修改下，然后看哪要改进的帮我弄下指点下。非常感谢大家的帮助！我急求

Top

网行者发表于：2011-11-04 11:59:06

已改好点击下载此附件

1、子窗口不显示内容：将子窗体中主、子链接删除即可

2、查询的语句提示错误：

将Me.查询1 子窗体.Form.Filter = strWhere
Me.查询1 子窗体.Form.FilterOn = True

改为

Me.[查询1 子窗体].Form.Filter = strWhere
Me.[查询1 子窗体].Form.FilterOn = True

Top

陈程发表于：2011-11-04 16:03:01

楼上大哥，

你好，我打开看了下感觉很好非常感谢你，但是就还一个问题：那个日期不能查询！我不知道是我设置的日期格式出问题了还是程序出问题了。还得麻烦你帮我看下。

Top

网行者发表于：2011-11-04 16:35:09

将

    If Not IsNull(Me.办理开始日期) Then
        '【进书日期开始】有输入
        strWhere = strWhere & "([办理开始日期] >= #" & Format(Me.办理开始日期, "yyyy-mm-dd") & "#) AND "
    End If
    If Not IsNull(Me.办理截止日期) Then
        '【进书日期截止】有输入
        strWhere = strWhere & "([办理截止日期] <= #" & Format(Me.办理截止日期, "yyyy-mm-dd") & "#) AND "
    End If

改为

    If Not IsNull(Me.办理开始日期) Then
        '【进书日期开始】有输入
        strWhere = strWhere & "([索赔办理日期] >= #" & Format(Me.办理开始日期, "yyyy-mm-dd") & "#) AND "
    End If
    If Not IsNull(Me.办理截止日期) Then
        '【进书日期截止】有输入
        strWhere = strWhere & "([索赔办理日期] <= #" & Format(Me.办理截止日期, "yyyy-mm-dd") & "#) AND "
    End If

Top

陈程发表于：2011-11-05 10:06:19

哈哈，看来我是猪变的。搞了半天原来问题出在这里！非常感谢帮助。

Top

陈程发表于：2011-11-05 10:50:29

网行者，

你好，还得请教下你。我这个系统现在就是还一个问题这个查询里的子窗口内容不能随着我的输入内容而改变内容。这让我很头疼。我是想在输入的窗口输入后能在查询的子窗口里的内容也能跟着改变。这样就能保证查询的一致性，及时性和准确性。所以还得麻烦您能帮我再看看帮我解决最后一个问题！

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

关于查询出错如何解决？