Report.OnCurrent-Eigenschaft (Access)

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

Syntax

Ausdruck verwendet werden. 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. Access erstellt dann automatisch eine Prozedur namens 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.

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

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

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

• Wenn Sie Code Builder auswählen, lautet der Wert [Event Procedure].

Beispiel

Das folgende Codebeispiel zeigt, 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 aktuelle Ereignis ausgelöst wird. Dieses Verfahren 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 einfach die beiden Werte verarbeitet, die an das Element übergeben werden.

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.