¿validar campo cedula?

[principefreddy]

hola. buen dia. alguien tiene el codigo para lo siguiente: tengo un texto llamado cedula. y tengo validado que no me acepte letras, y que no sea menor que 8 y mayor que 10. pero resulta que si coloco como cedula 11111111 o 2222222 o 0000000 me los acepta, y la verdad no existe cedula que sea de esa manera. como hago para que no se acepte esos datos. osea que no me acepte una serie de numeros repetidos.

[David]

Depende, ¿cuál sería el formato de cédula válido en tu país?.

[principefreddy]

17224998
20515658

[David]

Pero si son números consecutivos, no veo por qué no sería posible que hubiera una cédula con el número 22222222, 33333333, 44444444, sería mucha coincidencia que justo esa persona se registre en tu programa , pero, no veo necesario filtrar .

[principefreddy]

es una exigencia que me pidieron. es obligatorio validar eso.

[David]

Y, ¿lo único que tienes que validar es si no está todo repetido?.

Código vb:

Dim Looping As Byte
For Looping = 0 To 9
    If Texto = String(8, CStr(Looping)) Then
        MsgBox "Todos los números están repetidos"
     End If
Next Looping
 

[principefreddy]

pana. mira esto:

Function CalculaEdad(ByVal DataIni As Date) As Long
CalculaEdad = DateDiff("yyyy", DataIni, Date)

If (Month(DataIni) > Month(Date)) Or (Month(DataIni) = Month(Date) _
And Day(DataIni) > Day(Date)) Then CalculaEdad = CalculaEdad - 1
End Function

Private Sub agregar_Click()

Dim iAños As Integer
If Not IsDate(fecha.Text) Then
MsgBox "La Fecha no es Correcta. Ingrese una Fecha", vbCritical, "Error en la Fecha"
fecha.SetFocus
Exit Sub
End If
iAños = CalculaEdad(fecha)
Text6.Text = iAños ' se muestra la edad en el texto
end sub

es para que me valide, cuando se introduce la fecha de nacimiento en un texto de la siguiente manera 10/12/1985 si la fecha es menor o no tiene nada y le dan al boton guardar muestra un mensaje, pero me falta validar que si la fecha es mayor a la fecha actual no me deje guardar, ejemplo si la fecha de naciemiento es 10/10/2009 no me permita guardar. espero tu ayuda.

[David]

Hola, principefreddy. Te agradecería si antes de pasar a otra duda, por lo menos digas si ha funcionado lo que te dijimos .

Lo de comparar con la fecha actual, si lo tienes en una variable tipo Date, puedes hacer una comparación normal:

Código vb:

If Fecha > Date Then
   MsgBox "Fecha mayor a la actual"
End If
 

[principefreddy]

yo lo estaba haciendo asi. pero no me lo tomaba en cuenta. debe ser que lo estoy colocando mal. gracias por la yuda.

[principefreddy]

LO DE LAS FECHAS ESTA BIEN. PERO E STO NO ME FUNCIONA.,
Dim Looping As Byte
For Looping = 0 To 9
If cedula.Text = String(10, CStr(Looping)) Then
MsgBox "Todos los números están repetidos"
End If
Next Looping

[David]

Prueba colocar String(Len(cedula.Text), CStr(Looping)), yo había puesto 8 porque todos los ejemplos que me habías puesto tenían 8 caracteres, pero me lo cambiaste a 10 , ahora yo lo vuelvo a cambiar para que compruebe de acuerdo a la longitud del campo .