VBA setfocus no funciona

Tengo esta sencilla validación.. Y no logro que el SetFocus me de resultado.
Siempre se pasa al siguiente textbox. He probado de todo, y no hay caso.

Private Sub Text_Fecha_AfterUpdate()
If Not IsDate(Text_Fecha.Value) Then
MsgBox ("ingrese en formato fecha dd/mm/aa")
Text_Fecha = ""
Text_Fecha.SetFocus
End If
End Sub

¿Alguna solución?

1 respuesta

Respuesta
4

prueba mejor con el evento exit. En mi ejemplo tienes que sustituir textbox1 por el nombre de tu textbox.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1) Then
MsgBox "no es fecha" 
TextBox1 = Empty
Cancel = True
TextBox1.SetFocus
End If
End Sub

recuerda finalizar y puntuar

Hola, gracias por responder.

Probé con tu código y parece que funciona mejor.. es decir, luego del mensaje el cursor no pasa al siguiente textbox.. pero tampoco me queda habilitado en el textbox de la fecha. Me explico?


Sale el Msgbox... "no es fecha".. preciono aceptar y el cursor desaparece. La única forma de volver a escribir una fecha es activando el cursor con el mouse. Mi intención es que luego del mensaje uno toca enter "aceptar".. y el cursor ya esté listo para escribir una nueva fecha.

Alguna idea al respecto?

Revisa como lo has anotado. El código que te he mandado funciona perfectamente, es decir, si no es fecha lanza un mensaje y se queda el cursor en el textbox

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Mantener el cursor en un textbox cuando tire mensaje

Solo con una consulta como puedo hacer para que un textbox no siga si manda un mensaje de error, por ejemplo estoy utilizando estos códigos. Private Sub TextBox62_Change() If Not IsNumeric(TextBox62.Text) And TextBox62.Text <> "" Then Beep MsgBox "Se...
1 respuesta

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Validar fecha vba excel

Espero que se encuentre bien. Anteriormente te había preguntado como validar las fechas en un userform en textbox y le había enviado estos códigos, y te había dado esta explicación. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)...
1 respuesta

Como poner determinado formato de fecha a un textbox

Tengo una tabla en excel 2010 e ingreso los datos a través de un formulario, lo que necesito hacer es que en los textbox donde ingreso fechas el formato sea 10-oct-14 y que este mismo formato se quede registrado en mi tabla de excel.
3 respuestas

Ingresar con lector láser códigos de barra

Consulta, si es que me puedes ayudar, tengo un formulario en donde ingresos los códigos de barra mediante un lector láser, que tiene un botón aceptar y le asigné este código que funciona, Private Sub CommandButton1_Click()...
1 respuesta

Al no llenarse un campo en un userform salga un msgbox

Tengo una macro con un userform en el cual el usuario llena unos campos que después se ingresan a una hoja de excel. Mi problema es que para uno de esos campos, necesito que si se deja en blanco aparezca un msgbox y se vuelva a poner el cursos en el...
1 respuesta

Obligar a que se ponga un formato en textbox

Que pesaita soy, pero sois muy buenos. Aver, me gustaría hacer algo parecido a las mascaras de entrada en access, os comento, en la bbdd los usuarios deben introducir muchas fechas y sabemos que a veces se nos van los dedos y las ponemos mal, lo que...
1 respuesta

Textbox que solo reciba números o letras

Tengo un formulario con varios textbox, sin embargo quiero que textbox1 me acepte solo texto mientras que el textbox2 solo números... Sin embargo no se como bloquear los números del teclado cuando necesito texto, o bloquear las letras del teclado si...
1 respuesta

Como validar datos repetidos en una columna por medio de un formulario con una textbox

Tengo la siguiente situación, por medio de una textbox ingreso en una columna muchos datos, de tal manera que creo bastantes registros repetidos, necesito que al ir agregando datos, no me permita registrar dos veces el mismo registro. Me ayudarían...
1 respuesta

Mostrar Msgbox solo una vez al ingresar un dato erróneo en un textBox.

Para: Dante Amor Tengo un Textbox en la que ingreso un valor determinado si esta sobre pasa me manda el mensaje indicando "Este valor es muy alto" si el valor es mayor a 12.00 o "Este valor es muy bajo" si el valor es menor a 11.00, Hasta ahí...
2 respuestas