Recordsource |
Private Sub Report_Open(Cancel As Integer) On Error GoTo ErrHandler Me.RecordSource = "EXEC [dbo].[procS];1 " Me.subSales.Report.RecordSource = "EXEC [dbo].[procS];2" ExitHere: Exit Sub ErrHandler: MsgBox Err.Source & "-->" & Err.Number & ":" & Err.Description, vbExclamation, "Error" Cancel = True Resume ExitHere End Sub
Report_Load()- ", , !"
Report_Page()
Report_Activate()
http://www.sql.ru/forum/1106789/iz-otchyota-prisvoit-recordsource-podchinyonnomu-otchyotu