Rango de Edad y Tipo Documento de Identidad
Publicado por Mayra (9 intervenciones) el 29/08/2016 01:12:22
Buenas, Buscando Ayuda
Bien la situación es la siguiente:
Tengo la siguiente tabla que corresponde a los tipos de documentos que hay en nuestro país, en más o menos la siguiente tabla:
la cuestión es que requiero que en un formulario de crear BD de personas, me avise cuando la edad no corresponda al Tipo de Documento.
He intentado sin frutos lo siguiente, pero la verdad mi nivel es muy pobre y tengo poco tiempo para resolver este tema.
Algo así al momento de perder el foco en el campo Fecha Nacimiento "Fecnac"
Private Sub Fecnac_Exit(Cancel As Integer)
On Error Resume Next
If Edad >= 18 And TPDOC <> "CC" Or "AS" Then
MsgBox "EDAD NO CORRESPONDE CON EL TIPO DE DOCUMENTO"
Me.TPDOC.SetFocus
If Edad > 7 And Edad < 18 And TPDOC <> "TI" Then
MsgBox "EDAD NO CORRESPONDE CON EL TIPO DE DOCUMENTO"
Me.TPDOC.SetFocus
Else
If Edad < 7 And TPDOC <> "RC" Then
MsgBox "EDAD NO CORRESPONDE CON EL TIPO DE DOCUMENTO"
Me.TPDOC.SetFocus
End If
End If
End If
End Sub
Agradezco si alguien me ayuda con la escritura correcta del código.
Bien la situación es la siguiente:
Tengo la siguiente tabla que corresponde a los tipos de documentos que hay en nuestro país, en más o menos la siguiente tabla:
la cuestión es que requiero que en un formulario de crear BD de personas, me avise cuando la edad no corresponda al Tipo de Documento.
He intentado sin frutos lo siguiente, pero la verdad mi nivel es muy pobre y tengo poco tiempo para resolver este tema.
Algo así al momento de perder el foco en el campo Fecha Nacimiento "Fecnac"
Private Sub Fecnac_Exit(Cancel As Integer)
On Error Resume Next
If Edad >= 18 And TPDOC <> "CC" Or "AS" Then
MsgBox "EDAD NO CORRESPONDE CON EL TIPO DE DOCUMENTO"
Me.TPDOC.SetFocus
If Edad > 7 And Edad < 18 And TPDOC <> "TI" Then
MsgBox "EDAD NO CORRESPONDE CON EL TIPO DE DOCUMENTO"
Me.TPDOC.SetFocus
Else
If Edad < 7 And TPDOC <> "RC" Then
MsgBox "EDAD NO CORRESPONDE CON EL TIPO DE DOCUMENTO"
Me.TPDOC.SetFocus
End If
End If
End If
End Sub
Agradezco si alguien me ayuda con la escritura correcta del código.
Valora esta pregunta
0