Question

I have a simple piece of code written to open a report.

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

I am getting two popups , even though i pass the filter criteria from the form. Please advice.

Answer 1

One potential cause is that ColumnName is non-numeric and you are not putting the value in quotes. If this the problem then the fix is:

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