[求助]如何制作一个查询，让用户来选择表里需要的字段，并按用户的条件进行查询？

secowu

非常感谢

两个问题：

1.用什么命令获得表的全部字段名称，并储存在哪里以供用户选择？

2.接着用查询好办了

secowu

呵呵，我的方法太土啦，不知道有没有好的，快速的方法

andymark

获得表的全部字段名称:

http://www.office-cn.net/forum.php?mod=viewthread&tid=8127&replyID=&skin=1

hasdfr23

up

hasdfr23

up

nxjswt

多重字段和模糊查询

Private Sub Command2_Click()
    Me.Refresh
    Dim strWhere As String
    strWhere = ""
   
    If Not IsNull(Me.客户编码) Then
        strWhere = strWhere & "([客户编码] like '*" & Me.客户编码 & "*') AND "
    End If
   
    If Not IsNull(Me.客户姓名) Then
        strWhere = strWhere & "([客户姓名] like '*" & Me.客户姓名 & "*') AND "
    End If
   
    If Not IsNull(Me.性别) Then
        strWhere = strWhere & "([性别] like '*" & Me.性别 & "*') AND "
    End If
   
    If Not IsNull(Me.职务) Then
        strWhere = strWhere & "([职务] like '*" & Me.职务 & "*') AND "
    End If

    If Not IsNull(Me.个人爱好) Then
        strWhere = strWhere & "([个人爱好] like '*" & Me.个人爱好 & "*') AND "
    End If

    If Not IsNull(Me.工作电话) Then
        strWhere = strWhere & "([工作电话] like '*" & Me.工作电话 & "*') AND "
    End If
   
    If Not IsNull(Me.家庭电话) Then
        strWhere = strWhere & "([家庭电话] like '*" & Me.家庭电话 & "*') AND "
    End If
   
    If Not IsNull(Me.移动电话) Then
        strWhere = strWhere & "([移动电话] like '*" & Me.移动电话 & "*') AND "
    End If
   
    If Not IsNull(Me.期限) Then
        strWhere = strWhere & "([期限] like '*" & Me.期限 & "*') AND "
    End If
   
    If Not IsNull(Me.账号) Then
        strWhere = strWhere & "([账号] like '*" & Me.账号 & "*') AND "
    End If
   
        
'=============================================================================================================================
    If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    Me.多项查询2.Form.FilterOn = True
    Me.多项查询2.Form.Filter = strWhere
   
   
End Sub
Private Sub Command3_Click()

'下面这些控件的值要清空
    Me.客户编码 = Null
    Me.客户姓名 = Null
    Me.职务 = Null
    Me.个人爱好 = Null
    Me.工作电话 = Null
    Me.移动电话 = Null
    Me.家庭电话 = Null
    Me.期限 = Null
    Me.账号 = Null
    Me.性别 = Null
        
    Me.多项查询2.Form.FilterOn = False
End Sub