Visual Basic - Problema con Fecha

Buenas amigos !! tengo un problema con las fechas ! Uso un control llamado DTpicker uso una instruccion para validar q el usuario no eliga fechas anteriores q la de hoy pero al introducir la fecha actual me lo toma como si fuec menor, me explico con la instruccion

Private Sub DTFecha_LostFocus()
If DTFecha < Now Then
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
DTFecha.SetFocus
End If
End Sub


Cualquier ayuda posible se les agradec !!

Hola esto te servira en el evento change:



Private Sub DTFecha_Change()
If DTFecha < Now Then
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
DTFecha.Value = Now
End If
End Sub

salu2

Vale, creo que entendi que tambien quieres que cuando se despliega el calendario no se pueda elegir una fecha menor que la de la actual, en ese caso tambien tienes que usar el evento click y poner lo mismo, te he hecho unos cambios, y los dos eventos te quedarian asi:

Private Sub DTFecha_Change()
If DTFecha < Now Then
DTFecha.Value = Now
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
Else
DTFecha.Value = DTFecha.Value
End If
End Sub

Private Sub DTFecha_Click()
If DTFecha < Now Then
DTFecha.Value = Now
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
Else
DTFecha.Value = DTFecha.Value
End If
End Sub


espero te sirva....si es menor no te deja pero si es mayor o igual a la actual si te deja......

Muchas gracias.. Pero aun no funciona.. de esa forma me da el mensaje "La Fecha No Puede Ser Inferior a la de Hoy...!", y me permite colocar todas las fecha !!

Q otra idea se te ocurre ????

salu2

Vale, creo que entendi que tambien quieres que cuando se despliega el calendario no se pueda elegir una fecha menor que la de la actual, en ese caso tambien tienes que usar el evento click y poner lo mismo, te he hecho unos cambios, y los dos eventos te quedarian asi:

Private Sub DTFecha_Change()
If DTFecha < Now Then
DTFecha.Value = Now
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
Else
DTFecha.Value = DTFecha.Value
End If
End Sub

Private Sub DTFecha_Click()
If DTFecha < Now Then
DTFecha.Value = Now
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
Else
DTFecha.Value = DTFecha.Value
End If
End Sub


espero te sirva....si es menor no te deja pero si es mayor o igual a la actual si te deja......

Aunque escojo la fecha y me aparec el mensaje pero me permite continuar , me fue muy util tu ayuda muchas Gracias, desde Venezuela se te saluda y agradec tu ayuda.. !!

Hola, a que te refieres con me deja continuar.....
Segun lo que te entendi es que deseas que el usuario elige fechas mayores a la del dia actual, y segun el codigo que te mostre, no le deja al usuario escoger fechas inferiores.
Si quisieras salir de la subrutina usa un exit sub dentro del IF.


SALU2 desde IRUN (España)

Todo esta bien ! a lo q me refiero es q cuando ingreso la fecha actual me manda el mensaje como cuando inserto una fecha inferior.. El problema lo solucione con tu respuesta.. Me sirvio de mucho

No entiendo por usas Now usa Date

Todo bien ya solucione con tu ayuda ! Gracias