Microsoft Access 掲示板

何度もすみません。試してみてください。

Private Sub Report_Open(Cancel As Integer)
Dim db As DAO.Database
Dim qd As DAO.QueryDef
Dim cnt As Integer
Dim fld As DAO.Field
Dim rs As DAO.Recordset
　Set db = CurrentDb()
　Set qd = db.QueryDefs(Me.RecordSource)
　qd.Parameters(“[Forms]![フォームの名前]![絞り込みの名前]”)=[Forms]![フォームの名前]![絞り込みの名前]
　Set rs = qd.OpenRecordset
　For cnt = 2 To rs.Fields.Count - 1
　　Set fld = rs.Fields(cnt)
　　Me("Label" & cnt).Caption = fld.Name
　　Me("Field" & cnt).ControlSource = fld.Name
　　Me("Total" & cnt).ControlSource = "=Sum([" & fld.Name & "])"
　Next
End Sub

下記を追加。フォームの名前と絞り込みの名前は適宜変更して下さい。
Dim rs As DAO.Recordset
qd.Parameters(“[Forms]![フォームの名前]![絞り込みの名前]”)=[Forms]![フォームの名前]![絞り込みの名前]
Set rs = qd.OpenRecordset
下記を変更。
For cnt = 2 To rs.Fields.Count - 1
Set fld = rs.Fields(cnt)