Pergunta : VBA - Pausa após SetFocus

Eu tenho o seguinte erro secundário PROC_ERR
do
On do code

Private ExitCheck () se Me.txt box1.Value = “incorpora aqui” a extremidade If

de Then
Me.txt box1.SetFocus
se Me.txt box2.Value = “não incorpora aqui” o resumo PROC_EXIT

End Sub

When Me.txt box1.SetFocus de Sub

PROC_ERR
MsgBox Err.Description
da saída de If

PROC_EXIT
do fim de Then
Me.txt box2.SetFocus
está chamado, lá é nenhuma pausa para que o usuário entre o texto novo no textbox. A única maneira que eu posso fazer que deve chamar PROC_EXIT empreendedores. Em um evento do clique da tecla de comando programado para fechar um formulário.  trabalha muito bem com o PROC_EXIT empreendedores após o SetFocus. Eu estou tentando combinar o mesmo código ao evento de Form_Close e não trabalhará nesse evento quando o submarino acima é chamado. Fechará o formulário sem deixar o texto novo entrado usuário no texto boxes. class= do

Resposta : VBA - Pausa após SetFocus

Usar o evento de Form_Unload preferivelmente. Então você pode cancelar o descarregamento.

Lee

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Form_Unload secundário confidencial (cancelamento como o inteiro)

    Se txtbox1 = “entram aqui” então
       MsgBox “incorpora por favor dados no primeiro textbox”
       txtbox1.SetFocus
       O cancelamento = retifica
    ElseIf txtbox2 = “entra aqui” então
       MsgBox “incorpora por favor dados no segundo textbox”
       txtbox2.SetFocus
       O cancelamento = retifica
    Terminar se

Terminar o submarino
Outras soluções  
 
programming4us programming4us