Propriedade Report.OnCurrent (Access)

Define ou retorna o valor da propriedade OnCurrent no relatório. String de leitura/gravação.

Sintaxe

expressão. OnCurrent

Expressão Uma variável que representa um objeto Report .

Comentários

Se você quiser que um procedimento seja executado automaticamente toda vez que abrir um relatório específico, você definirá a propriedade OnCurrent do formulário como [Procedimento de Evento] e o Access executará automaticamente um procedimento para você chamado Sub-Report_Current().

A propriedade OnCurrent permite que você determine programaticamente o valor da propriedade OnCurrent do formulário ou defina programaticamente a propriedade OnCurrent do formulário.

Observação

O evento Current é acionado quando você executa (abre) um relatório.

Se você definir a propriedade OnCurrent do formulário na interface do usuário, ele obterá seu valor com base na sua seleção na janela Escolher Construtor, que aparece quando você escolhe o botão ... ao lado da caixa On Current no janela Propriedades do relatório.

• Se você escolher Construtor de Expressões, o valor será =expression, em que a expressão é a expressão da janela Construtor de Expressões.

• Se você escolher Construtor de Macros, o valor será o nome da macro.

• Se você escolher Construtor de Código, o valor será [Procedimento de Evento].

Exemplo

O exemplo de código a seguir demonstra como definir a propriedade OnCurrent de um relatório.

Private Sub Report_Load()

        Me.OnCurrent = "[Event Procedure]"

End Sub
		

O procedimento de evento Report_Current() é chamado automaticamente quando o evento atual é acionado. Esse procedimento simplesmente coleta os valores de duas das caixas de texto do relatório e as envia para outro procedimento para processamento.

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
		

O exemplo de código a seguir simplesmente processa os dois valores passados para ele.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.