Cuestión : sobresalir el textbox del userform no puede setfocus a sí mismo

forma simple con solamente dos textboxes.  Textbox1 acepta los datos, procesos él y después intenta al setfocus a sí mismo así que puede aceptar más datos.  Textbox2 tiene otro código de siguiente sin relación de uses.


The no trabajó.  Después de que los datos fueran incorporados, textbox2 conseguiría siempre el foco. () programa de proceso real de debug.print/>
Private/>
TextBox1.text = código de siguiente del
textbox1.setfocus
End Sub

The del "" trabajó bastante bien.  Una vez que el usuario comienza a incorporar datos, no pueden salir el textbox hasta que los datos hayan sido problema del processed

The solamente sean él un poco comlicated. Si alguien tiene una mejor solución, fijar por favor y usted conseguirá el points.

Otherwise, yo PAQ este tomorrow

de la pregunta------- mi mejor solución hasta ahora -------------------el

Dim CPUMadeChange como stopExit de Boolean
Dim como
Private Textbox1_AfterUpdate ()/>CPUMadeChange = True
TextBox1.text = ""” esto enciende el acontecimiento del _change. Utilizo CPUMadeChange para guardarlo from
CPUMadeChange = stopExit del
If CPUMadeChange de False
End Sub
Private stopExit secundario de la cancelación = de True
de Then
del stopExit Textbox1_Change () entonces = del
If de True
End Sub

Private Textbox1_Exit (cancelación de ByVal como MSForms.ReturnBoolean) = el
Stop
End Sub
de False
End If
End Sub

Private TextBox3_Enter () class= del

Respuesta : sobresalir el textbox del userform no puede setfocus a sí mismo

¿No puede usted apenas utilizar el acontecimiento de la salida y saltar el AfterUpdate (que es OMI bastante insustancial en userforms de VBA)?