felix
13 de Mayo del 2005

Private Sub DAT_FNACIM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If dat_fnacim.Text = "__/__/____" Then
MsgBox "CAMPO REQUERIDO", vbCritical, "BENEFICIARIO"
Else
Me.dat_fingre.Enabled = True
Me.dat_fingre.SetFocus
End If
End If
End Sub....

antes de dar el focus al proximo txtbox... deseo que valide la fecha, si es una fecha errada (ejemplo.. 31/02/2005) envie msbox indicando que la fecha es invalida.... alguien podira ayudarme.....

alejandro
13 de Mayo del 2005

si no recurdo mal la funcion isdate() hace eso.