Question

我有一个示例搜索表单查询，我想复制输出以控制其他的旁边查询。我有两个目标：

1）将数据发送到与搜索结果匹配的报告。 2）能够限制输出到Excel的列 - 即。从电子表格输出中排除搜索文本框（即希望详细信息仅部分输出）。

为了提供更多细节 - 这将是一个只读数据库，我试图将其设置为在后台为用户运行，以便他们可以拥有干净的Excel导出和打印正是他们想要的。

表单搜索查询的代码如下所示：

Dim strWhere As String
Dim lngLen As Long
Const conJetDate = "\#mm\/dd\/yyyy\#"

If Not IsNull(Me.txtQ_ID) Then
    strWhere = strWhere & "([Q_ID] = " & Me.txtQ_ID & ") AND "
End If

If Not IsNull(Me.txtAnswer) Then
    strWhere = strWhere & "([Answer] Like """ & Me.txtAnswer & """) AND "
End If

If Not IsNull(Me.txtItem) Then
    strWhere = strWhere & "([Item_Condition] Like """ & Me.txtItem & """) AND "
End If

If Not IsNull(Me.txtComments) Then
    strWhere = strWhere & "([Comments] Like """ & Me.txtComments & """) AND "
End If

lngLen = Len(strWhere) - 5
If lngLen <= 0 Then
    MsgBox "Please enter search criteria.", vbInformation, "Nothing to do."
Else

    strWhere = Left$(strWhere, lngLen)
    Me.Filter = strWhere
    Me.FilterOn = True
End If

是否有一种干净的方法可以将其反馈回SQL？我已经在另一个帖子中看到了这种可能性，但还没有足够的细节继续下去。

提前谢谢！

马特B

Access 2007：将搜索表单条件复制到二级查询？

0 个答案: