如何通过参数进行报表的使用

koutx

在报表打开事件中按如下改一下即可“
If sz > 0 Then
    For i = 1 To sz
        DoCmd.RunSQL "INSERT INTO tbltemptrace (order_qty, MONumber) VALUES (Null, '" & Form_Form1.MONumber & "')"
    Next
End If

koutx

将原Form1删除，重建一个Form1。只在Command2_Click事件中加如下代码：
Private Sub Command2_Click()
    Dim sqltext As String
    sqltext = "update 报表设置 set 报表设置.kh = " & CInt(Me.countCell)
    DoCmd.RunSQL sqltext

    Dim stDocName As String

    stDocName = "rptGser1"
    DoCmd.OpenReport stDocName, acPreview
End Sub

koutx

刚看到,试了一下还行:
见附件说明:可输入129619/也可输入全称Mo-129619)前提是:表中Mo号前三个字符都是"Mo-"