Propriedade Report.OnCurrent (Access)

Define ou devolve 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 Relatório .

Comentários

Se quiser que um procedimento seja executado automaticamente sempre que abrir um relatório específico, defina a propriedade OnCurrent do formulário como [Procedimento de Evento] e o Access abre automaticamente um procedimento denominado Sub-Report_Current().

A propriedade OnCurrent permite-lhe determinar programaticamente o valor da propriedade OnCurrent do formulário ou definir programaticamente a propriedade OnCurrent do formulário.

Se definir a propriedade OnCurrent do formulário na IU, este obtém o respetivo valor com base na sua seleção na janela Escolher Construtor, que é apresentada quando seleciona o botão ... junto à caixa No Atual na janela Propriedades do relatório.

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

• Se escolher Construtor de Macros, o valor é o nome da macro.

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

Exemplo

O exemplo de código seguinte 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. Este procedimento simplesmente recolhe os valores de duas das caixas de texto do relatório e envia-os 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.