doCmd.openreport where子句提示

我寫了一段簡單的代碼來打開報表。doCmd.openreport where子句提示

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

即使我從窗體傳遞過濾條件，我也會得到兩個彈出窗口。請指教。

來源

2010-07-15 misguided

一個潛在的原因是ColumnName是非數字的，並且您沒有將該值放在引號中。如果這個問題，然後修復是：

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

來源

2010-07-15 03:16:41 BenV

工程像魅力。謝謝。 – misguided 2010-07-15 03:35:34

@misguided：很高興工作。請點擊左側的複選標記以接受此答案。 – BenV 2010-07-15 03:51:28

我無法弄清楚爲什麼這個答案有效。爲文本字段留出引號不應導致參數提示，只會導致數據類型不匹配。 – 2010-07-16 00:43:55

doCmd.openreport where子句提示

回答

相關問題