Èç îò÷¸òà ïðèñâîèòü 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
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |