-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Èç îò÷¸òà ïðèñâîèòü Recordsource ïîä÷èí¸ííîìó îò÷¸òó

Ñðåäà, 23 Èþëÿ 2014 ã. 11:07 + â öèòàòíèê
Àêñåññ 2010.
×òî-òî ÿ çàòóïèë íà ðîâíîì ìåñòå...
Ó ìåíÿ îòêðûâàåòñÿ îò÷¸ò, â êîòîðîì ïàðà ïîä÷èí¸ííûõ.
Ïûòàþñü èì â ñîáûòèè îò÷¸òà Open ïðèñâîèòü èñòî÷íèê ñòðîê:

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 (ïîä÷èí¸ííûé îò÷¸ò åù¸ íå çàãðóæåí)
À åñëè ïðèñâàèâàòü â ñîáûòèÿõ
Report_Load()
Report_Page()
Report_Activate()
- òî ãîâîðèò "Íåëüçÿ, äÿäÿ, ïðèñâîèòü èñòî÷íèê ñòðîê ïîñëå íà÷àëà ïå÷àòè!"

Ïîäñêàæèòå, ïîä÷èí¸ííûì îò÷¸òàì âîîáùå ìîæíî ïðèñâîèòü Recordsource èç îñíîâíîãî? Èëè èñêàòü äðóãîé ñïîñîá?

http://www.sql.ru/forum/1106789/iz-otchyota-prisvoit-recordsource-podchinyonnomu-otchyotu


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó