Evento OptionButton.Exit (Access)OptionButton.Exit event (Access)

O evento Exit ocorre logo antes de um controle perde o foco para outro controle no mesmo formulário ou relatório.The Exit event occurs just before a control loses the focus to another control on the same form or report.

SintaxeSyntax

expression.expression. Exit( _Cancel_ )

expressão Uma variável que representa um objeto CheckBox .expression A variable that represents an OptionButton object.

ParâmetrosParameters

NomeName Obrigatório/OpcionalRequired/Optional Tipo de dadosData type DescriçãoDescription
CancelCancel ObrigatórioRequired IntegerInteger Defina como True para cancelar o evento.Set to True to cancel the event.

ComentáriosRemarks

Esse evento não se aplica a caixas de seleção, botões de opção ou botões de alternância em um grupo de opções.This event does not apply to check boxes, option buttons, or toggle buttons in an option group. Aplica-se somente ao grupo de opções propriamente dito.It applies only to the option group itself.

Para executar um macro ou procedimento de evento quando esse evento ocorrer, defina a propriedade OnExit com o nome da macro ou como [procedimento do evento].To run a macro or event procedure when this event occurs, set the OnExit property to the name of the macro or to [Event Procedure].

Como o evento Enter ocorre antes do foco é movido para um determinado controle, você pode usar um procedimento de evento ou macro Enter para exibir instruções; Por exemplo, você poderia usar um macro ou procedimento de evento para exibir uma pequena formulário ou caixa de mensagem que identifica o tipo de dados que geralmente contém o controle, ou fornecendo instruções sobre como usar o controle.Because the Enter event occurs before the focus moves to a particular control, you can use an Enter macro or event procedure to display instructions; for example, you could use a macro or event procedure to display a small form or message box identifying the type of data the control typically contains, or giving instructions on how to use the control.

O evento Exit ocorre antes do evento LostFocus .The Exit event occurs before the LostFocus event.

Ao contrário do evento LostFocus , o evento Exit ocorre quando um formulário perde o foco.Unlike the LostFocus event, the Exit event does not occur when a form loses the focus. Por exemplo, suponha que você selecione uma caixa de seleção em um formulário e clique em um relatório.For example, suppose you select a check box on a form, and then click a report. Os eventos Enter e GotFocus ocorrerem quando você marcar a caixa de seleção.The Enter and GotFocus events occur when you select the check box. Somente o evento LostFocus ocorre quando se clica no relatório.Only the LostFocus event occurs when you click the report. O evento Exit não ocorre (porque o foco será movido para uma janela diferente).The Exit event doesn't occur (because the focus is moving to a different window). Se você selecionar a caixa de seleção no formulário novamente para atualizá-lo para o primeiro plano, o evento GotFocus ocorre, mas não o evento Enter (porque o controle tinha o foco quando o formulário foi a última atividade).If you select the check box on the form again to bring it to the foreground, the GotFocus event occurs, but not the Enter event (because the control had the focus when the form was last active). O evento Exit ocorre somente quando você clicar em outro controle no formulário.The Exit event occurs only when you click another control on the form.

Se você mover o foco para um controle em um formulário e esse controle não tiver o foco, os eventos Exit e LostFocus do controle que tem o foco nesse formulário ocorrerão antes dos eventos Enter e GotFocus do controle para o qual você o moveu.If you move the focus to a control on a form, and that control doesn't have the focus on that form, the Exit and LostFocus events for the control that does have the focus on the form occur before the Enter and GotFocus events for the control you moved to.

Se o mouse for utilizado para mover o foco de um controle em um formulário principal para um controle em um subformulário desse formulário (um controle que não tenha mais o foco no subformulário), os eventos a seguir ocorrerão:If you use the mouse to move the focus from a control on a main form to a control on a subform of that form (a control that doesn't already have the focus on the subform), the following events occur:

Exit (para o controle no formulário principal)Exit (for the control on the main form)

?

LostFocus (para o controle no formulário principal)LostFocus (for the control on the main form)

?

Insira (para o controle de subformulário)Enter (for the subform control)

?

Exit (para o controle no subformulário que tinha o foco)Exit (for the control on the subform that had the focus)

?

LostFocus (para o controle no subformulário que tinha o foco)LostFocus (for the control on the subform that had the focus)

?

Insira (para o controle no subformulário que o foco foi movido)Enter (for the control on the subform that the focus moved to)

?

GotFocus (para o controle no subformulário que o foco foi movido)GotFocus (for the control on the subform that the focus moved to)

Se o controle que você mover para no subformulário tiver o foco, nem o seu evento Enter nem o seu evento GotFocus ocorre, mas o evento Enter para o controle de subformulário ocorrerá.If the control you move to on the subform previously had the focus, neither its Enter event nor its GotFocus event occurs, but the Enter event for the subform control does occur. Se você mover o foco de um controle em um subformulário para um controle no formulário principal, o Exit e LostFocus eventos para o controle no subformulário não ocorrerão, somente o evento Exit do controle de subformulário e os eventos Enter e GotFocus para o controle no formulário principal.If you move the focus from a control on a subform to a control on the main form, the Exit and LostFocus events for the control on the subform don't occur, just the Exit event for the subform control and the Enter and GotFocus events for the control on the main form.

Observação Geralmente, você usar o mouse ou uma tecla como TAB para mover o foco para outro controle.Note You often use the mouse or a key such as TAB to move the focus to another control. Isso faz com que os eventos de mouse ou de teclado ocorram, além dos eventos discutidos neste tópico.This causes mouse or keyboard events to occur in addition to the events discussed in this topic.

ExemploExample

No exemplo a seguir, os dois procedimentos de evento são anexados à caixa de texto LastName.In the following example, two event procedures are attached to the LastName text box. O procedimento de evento Enter exibe uma mensagem especificando que tipo de dados que o usuário pode digitar na caixa de texto.The Enter event procedure displays a message specifying what type of data the user can enter in the text box. O procedimento de evento Exit exibe uma caixa de diálogo perguntando ao usuário se as alterações devem ser salvas antes do foco será movido para outro controle.The Exit event procedure displays a dialog box asking the user if changes should be saved before the focus moves to another control. Se o usuário clicar no botão Cancelar, o argumento de Cancel é definido como True (?1), que move o foco para a caixa de texto sem salvar as alterações.If the user clicks the Cancel button, the Cancel argument is set to True (?1), which moves the focus to the text box without saving changes. Se o usuário escolher o botão OK, as alterações serão salvas e o foco é movido para um outro controle.If the user chooses the OK button, the changes are saved, and the focus moves to another control.

Para testar o exemplo, adicione o procedimento de evento a seguir a um formulário que contenha uma caixa de texto denominada LastName.To try the example, add the following event procedure to a form that contains a text box named LastName.

Private Sub LastName_Enter() 
 MsgBox "Enter your last name." 
End Sub 
 
Private Sub LastName_Exit(Cancel As Integer) 
 Dim strMsg As String 
 
 strMsg = "You entered '" & Me!LastName _ 
 & "' as your last name." & _ 
 vbCrLf & "Is this correct?" 
 If MsgBox(strMsg, vbYesNo) = vbNo Then 
 Cancel = True ' Cancel exit. 
 Else 
 Exit Sub ' Save changes and exit. 
 End If 
End Sub

Ver tambémSee also

Objeto OptionButtonOptionButton Object