Fråga : överträffa userformtextboxen kan inte setfocusen till honom

enkelt bilda med endast två textboxes.  Textbox1 accepterar data, bearbetar den och därefter försök till setfocusen till honom, så den kan acceptera mer data.  Textbox2 har annan unrelated uses.


The efter att kodifiera fungerade inte.  Efter data skrevs in, skulle textbox2 får alltid fokuserar. under() det faktiska bearbeta programet för debug.print/>
Private/>
TextBox1.text = ""
textbox1.setfocus
End Sub

The kodifierar efter fungerade ganska väl.  När användaren startar att skriva in data, de kan inte gå ut textboxen, tills datan har varit problemet för processed

The endast är det är a bet lite comlicated. Om någon har en bättre lösning, behaga postar, och du ska får points.
Otherwise, mig ska PAQ som denna ifrågasätter tomorrow

------- min bäst lösning så långt -------------------

Dim CPUMadeChange som Boolean
Dim stopExit som Boolean
Private underTextbox1_AfterUpdate ()
CPUMadeChange = True
TextBox1.text = ""” detta avfyrar _changehändelsen. Jag använder den CPUMadeChange uppehället det from
CPUMadeChange = stopExit för False
End Sub
Private för den Then
för stopExit för underTextbox1_Change ()
If CPUMadeChange därefter = True
End Sub

Private underTextbox1_Exit (den ByVal annulleringen som MSForms.ReturnBoolean)
If stopExit annulleringen = True
= False
End If
End Sub

Private underTextBox3_Enter ()
Stop
End Sub
" klar "

Svar : överträffa userformtextboxen kan inte setfocusen till honom

Kan inte du precis använda gå uthändelsen och hoppa over AfterUpdaten (som är IMO som ganska är pointless i VBA-userforms)?