http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FAccess%2FReport_Event
VBA/Excel/Access/Word/Access/Report Event - История изменений
2026-04-07T01:27:27Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Access/Report_Event&diff=1354&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Access/Report_Event&diff=1355&oldid=prev
Admin: 1 версия
2010-05-26T12:46:53Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Activate toolbar with DoCmd.ShowToolbar==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub Report_Activate()<br />
DoCmd.ShowToolbar "AllOrders", acToolbarYes<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Close form without saving==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub Report_Close()<br />
DoCmd.Close acForm, "frmReportFilter", acSaveNo<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Deactivate toolbar DoCmd.ShowToolbar==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub Report_Deactivate()<br />
DoCmd.ShowToolbar "AllOrders", acToolbarNo<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Report Error Event==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub Report_Error(DataErr As Integer, Response As Integer)<br />
If DataErr = 2580 Then<br />
MsgBox "Record Source Not Available for this Report"<br />
Response = acDataErrContinue<br />
End If<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Report Open event==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub Report_Open (Cancel As Integer)<br />
Dim blnResultintResult As Integer<br />
Dim strWarning As String<br />
strWarning = "This report may take some time." & _<br />
" Or press Cancel to abort the operation."<br />
intResult = MsgBox (strWarning, vbOKCancel, "Warning")<br />
If intResult = vbCancel Then<br />
Cancel = True<br />
End If<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Sub Report_Close()==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
DoCmd.Close acForm, "frmReportDateRange"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Sub Report_NoData(Cancel As Integer)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
MsgBox "There is no data for this report. Canceling report..."<br />
Cancel = True<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Sub Report_Open(Cancel As Integer)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
On Error Resume Next<br />
DoCmd.OpenForm "frmReportDateRange", _<br />
WindowMode:=acDialog, _<br />
OpenArgs:="rptProjectBillingsbyWorkCode"<br />
If Not IsLoaded("frmReportDateRange") Then<br />
MsgBox "Criteria Form Not Successfully Loaded, " & _<br />
"Canceling Report"<br />
Cancel = True<br />
End If<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==The Page event gives you the opportunity to do something immediately before the formatted page is sent to the printer: place a border around a page==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub Report_Page()<br />
Me.Line (0, 0)-(Me.ScaleWidth - 30, Me.ScaleHeight - 30), _<br />
RGB(255, 0, 0), B<br />
End Sub<br />
</source></div>
Admin