Validar fecha
Publicado por fhbl (1 intervención) el 04/05/2005 23:33:07
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
Agradeceria pudiesen complementar este codigo para que al introcucir una fecha no validad de error y no deje continuar
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
Agradeceria pudiesen complementar este codigo para que al introcucir una fecha no validad de error y no deje continuar
Valora esta pregunta
0