如何使用记录集(而不是查询或表)中的数据生成访问报告。我对记录集有更新,也必须在报告中显示。

有帮助吗?

解决方案

访问网络,您可以使用“名称”和“名称”。记录集的属性。结果代码看起来像这样:

在报告中

Private Sub Report_Open(Cancel As Integer)
    Me.RecordSource = gMyRecordSet.Name
End Sub

在调用对象(模块,表单等)中

Public gMyRecordSet As Recordset
'...
Public Sub callMyReport()
    '...
    Set gMyRecordSet = CurrentDb.OpenRecordset("Select * " & _
                                               "from foo " & _
                                               "where bar='yaddah'")
    DoCmd.OpenReport "myReport", acViewPreview  
    '...
    gMyRecordSet.Close  
    Set gMyRecordSet = Nothing
    '...
End Sub
scroll top