Question : VBA - Pause après SetFocus

J'ai l'erreur secondaire suivante PROC_ERR
du
On du code

Private ExitCheck () si Me.txt box1.Value = « écrivent ici » l'extrémité If

de Then
Me.txt box1.SetFocus
si Me.txt box2.Value = « écrivent ici » le résumé PROC_EXIT

End Sub

When Me.txt box1.SetFocus de Sub

PROC_ERR
MsgBox Err.Description
de sortie d'If

PROC_EXIT
de fin de Then
Me.txt box2.SetFocus
s'appelle, là n'est aucune pause pour que l'utilisateur entre le nouveau texte dans la boîte à textes. La seule manière que je peux faire qui doit pour appeler PROC_EXIT GoTo. Dans un événement de clic de bouton de commande programmé pour fermer une forme.  cela fonctionne très bien avec le PROC_EXIT GoTo après le SetFocus. J'essaye d'assortir le même code à l'événement de Form_Close et cela ne fonctionnera pas dans cet événement quand le sous-marin ci-dessus est appelé. Il fermera la forme sans laisser le nouveau texte entré par utilisateur dans le texte boxes. class= de

Réponse : VBA - Pause après SetFocus

Employer l'événement de Form_Unload à la place. Alors vous pouvez décommander le déchargement.

Lee

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

Form_Unload secondaire privé (annulation comme nombre entier) Si txtbox1 = « entrent ici » alors MsgBox « saisissent svp des données dans la première boîte à textes » txtbox1.SetFocus L'annulation = rectifient ElseIf txtbox2 = « entrent ici » alors MsgBox « saisissent svp des données dans la deuxième boîte à textes » txtbox2.SetFocus L'annulation = rectifient Finir si Finir le sous-marin