Evento Form.Current (Access)

Ocorrerá quando o foco se mover para um registro, tornando-o o registro atual ou quando o formulário for atualizado ou consultado novamente.

Sintaxe

expressão. Atual

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

Comentários

Para executar um macro ou procedimento de evento quando esse evento ocorrer, defina a propriedade OnCurrent como o nome da macro ou como [procedimento do evento].

Esse evento ocorre quando um formulário é aberto e sempre que o foco passa de um registro para outro. O Microsoft Access executa a macro atual ou procedimento de evento antes do primeiro ou o próximo registro é exibido.

Executando um macro ou procedimento de evento quando ocorre o evento Current de um formulário, você pode exibir uma mensagem ou sincronizar registros em um outro formulário relacionado ao registro atual. Por exemplo, quando um registro de cliente é atualizado, você pode exibir o pedido anterior do cliente. Quando um registo de fornecedor se torna atualizado, pode apresentar os produtos fabricados pelo fornecedor num formulário Fornecedores . Você também pode efetuar cálculos com base no registro atual ou alterar o formulário em resposta a dados no registro atual.

Se sua macro ou procedimento de evento executar uma ação GoToControl ou GoToRecord ou o método correspondente do objeto DoCmd em resposta a um evento Open, ocorrerá o evento Current.

O evento Atual também ocorre quando atualiza um formulário ou consulta subjacente ao formulário, por exemplo, quando seleciona Remover Filtro/Ordenação no menu Registos ou utiliza a ação Requerer numa macro ou o método Requerer no código do Visual Basic.

Assim que você abre um formulário, os eventos a seguir ocorrem nesta ordem:

Abrir → carregar → Redimensionar → Ativar → atual

Exemplo

No exemplo seguinte, um Procedimento de evento atual verifica a status de um botão de opção chamado Descontinuado. Se o botão estiver selecionado, o exemplo define a cor de fundo do campo ProductName como vermelho para indicar que o produto foi descontinuado.

Para experimentar o exemplo, adicione o seguinte procedimento de evento a um formulário que contém uma opção chamada Descontinuado e uma caixa de texto denominada ProductName.

Private Sub Form_Current() 
 If Me!Discontinued Then 
 Me!ProductName.BackColor = 255 
 EndIf 
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.