doCmd.openreport где предложение подсказки

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 & "'"