MS ACCESS 2003 - 有关将信息从未绑定表单传递到报告的问题

Question

我使用类似下面的东西将信息从一个未绑定的表单传递到另一个（请原谅没有错误检查）：

Sub Button_Click()
Dim db as DAO.database
Dim rs as DAO.recordset
Dim sql as string

docmd.openform "NextFormIamAbouttoUse"

sql = "SELECT * FROM tblMain WHERE MainID = " & Me.As_MainID & ";"

' usually debug here

set db = currentdb
set rs = db.openrecordset(sql)

if rs.eof then
   msgbox "oops message"
else
     rs.movefirst
          [Forms]![NextFormIamAbouttoUse].as_mainID = rs![MainID]
          [forms]![NextFormIamAbouttoUse].value1 = rs![value1]
          ' etc

     rs.close
     set db = nothing
     set rs = nothing
     sql = ""
 end if

 'error stuff
  end sub

好的，那么我也可以使用这种东西将信息从表单传输到报告？我使用了很多充满文本框的表单作为仪表板，其中文本框没有输入目的，而是显示快速信息。

用户浏览不同的表单以根据自己的喜好构建“类似仪表板”的表单，然后在某个时候想要打印。所以我想在每个点构建类似的（就提供的数据而言）报告，以便他们可以打印通过这些表格构建的信息页。

所以我尝试用报告来做到这一点：

Sub Button_Click()
Dim db as DAO.database
Dim rs as DAO.recordset
Dim sql as string

docmd.openreport "ReportTester", acViewPreview

sql = "SELECT * FROM tblMain WHERE MainID = " & Me.As_MainID & ";"

' usually debug here

set db = currentdb
set rs = db.openrecordset(sql)

if rs.eof then
   msgbox "oops message"
else
     rs.movefirst
          [reports]![ReportTester].as_mainID = rs![MainID]
          [reports]![ReportTester].value1 = rs![value1]
          ' etc

     rs.close
     set db = nothing
     set rs = nothing
     sql = ""
 end if

 'error stuff
  end sub

只是作为猜测，但没有成功。没有错误，或者任何东西。只是不会以这种方式显示任何信息。连身份证号码都不会传。

所以我认为在 AcViewPreview 中打开报告意味着我无法在事后向这些文本框添加信息，但我只是不确定。因此，非常感谢对此的任何建议。谢谢！

Answer 1

你有几个选择。您可以创建一个查询，并将表单控件值传递到其中的值，从而创建一个包含 1 条记录的查询，您可以将其作为报告的基础。

每列将如下所示：数据：表单！[MyForm]！[MyControl]

或者您可以将表单中的控件直接绑定到报表控件。

如果您选择其中任一途径，则在打开报告时，您需要保持包含值的表单处于打开状态。不需要复杂的代码。

Answer 2

我想我错过了一些东西。为什么不让报表的 Recordsource 与表单的 Recordsource 相同，然后在运行时过滤到 DoCmd.OpenReport 的WhereCondition 参数中的特定 MainID？然后您无需打开表单即可运行报告。

除非表单未绑定，或者具有动态计算成本高昂的字段，否则我根本看不到将报表绑定到表单有任何优势。