Form.Current event (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

mais simples. 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 registro de fornecedor se torna atual, é possível exibir os produtos fabricados pelo fornecedor em um 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 você atualiza um formulário ou consulta novamente a tabela ou consulta subjacente do formulário — por exemplo, quando você escolhe Remover Filtro/Classificação no menu Registros ou usa a ação Repetir Consulta em uma macro ou o método Repetir Consulta 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 a seguir, um procedimento de evento atual verifica o status de um botão de opção denominado Descontinuado. Se o botão estiver selecionado, o exemplo definirá a cor de fundo do campo NomeProduto como vermelho para indicar que o produto foi descontinuado.

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

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.