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