Свойство Report.OnCurrent (Access)
Задает или возвращает значение свойства 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 и обратная связь.