valiadar fecha
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.....
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.....