Report. OnCurrent-Eigenschaft (Access)Report.OnCurrent property (Access)

Legt den Wert der OnCurrent- **** Eigenschaft für den Bericht fest oder gibt diesen zurück.Sets or returns the value of the OnCurrent property on the report. Zeichenfolge mit Lese-/Schreibzugriff.Read/write String.

SyntaxSyntax

Ausdruck. OnCurrentexpression.OnCurrent

Ausdruck Eine Variable, die ein Report -Objekt darstellt.expression A variable that represents a Report object.

HinweiseRemarks

Wenn Sie möchten, dass eine Prozedur bei jedem Öffnen eines bestimmten Berichts automatisch ausgeführt wird, legen Sie die OnCurrent -Eigenschaft des Formulars auf [Ereignisprozedur] fest, und Access führt automatisch eine Prozedur aus, die als Private Sub Report_Current () bezeichnet wird. .If you want a procedure to run automatically every time you open a particular report, you set the form's OnCurrent property to [Event Procedure] and Access automatically stubs out a procedure for you called Private Sub Report_Current().

Mit **** der OnCurrent-Eigenschaft können Sie den Wert der OnCurrent-Eigenschaft **** des Formulars programmgesteuert bestimmen oder die OnCurrent-Eigenschaft **** des Formulars programmgesteuert festlegen.The OnCurrent property allows you to programmatically determine the value of the form's OnCurrent property, or to programmatically set the form's OnCurrent property.

Hinweis

Das aktuelle Ereignis wird ausgelöst, wenn Sie einen Bericht ausführen (öffnen).The Current event fires when you run (open) a report.

Wenn Sie die OnCurrent- **** Eigenschaft des Formulars auf der Benutzeroberfläche festlegen, wird der Wert basierend auf Ihrer Auswahl im Fenster Generator auswählen angezeigt, der angezeigt wird, wenn Sie die Schaltfläche ... neben dem Feld auf aktuell im Eigenschaftenfenster des Berichts auswählen.If you set the form's OnCurrent property in the UI, it gets its value based on your selection in the Choose Builder window, which appears when you choose the ... button next to the On Current box in the report's Properties window.

  • Wenn Sie den Ausdrucks-Generator auswählen, lautet der Wert =Ausdruck, wobei Ausdruck der Ausdruck im Fenster des Ausdrucks-Generators ist.If you choose Expression Builder, the value will be =expression, where expression is the expression from the Expression Builder window.

  • Wenn Sie Makro-Generator auswählen, ist der Wert der Name des Makros.If you choose Macro Builder, the value is the name of the macro.

  • Wenn Sie Code-Generator auswählen, ist der Wert [Ereignisprozedur].If you choose Code Builder, the value will be [Event Procedure].

BeispielExample

Im folgenden Codebeispiel wird veranschaulicht, wie die OnCurrent **** -Eigenschaft eines Berichts festgelegt wird.The following code example demonstrates how to set a report's OnCurrent property.


Private Sub Report_Load()

        Me.OnCurrent = "[Event Procedure]"

End Sub
        

Die Ereignisprozedur Report_Current () wird automatisch aufgerufen, wenn das aktuelle Ereignis ausgelöst wird.The event procedure Report_Current() is automatically called when the Current event is fired. Bei diesem Verfahren werden einfach die Werte von zwei Textfeldern des Berichts erfasst und an eine andere Prozedur zur Verarbeitung gesendet.This procedure simply collects the values of two of the report's text boxes and sends them to another procedure for processing.


Private Sub Report_Current()

        ' Declare variables to store price and available credit.
        Dim curPrice As Currency
        Dim curCreditAvail As Currency

        ' Assign variables from current values in text boxes on the Report.
        curPrice = txtValue1
        curCreditAvail = txtValue2

        ' Call VerifyCreditAvail procedure.
        VerifyCreditAvail curPrice, curCreditAvail

End Sub
        

Im folgenden Codebeispiel werden einfach die beiden Werte verarbeitet, die an Sie übergeben werden.The following code example simply processes the two values passed to it.

Sub VerifyCreditAvail(curTotalPrice As Currency, curAvailCredit As Currency)
    ' Inform the user if there is not enough credit available for the purchase.
    If curTotalPrice > curAvailCredit Then
        MsgBox "You do not have enough credit available for this purchase."
    End If
End Sub

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.