doCmd.openreport where子句提示

Question

我编写了一段简单的代码来打开报告。

  Private Sub FormButton_Enter()
    Dim strwhere As String
    strwhere = Me.FormText
    DoCmd.Openreport "rtpname",acViewPreview,,"ColumnName=" & strwhere 
  End Sub

我正在获得两个弹出窗口，即使我从表单中传递过滤条件。请指教。

Answer 1

一个可能的原因是ColumnName是非数字的，并且您没有将值放在引号中。如果这个问题，那么修复是：

 DoCmd.Openreport "rtpname",acViewPreview,,"ColumnName='" & strwhere & "'"