Report.OnCurrent-Eigenschaft (Access)

Legt den Wert der OnCurrent-Eigenschaft für den Bericht fest oder gibt den Wert zurück. Zeichenfolge mit Lese-/Schreibzugriff.

Syntax

Ausdruck. OnCurrent

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

Hinweise

Wenn eine Prozedur bei jedem Öffnen eines bestimmten Berichts automatisch ausgeführt werden soll, legen Sie die OnCurrent-Eigenschaft des Formulars auf [Ereignisprozedur] fest, und Access führt automatisch eine Prozedur namens Private Sub Report_Current() für Sie aus.

Mit der OnCurrent-Eigenschaft können Sie den Wert der OnCurrent-Eigenschaft des Formulars programmgesteuert bestimmen oder die OnCurrent-Eigenschaft des Formulars programmgesteuert festlegen.

Hinweis

Das Current-Ereignis wird ausgelöst, wenn Sie einen Bericht ausführen (öffnen).

Wenn Sie die OnCurrent-Eigenschaft des Formulars auf der Benutzeroberfläche festlegen, erhält es seinen Wert basierend auf Ihrer Auswahl im Fenster Generator auswählen, das angezeigt wird, wenn Sie die Schaltfläche ... neben dem Feld Bei Aktuell im Eigenschaftenfenster des Berichts auswählen.

• Wenn Sie Ausdrucks-Generator auswählen, lautet der Wert =ausdruck, wobei expression der Ausdruck aus dem Fenster Ausdrucks-Generator ist.

• Wenn Sie Makro-Generator auswählen, ist der Wert der Name des Makros.

• Wenn Sie Code-Generator auswählen, lautet der Wert [Ereignisprozedur].

Beispiel

Im folgenden Codebeispiel wird veranschaulicht, wie die OnCurrent-Eigenschaft eines Berichts festgelegt wird.

Private Sub Report_Load()

        Me.OnCurrent = "[Event Procedure]"

End Sub
		

Die Ereignisprozedur Report_Current() wird automatisch aufgerufen, wenn das Current-Ereignis ausgelöst wird. Diese Prozedur sammelt einfach die Werte von zwei Textfeldern des Berichts und sendet sie zur Verarbeitung an eine andere Prozedur.

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 die beiden an ihn übergebenen Werte einfach verarbeitet.

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 don't have enough credit available for this purchase."
    End If
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.