Vraag : blink userform textbox kan niet setfocus aan zich uit

eenvoudige vorm met slechts twee textboxes.  Textbox1 keurt gegevens goed, verwerkt het en probeert dan aan setfocus aan zich zodat kan het meer gegevens goedkeuren.  Textbox2 heeft andere niet verwante uses.


The na code werkte niet.  Nadat het gegeven was ingegaan, zou textbox2 altijd nadruk worden.

Private SubTextbox1_AfterUpdate ()
debug.print textbox1.text het „daadwerkelijke verwerkingsprogramma aan post
TextBox1.text = ""
textbox1.setfocus
End Sub

The na code onbelangrijk is werkte vrij goed.  Zodra de gebruiker begint gegevens in te gaan, kunnen zij niet textbox weggaan tot de gegevens processed

The zijn het zijn een klein beetje comlicated zijn geweest. Als somebody een betere oplossing heeft, gelieve te posten en u zult points.

Otherwise krijgen, zal ik PAQ deze vraag tomorrow

mijn beste oplossing tot dusver

Dim CPUMadeChange als Boolean
Dim stopExit als Boolean
Private SubTextbox1_AfterUpdate ()
CPUMadeChange = True
TextBox1.text = ""“ dit steekt de _changegebeurtenis in brand. Ik gebruik CPUMadeChange om het te houden from
CPUMadeChange = False
End Sub
Private SubTextbox1_Change ()
If CPUMadeChange toen stopExit = True
End Sub

Private annuleren SubTextbox1_Exit (ByVal aangezien MSForms.ReturnBoolean) annuleert
If stopExit Then
= True
stopExit = False
End If
End Sub

Private SubTextBox3_Enter ()
Stop
End Sub

Antwoord : blink userform textbox kan niet setfocus aan zich uit

Niet kunt u de gebeurtenis van de Uitgang overslaan enkel gebruiken en AfterUpdate (die IMO vrij stomp in VBA userforms is)?