关于openreport 打开报表的条件

samealwang　发表于：2015-01-06 11:39:30 　

下面的语句不能正式执行，
我的原意是
执行
"取引先コード ='S000' & '1'"
"取引先コード ='S000' & '2'"
"取引先コード ='S000' & '3
…
的条件的。

Private Sub コマンド0_Click()

dim a as Integer
Dim b As String
a=1
Do until a=5
b = cstr(a)
DoCmd.OpenQuery "Q-注文履歴"
DoCmd.OpenReport "R-注文书", acViewReport, , "取引先コード ='S000' & '[b]'"
DoCmd.OutputTo acOutputReport, "R-注文书", acFormatPDF, CurrentProject.Path & "注文书1.pdf"
DoCmd.Close acReport, "R-注文书"

End Sub

Top

煮江品茶发表于：2015-01-06 15:09:17

假设b是一个变量（可以是控件值或内存变量），则第4个参数写为：
"取引先コード ='S000" & [b] & "'"

Top

cspa 发表于：2015-01-06 15:47:25

改为以下试试：

Private Sub コマンド0_Click()

dim a as Integer
Dim b As String

for a=1 to 5

    b = cstr(a)
    DoCmd.OpenQuery "Q-注文履歴"
    DoCmd.OpenReport "R-注文书", acViewReport, , "取引先コード ='S000" & b & "'"
    DoCmd.OutputTo acOutputReport, "R-注文书", acFormatPDF, CurrentProject.Path & "注文书1.pdf"
    DoCmd.Close acReport, "R-注文书"
next
End Sub

Top

samealwang 发表于：2015-01-07 14:21:26

cspa　

谢谢你的帮忙，现在已经搞定了。真的太感谢您了。

Sam

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

关于openreport 打开报表的条件