Evitar secuencias numéricas en textbox access
Tengo un formulario en el cual existe un textbox en el que deben escribir solamente número los usuarios, lo que quiero evitar es que escriban cadenas secuenciales como las siguientes:
111111111, 222222, 33333 o 123456 o 1234567 o 345678
La idea es que si tiene que escribir el número correcto no puedan escribir cadenas como las anteriores, estaba yo trabajando con este código, pero creo que es muy largo y quisiera que me apoyaran a poner un código más corto que contemple evitar las cadenas:
If Me.cedula_especialista = "543210" Then
MsgBox "No existe el número de cédula especialista, verifique el número o deje el campo en blanco."
Me.cedula_especialista.SetFocus
Exit Sub
Else
If Me.cedula_especialista = "6543210" Then
MsgBox "No existe el número de cédula especialista, verifique el número o deje el campo en blanco."
Me.cedula_especialista.SetFocus
Exit Sub
Else
If Me.cedula_especialista = "76543210" Then
MsgBox "No existe el número de cédula especialista, verifique el número o deje el campo en blanco."
Me.cedula_especialista.SetFocus
Exit Sub
Else
If Me.cedula_especialista = "876543210" Then
MsgBox "No existe el número de cédula especialista, verifique el número o deje el campo en blanco."
Me.cedula_especialista.SetFocus
Exit Sub
Else
If Me.cedula_especialista = "9876543210" Then
MsgBox "No existe el número de cédula especialista, verifique el número o deje el campo en blanco."
Me.cedula_especialista.SetFocus
Exit Sub
End If
End If
End If
End If
End If
1 Respuesta
Usa Select Case en vez de tantos Ifs...Por ejmplo:
Select Case Me.cedula_especialista
Case "543210","6543210","76543210"....
MsgBox "No existe el número de cédula especialista, verifique el número o deje el campo en blanco."
Me.cedula_especialista.SetFocus
Exit Sub
Case Else
'Aquí lo que quieras si el número es válido
End Select
En el Case puedes poner tantos números como quieras, separados por comas.
Yo he puesto los números como texto (entre comillas) porque en tu código los tratas así, pero habría que ver si son números o texto para afinar el código.
Un saludo.
