Report-Objekt (Access)Report object (Access)

Ein Report-Objekt verweist auf einen bestimmten Microsoft Access-Bericht.A Report object refers to a particular Microsoft Access report.

BemerkungenRemarks

Ein Report-Objekt ist ein Mitglied der Reports-Sammlung, eine Auflistung aller derzeit geöffneten Berichte.A Report object is a member of the Reports collection, which is a collection of all currently open reports. Innerhalb der Reports-Sammlung sind einzelne Berichte beginnend mit end mit 0 (null) inidiziert.Within the Reports collection, individual reports are indexed beginning with zero. Sie verweisen auf ein bestimmtes Report-Objekt in der Reports-Auflistung über den Berichtsnamen oder über den Index des Berichts innerhalb der Auflistung.You can refer to an individual Report object in the Reports collection either by referring to the report by name, or by referring to its index within the collection. Wenn der Berichtsname ein Leerzeichen umfasst, muss der Name von Klammern ([]) umgeben sein.If the report name includes a space, the name must be surrounded by brackets ([ ]).

SyntaxSyntax BeispielExample
Reports !Reports ! ReportNamereportname Reports!OrderReportReports!OrderReport
Reports ![ report name]Reports ![ report name] Reports![Bericht Bestellungen]Reports![Order Report]
Reports (" reportname")Reports (" reportname") Reports("OrderReport")Reports("OrderReport")
Reports ( index)Reports ( index) Reports(0)Reports(0)

Hinweis

Jedes Report-Objekt verfügt über eine Controls -Sammlung, die alle Steuerelemente im Bericht enthält.Each Report object has a Controls collection, which contains all controls on the report. Sie können auf ein Steuerelement in einem Bericht verweisen, indem Sie entweder implizit oder explizit auf die Controls-Sammlung verweisen.You can refer to a control on a report either by implicitly or explicitly referring to the Controls collection. Ihr Code wird schneller ausgeführt, wenn Sie implizit auf die Controls-Sammlung verweisen.Your code will be faster if you refer to the Controls collection implicitly. Im folgenden Beispiel sind zwei der Möglichkeiten zum Verweisen auf ein Steuerelement mit dem Namen NewData in einem Bericht namens OrderReport dargestellt.The following examples show two of the ways you might refer to a control named NewData on a report called OrderReport.

' Implicit reference. 
Reports!OrderReport!NewData

' Explicit reference. 
Reports!OrderReport.Controls!NewData

BeispielExample

Im folgenden Beispiel wird gezeigt, wie das NoData-Ereignis eines Berichts verwendet wird, um zu verhindern, dass das Berichtsformular geöffnet wird, wenn keine Daten zum Anzeigen vorhanden sind.The following example shows how to use the NoData event of a report to prevent the report form opening when there is no data to be displayed.

**Der Beispielcode stammt von: **Microsoft Access 2010 Programmer's ReferenceSample code provided by: The Microsoft Access 2010 Programmer's Reference

Private Sub Report_NoData(Cancel As Integer)

    'Add code here that will be executed if no data
    'was returned by the Report's RecordSource
    MsgBox "No customers ordered this product this month. " & _
        "The report will now close."
    Cancel = True

End Sub

Im folgenden Beispiel ist die Verwendung des Page-Ereignisses zum Hinzufügen eines Wasserzeichens zu einem Bericht dargestellt, bevor dieser gedruckt wird.The following example shows how to use the Page event to add a watermark to a report before it is printed.

Private Sub Report_Page()
    Dim strWatermarkText As String
    Dim sizeHor As Single
    Dim sizeVer As Single

#If RUN_PAGE_EVENT = True Then
    With Me
        '// Print page border
        Me.Line (0, 0)-(.ScaleWidth - 1, .ScaleHeight - 1), vbBlack, B
    
        '// Print watermark
        strWatermarkText = "Confidential"
        
        .ScaleMode = 3
        .FontName = "Segoe UI"
        .FontSize = 48
        .ForeColor = RGB(255, 0, 0)

        '// Calculate text metrics
        sizeHor = .TextWidth(strWatermarkText)
        sizeVer = .TextHeight(strWatermarkText)
        
        '// Set the print location
        .CurrentX = (.ScaleWidth / 2) - (sizeHor / 2)
        .CurrentY = (.ScaleHeight / 2) - (sizeVer / 2)
    
        '// Print the watermark
        .Print strWatermarkText
    End With
