Accss报表问题

[BennySun]

请教一个Access报表的问题．我通过以下代码动态创建了一个报表．

DoCmd.CopyObject　 , "AirMaster1", acReport, "AirWithMaster1000"

DoCmd.OpenReport　 "AirMaster1", acViewPreview

请教下如何给AirMaster1新报表，新增一个报表关闭事件．我想在用户预览完此报表后，自动删除此报表．

请高人指点．

[BennySun]

可怜呐，没人可以回答．

[WWWWA]

不能在报表中实现，示例：假设EE为报表名，窗体3为执行操作有窗体名 Private Sub Form_Timer() On Error Resume Next DoCmd.DeleteObject acReport, "ee" Me.TimerInterval = 0 'Disable End Sub Private Sub 命令3_Click() DoCmd.OpenReport "ee", acViewDesign ' acViewDesign Reports("ee").Visible = False lngReturn = Reports("ee").Module.CreateEventProc("Close", "Report") Reports("ee").Module.InsertLines lngReturn + 1, "Forms!窗体3.TimerInterval = 2000 " & vbCrLf DoCmd.Close acReport, "ee", acSaveYes DoCmd.OpenReport "ee", acViewPreview End Sub 测试通过

[BennySun]

抱歉,很结贴了.你的回答很详细,试了下,还是可行的.