Cuestión : VBA - Pausa después de SetFocus

Tengo el error secundario siguiente PROC_ERR
del
On del code

Private ExitCheck () si Me.txt box1.Value = “incorpora aquí” el extremo If

de Then
Me.txt box1.SetFocus
si Me.txt box2.Value = “incorpora aquí” el curriculum vitae PROC_EXIT

End Sub

When Me.txt box1.SetFocus de Sub

PROC_ERR
MsgBox Err.Description
de la salida de If

PROC_EXIT
del final de Then
Me.txt box2.SetFocus
se llama, allí no es ninguna pausa para que el usuario entre el nuevo texto en el textbox. La única manera que puedo hacer que debe para llamar PROC_EXIT indicado. En un acontecimiento del tecleo del botón de comando programado para cerrar una forma.  trabaja muy bien con el PROC_EXIT indicado después del SetFocus. Estoy intentando emparejar el mismo código al acontecimiento de Form_Close y no trabajará en ese acontecimiento cuando se llama el submarino antedicho. Cerrará la forma sin dejar el nuevo texto entrado usuario en el texto boxes.
class= del

Respuesta : VBA - Pausa después de SetFocus

Utilizar el acontecimiento de Form_Unload en lugar de otro. Entonces usted puede cancelar la descarga.

Lee

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
Form_Unload secundario privado (cancelación como número entero)

    Si txtbox1 = “entonces entran aquí”
       MsgBox “incorpora por favor datos en el primer textbox”
       txtbox1.SetFocus
       La cancelación = verdad
    ElseIf txtbox2 = “entonces entra aquí”
       MsgBox “incorpora por favor datos en el segundo textbox”
       txtbox2.SetFocus
       La cancelación = verdad
    Terminar si

Terminar el submarino
Otras soluciones  
 
programming4us programming4us