#End If

End Sub

Das folgende Beispiel zeigt, wie die BackColor-Eigenschaft eines Steuerelements basierend auf seinem Wert festgelegt wird.The following example shows how to set the BackColor property of a control based on its value.

Private Sub SetControlFormatting()
    If (Me.AvgOfRating >= 8) Then
        Me.AvgOfRating.BackColor = vbGreen
    ElseIf (Me.AvgOfRating >= 5) Then
        Me.AvgOfRating.BackColor = vbYellow
    Else
        Me.AvgOfRating.BackColor = vbRed
    End If
End Sub

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    ' size the width of the rectangle
    Dim lngOffset As Long
    lngOffset = (Me.boxInside.Left - Me.boxOutside.Left) * 2
    Me.boxInside.Width = (Me.boxOutside.Width * (Me.AvgOfRating / 10)) - lngOffset
    
    ' do conditional formatting for the control in print preview
    SetControlFormatting
End Sub

Private Sub Detail_Paint()
    ' do conditional formatting for the control in report view
    SetControlFormatting
End Sub

Im folgenden Beispiel wird gezeigt, wie ein Bericht so formatiert wird, dass Statusanzeigen angezeigt werden.The following example shows how to format a report to show progress bars. In dem Beispiel wird ein Paar von rechteckigen Steuerelementen, boxInside und boxOutside zum Erstellen einer Statusanzeige basierend auf dem Wert von AvgOfRating verwendet.The example uses a pair of rectangle controls, boxInside and boxOutside, to create a progress bar based on the value of AvgOfRating. Die Statusanzeigen sind nur dann sichtbar, wenn der Bericht im Modus Seitenansicht geöffnet ist oder gedruckt wird.The progress bars are visible only when the report is opened in Print Preview mode or it is printed.

Private Sub Report_Load()
    If (Me.CurrentView = AcCurrentView.acCurViewPreview) Then
        Me.boxInside.Visible = True
        Me.boxOutside.Visible = True
    Else
        Me.boxInside.Visible = False
        Me.boxOutside.Visible = False
    End If
End Sub

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    ' size the width of the rectangle
    Dim lngOffset As Long
    lngOffset = (Me.boxInside.Left - Me.boxOutside.Left) * 2
    Me.boxInside.Width = (Me.boxOutside.Width * (Me.AvgOfRating / 10)) - lngOffset
    
    ' do conditional formatting for the control in print preview
    SetControlFormatting
End Sub

EreignisseEvents

NameName
ActivateActivate
ApplyFilterApplyFilter
ClickClick
CloseClose
CurrentCurrent
DblClickDblClick
DeactivateDeactivate
ErrorError
FilterFilter
GotFocusGotFocus
KeyDownKeyDown
KeyPressKeyPress
KeyUpKeyUp
LoadLoad
LostFocusLostFocus
MouseDownMouseDown
MouseMoveMouseMove
MouseUpMouseUp
MouseWheelMouseWheel
NoDataNoData
OpenOpen
PagePage
ResizeResize
TimerTimer
UnloadUnload

MethodenMethods

NameName
CircleCircle
LineLine
MoveMove
PrintPrint
PSetPSet
RequeryRequery
ScaleScale
TextHeightTextHeight
TextWidthTextWidth

EigenschaftenProperties

