Propriedade Report.OnCurrent (Access)

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

Sintaxe

mais simples. Atual

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

Comentários

Se quiser que um procedimento seja executado automaticamente sempre que você abrir um relatório específico, defina a propriedade OnCurrent do formulário como [Procedimento de Evento] e o Access desativará automaticamente um procedimento para você chamado Sub Privado 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.

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

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

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

• Se você escolher Construtor de Códigos, o valor será [Event Procedure].

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 caixas de texto do relatório e os envia para outro procedimento de 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.