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 registro de fornecedor se torna atual, você pode 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 Current também ocorre quando você atualiza um formulário ou requeria a tabela ou consulta subjacente do formulário, por exemplo, quando você escolhe Remover Filtro/Classificar no menu Registros ou usa a ação Requery em uma macro ou o método Requery no código 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 chamado Descontinuado. Se o botão for selecionado, o exemplo definirá a cor em segundo plano do campo ProductName 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 Descontinuada e uma caixa de texto chamada 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.