Свойство Report.OnCurrent (Access)

Статья
04/07/2023

Задает или возвращает значение свойства OnCurrent в отчете. Для чтения и записи, String.

Синтаксис

expression. OnCurrent

Выражение Переменная, представляющая объект Report .

Замечания

Если требуется, чтобы процедура выполнялась автоматически при каждом открытии конкретного отчета, задайте для свойства OnCurrent формы значение [Процедура события], а Access автоматически заглушит процедуру для вас с именем Private Sub Report_Current().

Свойство OnCurrent позволяет программно определить значение свойства OnCurrent формы или программно задать свойство OnCurrent формы.

Примечание.

Событие Current срабатывает при запуске (открытии) отчета.

Если задать свойство OnCurrent формы в пользовательском интерфейсе, оно получает его значение на основе выбранного вами в окне Выбор построителя, которое появляется при нажатии кнопки ... рядом с полем On Current в окно свойств отчета.

Если выбрать построитель выражений, значением будет =expression, где expression — это выражение из окна построителя выражений.
Если выбрать построитель макросов, значением будет имя макроса.
При выборе построителя кода будет задано значение [Процедура события].

Пример

В следующем примере кода показано, как задать свойство OnCurrent отчета.


Private Sub Report_Load()

        Me.OnCurrent = "[Event Procedure]"

End Sub

Процедура события Report_Current() вызывается автоматически при срабатывании события Current . Эта процедура просто собирает значения двух текстовых полей отчета и отправляет их в другую процедуру для обработки.


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

В следующем примере кода просто обрабатываются два переданных ему значения.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Share via