Questione : eccellere la casella di testo del userform non può setfocus a se

forma semplice con soltanto due caselle di testo.  Textbox1 accetta i dati, processi esso ed allora prova al setfocus a se in modo da può accettare più dati.  Textbox2 ha altro codice seguente indipendente di uses.


The non ha funzionato.  Dopo che i dati sono stati digitati, textbox2 otterrebbe sempre il fuoco. il

Private Textbox1_AfterUpdate () il
il programma di elaborazione reale di debug.print textbox1.text secondario “è irrilevante ad odierno post
TextBox1.text = codice seguente del
textbox1.setfocus
End Sub

The del "" ha funzionato ragionevolmente bene.  Una volta che l'utente comincia digitare i dati, non possono uscire la casella di testo fino a che i dati non siano stati problema del processed

The soltanto siano esso un po'comlicated. Se qualcuno ha una migliore soluzione, inviare prego ed otterrete il points.

Otherwise, io PAQ questo tomorrow

di domanda------- la mia migliore soluzione finora -------------------il

Dim CPUMadeChange come stopExit di Boolean
Dim come
Private Textbox1_AfterUpdate ()/>CPUMadeChange = True
TextBox1.text = ""„ questo inforna l'evento del _change. Uso CPUMadeChange per mantenerlo from
CPUMadeChange = stopExit del
If CPUMadeChange di False
End Sub
Private stopExit secondario dell'annullamento = di True
di Then
dello stopExit Textbox1_Change () allora = del
If di True
End Sub

Private Textbox1_Exit (annullamento di ByVal come MSForms.ReturnBoolean) =
Stop
End Sub
di False
End If
End Sub

Private TextBox3_Enter () class= del

Risposta : eccellere la casella di testo del userform non può setfocus a se

Non potete usare l'evento dell'uscita e saltare appena il AfterUpdate (che è IMO ragionevolmente superfluo nei userforms di VBA)?