NameName
ActiveControlActiveControl
AllowLayoutViewAllowLayoutView
AllowReportViewAllowReportView
ApplicationApplication
AutoCenterAutoCenter
AutoResizeAutoResize
BorderStyleBorderStyle
CaptionCaption
CloseButtonCloseButton
ControlBoxControlBox
ControlsControls
CountCount
CurrentRecordCurrentRecord
CurrentViewCurrentView
CurrentXCurrentX
CurrentYCurrentY
CycleCycle
DateGroupingDateGrouping
DefaultControlDefaultControl
DefaultViewDefaultView
DirtyDirty
DisplayOnSharePointSiteDisplayOnSharePointSite
DrawModeDrawMode
DrawStyleDrawStyle
DrawWidthDrawWidth
FastLaserPrintingFastLaserPrinting
FillColorFillColor
FillStyleFillStyle
FilterFilter
FilterOnFilterOn
FilterOnLoadFilterOnLoad
FitToPageFitToPage
FontBoldFontBold
FontItalicFontItalic
FontNameFontName
FontSizeFontSize
FontUnderlineFontUnderline
ForeColorForeColor
FormatCountFormatCount
GridXGridX
GridYGridY
GroupLevelGroupLevel
GrpKeepTogetherGrpKeepTogether
HasDataHasData
HasModuleHasModule
HeightHeight
HelpContextIdHelpContextId
HelpFileHelpFile
HwndHwnd
InputParametersInputParameters
KeyPreviewKeyPreview
LayoutForPrintLayoutForPrint
LeftLeft
MenuBarMenuBar
MinMaxButtonsMinMaxButtons
ModalModal
ModuleModule
MouseWheelMouseWheel
MoveableMoveable
MoveLayoutMoveLayout
NameName
NextRecordNextRecord
OnActivateOnActivate
OnApplyFilterOnApplyFilter
OnClickOnClick
OnCloseOnClose
OnCurrentOnCurrent
OnDblClickOnDblClick
OnDeactivateOnDeactivate
OnErrorOnError
OnFilterOnFilter
OnGotFocusOnGotFocus
OnKeyDownOnKeyDown
OnKeyPressOnKeyPress
OnKeyUpOnKeyUp
OnLoadOnLoad
OnLostFocusOnLostFocus
OnMouseDownOnMouseDown
OnMouseMoveOnMouseMove
OnMouseUpOnMouseUp
OnNoDataOnNoData
OnOpenOnOpen
OnPageOnPage
OnResizeOnResize
OnTimerOnTimer
OnUnloadOnUnload
OpenArgsOpenArgs
OrderByOrderBy
OrderByOnOrderByOn
OrderByOnLoadOrderByOnLoad
OrientationOrientation
PagePage
PageFooterPageFooter
PageHeaderPageHeader
PagesPages
PaintingPainting
PaintPalettePaintPalette
PaletteSourcePaletteSource
ParentParent
PicturePicture
PictureAlignmentPictureAlignment
PictureDataPictureData
PicturePagesPicturePages
PicturePalettePicturePalette
PictureSizeModePictureSizeMode
PictureTilingPictureTiling
PictureTypePictureType
PopUpPopUp
PrintCountPrintCount
PrinterPrinter
PrintSectionPrintSection
PropertiesProperties
PrtDevModePrtDevMode
PrtDevNamesPrtDevNames
PrtMipPrtMip
RecordLocksRecordLocks
RecordsetRecordset
RecordSourceRecordSource
RecordSourceQualifierRecordSourceQualifier
ReportReport
RibbonNameRibbonName
ScaleHeightScaleHeight
ScaleLeftScaleLeft
ScaleModeScaleMode
ScaleTopScaleTop
ScaleWidthScaleWidth
ScrollBarsScrollBars
SectionSection
ServerFilterServerFilter
ShapeShape
ShortcutMenuBarShortcutMenuBar
ShowPageMarginsShowPageMargins
TagTag
TimerIntervalTimerInterval
ToolbarToolbar
TopTop
UseDefaultPrinterUseDefaultPrinter
VisibleVisible
WidthWidth
WindowHeightWindowHeight
WindowLeftWindowLeft
WindowTopWindowTop
WindowWidthWindowWidth

Informationen zu den MitwirkendenAbout the contributors

Wrox Press wird getragen von der Philosophie "von Programmierern für Programmierer".Wrox Press is driven by the Programmer to Programmer philosophy. Wrox-Bücher wurden von Programmierern für Programmierer verfasst, und die Marke Wrox steht für intelligente Lösungen für praktische Programmierprobleme.Wrox books are written by programmers for programmers, and the Wrox brand means authoritative solutions to real-world programming problems.

Siehe auchSee also

Report-Objektelemente Access-ObjektmodellreferenzReport Object Members Access Object Model Reference

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.