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

yanwei82123300

上次在小宝老师的帮助下解决了报表排序问题，但是在有参数的情况下，不能出现手动添加的空行和排序号。请大家帮助看看，谢谢

yanwei82123300

koutx  谢谢帮助111

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

yanwei82123300

koutx 老师请帮助看看，每次输入MO时系统的错误提示

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

yanwei82123300

koutx 谢谢帮助！！

tmtony

一般我建议你，查询不直接绑定窗体的 控件，这样可以实现，但灵活度不够，你可在打开报表时传递 筛选条件过去
1.首先将报表的数据源直接设置为表
2.打开报表时 传递 条件过去 DoCmd.OpenReport stDocName, acPreview, , "MONumber like '*" & Me.MONumber & "*'"


Private Sub Command2_Click()
On Error GoTo Err_Command2_Click

    Dim stDocName As String

    stDocName = "rptGser1"
    DoCmd.OpenReport stDocName, acPreview, , "MONumber like '*" & Me.MONumber & "*'"

Exit_Command2_Click:
    Exit Sub

Err_Command2_Click:
    MsgBox Err.Description
    Resume Exit_Command2_Click
   
End Sub

yanwei82123300

谢谢tmtony 老师帮助，我明白了。例子在1楼，主要是报表中的代码限制了模糊条件，看看能否修改下面的代码，是它变成模糊查询条件。（主要是添加空白行）qty字段值是多少空行就有多少
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

yanwei82123300

koutx 发表于 2012-7-13 22:29
将原Form1删除，重建一个Form1。只在Command2_Click事件中加如下代码：
Private Sub Command2_Click()
   ...

各位老师好！上次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


在报表打开事件中按如下改一下即可“
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
现在由一个问题：
能否将此中'" & Form_Form1.MONumber & "' 变为模糊查询，只需要输入其中一些数值就可查询到数据：
例如：
MO-123416 ,输入123416就可以进行报表查询了。
请大家帮助看看，谢谢。

koutx

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