ms访问更改报告RecordSource与表单

Question

我有一个表单，我希望它能够保存表的副本以及生成的报表。我还希望报告的记录源更改为新表的名称。 我已经获得了报告和表格的副本，我只是无法弄清楚RecordSource的部分。

Dim tabName As String
tabName = Text255.Value

DoCmd.CopyObject , tabName, acTable, "MPO"
DoCmd.CopyObject , tabName, acReport, "MPO"

Answer 1

不要更改报告。使用查询作为报告的来源。

在打开报告之前，请调整查询的SQL：

Dim db As DAO.Database
Dim qd As DAO.QueryDef

Set db = CurrentDb
Set qd = db.QueryDefs("NameOfYourQuery")
qd.SQL = "Select * From " & YourNewTableName & ""
qd.Close

Set qd = Nothing
Set db = Nothing