关于查询的问题。。

破烂的兔子　发表于：2013-07-17 17:11:14 　

复制

这样写了个代码。。想要查询表中已对应的信息。。结果就查询一个时没有问题。。加了一条查询两个就出问题了。。。

感谢各位大神

Me.project 是一个组合框

子窗体表格是用的查询

Option Compare Database

Private Sub chazhao_Click()

    On Error GoTo Err_chazhao_click
    Dim strchazhao As String
    strchazhao = ""

     If Not IsNull(Me.流程描述) Then
         strchazhao = strchazhao & "([流程描述] like '" & Me.流程描述 & "')"
    End If

    If Not IsNull(Me.人员名单) Then
        strchazhao = strchazhao & "([人员名单] like '" & Me.人员名单 & "')"
    End If

     Me.主表查询_子窗体.Form.Filter = strchazhao
    Me.主表查询_子窗体.Form.FilterOn = True

Exit_chazhao_Click:
    Exit Sub

Err_chazhao_click:
    MsgBox Err.Description
    Resume Exit_chazhao_Click

End Sub

Top

zhanglc 发表于：2013-07-17 20:18:26

Dim strchazhao As String
strchazhao = ""

     If Not IsNull(Me.流程描述) Then
         strchazhao = strchazhao & "([流程描述] like '" & Me.流程描述 & "') AND "
    End If

    If Not IsNull(Me.人员名单) Then
        strchazhao = strchazhao & "([人员名单] like '" & Me.人员名单 & "') AND "
    End If

If Len(strchazhao) > 0 Then
strchazhao = Left(strchazhao, Len(strchazhao) - 5)

    end if
     Me.主表查询_子窗体.Form.Filter = strchazhao
    Me.主表查询_子窗体.Form.FilterOn = True

注意"AND"前后各有一个空格。你可以仔细学习一下“刘小军查询”的例子

Top

麥田发表于：2013-07-17 21:25:00

刘小军窗体查询教程
www.accessoft.com/article-show.asp?id=5580

Top

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

Access交流中心

关于查询的问题。。