Frage : VBA - Pause nach SetFocus

Ich habe die folgende code

Private VorExitCheck ()
On Störung Goto- PROC_ERR
, wenn Me.txt box1.Value = „hier“ Then
Me.txt box1.SetFocus
Ende If

eintragen, wenn Me.txt box2.Value = „hier“ Then
Me.txt box2.SetFocus
Ende If

PROC_EXIT
Ausgang Sub

PROC_ERR
MsgBox Err.Description
Zusammenfassung PROC_EXIT

End Sub

When Me.txt box1.SetFocus benannt, dort ist keine Pause eintragen, damit der Benutzer neuen Text in der area per informazioni eingibt. Die einzige Weise, die ich tun kann, der Goto- PROC_EXIT benennen soll. In einem Befehlsknopf-Klickenereignis programmiert, um eine Form zu schließen.  sie adaequat ist mit dem Goto- PROC_EXIT nach dem SetFocus. Ich versuche, den gleichen Code an das Form_Close Ereignis anzupassen und es funktioniert nicht in diesem Ereignis, wenn das oben genannte Unterseeboot benannt. Es schließt die Form, ohne den Benutzer eingegebenen neuen Text im Text boxes. zu lassen

Antwort : VBA - Pause nach SetFocus

Das Form_Unload Ereignis anstatt verwenden. Dann können Sie die Entleerung annullieren.

Lee

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

Privates VorForm_Unload (Löschen als ganze Zahl)

    Wenn txtbox1 = „hier“ dann hereinkommen
       MsgBox „einbringen bitte Daten in erste area per informazioni“ te
       txtbox1.SetFocus
       Löschen = ausrichtet et
    ElseIf txtbox2 = „hereinkommen hier“ dann
       MsgBox „einbringen bitte Daten in zweite area per informazioni“ te
       txtbox2.SetFocus
       Löschen = ausrichtet et
    Beenden wenn

Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us