Vraag : VBA - Pauze na SetFocus

Ik heb de volgende code

On Fout/>Private SubExitCheck GoTo PROC_ERR
als Me.txt box1.Value = „hier“ het Eind van Then
Me.txt box1.SetFocus
If

ingaat als Me.txt box2.Value = de Uitgang/>PROC_EXIT
Sub

PROC_ERR
MsgBox Err.Description
van If

Me.txt box2.SetFocus
hervat „hier“ PROC_EXIT

End Sub

When Me.txt box1.SetFocus wordt geroepen ingaat, is er geen pauze voor de gebruiker om nieuwe teksten in textbox in te voeren. De enige manier kan ik doen die GoTo PROC_EXIT moet roepen. In bevel dat klikt een knoop gebeurtenis wordt geprogrammeerd om een vorm te sluiten.  het werkt boete met GoTo PROC_EXIT na SetFocus. Ik probeer om de zelfde code aan de gebeurtenis aan te passen Form_Close en het zal niet in die gebeurtenis werken wanneer bovengenoemde sub wordt geroepen. Het zal de vorm sluiten zonder de gebruiker ingevoerde nieuwe tekst in de tekst boxes.
te laten

Antwoord : VBA - Pauze na SetFocus

Gebruik in plaats daarvan de gebeurtenis Form_Unload. Dan kunt u annuleren leegmaakt.

Lee

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
Privé SubForm_Unload (annuleer als Geheel)

    Als txtbox1 = „hier“ toen binnenga
       MsgBox „te gaan gelieve eerst gegevens in in textbox“
       txtbox1.SetFocus
       Annuleer = Waar
    ElseIf txtbox2 = „gaat hier binnen“ toen
       MsgBox „te gaan gelieve gegevens in tweede in textbox“
       txtbox2.SetFocus
       Annuleer = Waar
    Beëindig als

Beëindig Sub
Andere oplossingen  
 
programming4us programming4us