inconveniente con evento lostfocus - VB-MUNDO

nicoqk · #1 (**permalink**) 21-06-2008, 01:00:31

Hola gente soy nuevo en este foro, este es mi primer post y escribo para comentar algo que me esta sucediendo en una aplicacion que estoy desarrolando..

tengo un maskedbox (txtFechacompra) en donde ingreso fechas en el formato dd/mm/aaa

el control maskedbox esta validado con el siguiente codigo en el evento lostfocus

Private Sub txtFechacompra_LostFocus()
If Not IsDate(txtFechacompra) Then
MsgBox "La Fecha no es válida. Utilice el formato dd/mm/aaaa (ej. 20/01/2000) ", vbCritical+vbOKonly, " Error al ingresar la fecha"
txtFechacompra.SetFocus
SendKeys "{HOME}+{END}"
End If
End Sub

cuando la fecha ingresada es incorrecta se ejecuta el msgbox inicando el error, y se le devuelve el foco al control, pero automaticamente se vuelve a ejecutar el msgbox entrando asi en un bucle infinito.

Tengo algun error en el codigo?
por mi parte creo que esta correcto, pero no entiendo por que ocurre esto.

espero que me puedan ayudar.
desde ya muchas gracias

seba123neo · #2 (**permalink**) 21-06-2008, 03:07:19

Hola,a mi no me entra en bucle...

saludos.

nicoqk · #3 (**permalink**) 21-06-2008, 04:33:13

seba123neo gracias por la molestia de probar el codigo..

vos decis que no te entra en bucle?
que es lo que hace cuando aceptas el msgbox? le devuelve el foco al control textbox parta corregir el error en el ingreso de la fecha?

a mi me sigue dando error y no le encuentro la razon..

saludos!

beñat · #4 (**permalink**) 21-06-2008, 12:22:23

Yo e probado el codigo y ami personalmente no me da ningun error, esta claro que en ese trozo de codigoque has puesto no hay ningun error, lo tendras de tenerlo en otra parte, un saludo

J.M.Movilla · #5 (**permalink**) 21-06-2008, 17:05:08

Yo también he probado tu código, amigo nicoqk, y tampoco me entra en bucle infinito...

Lo que no entiendo es por qué utilizas un maskedbox para introducir fechas, cuando tienes el componente DTPicker, que está específicamente preparado para ello...

nicoqk · #6 (**permalink**) 21-06-2008, 23:33:59

Hola amigos, les agradezco por su tiempo..
Ya descubri el error.

El tema es que tengo 3 de estos controles porque debo ingresar 3 fechas (fabricación, compra e instalación)
Entonces fabricación le pasa el foco a compra y este a instalación.
Si la fecha de fabricación es incorrecta el foco vuelve (desde compra) dejando compra en blanco volviendo a ejecutar el código; entonces entra en bucle.
Lo comprobé porque en el control instalación (que es e tercero) cuando la fecha es incorrecta y le pasa el foco a un textbox que no esta validado el foco vuelve sin problemas.

P.D: José Maria utilicé este control porque fue lo primero que se me ocurrió para validar las fechas.
Intenté tomar tu consejo de utilizar un DTPicker pero no me figura en el cuadro de controles y quise agregarlo pero no me aparece en la lista.
Tal vez no lo tenga instalado.

Saludos y gracias!

seba123neo · #7 (**permalink**) 21-06-2008, 23:58:55

si....me inmagine que tenias otros controles con el mismo codigo y se disparaban todos los eventos....

J.M.Movilla · #8 (**permalink**) 22-06-2008, 10:04:03

Cita:

Empezado por nicoqk

... DTPicker pero no me figura en el cuadro de controles y quise agregarlo pero no me aparece en la lista...

Tienes que cargar el componente Microsoft Windows Common Controls-2 6.0 (SP6) y ya se pone a tu disposición el control DTPicker

nicoqk · #9 (**permalink**) 23-06-2008, 13:11:05

Cita:

Empezado por J.M.Movilla

Tienes que cargar el componente Microsoft Windows Common Controls-2 6.0 (SP6) y ya se pone a tu disposición el control DTPicker

Muy bien entonces voy a probarlo a ver que tal me anda!!

Gracias nuevamente
Saludos!