Validaciones.

[principefreddy]

Private Sub cedula_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9")
'no hacer nada.
Case vbKeyLeft, vbKeyRight, vbKeyBack
'no hacer nada.
Case Else
'una letra... no está admitida.
KeyAscii = 0
Beep
End Select
end sub

Private Sub cedula_Change()
'se asegura que exista data en los campos.
nombres.Enabled = IIf(Len(cedula) >= 8, True, False)
End Sub
hola. tengo un inconveniente con esto. bueno con los codigos que coloque anteriormente, me hace lo siguiente: en el texto cedula no me permite ingresar letras, eso esta correcto, y no me permite colocar menos de 8 numeros, si hay mas de 8 numeros me desbloquea el texto nombres, eso esta correcto. pero yo quiero que si ingresa los 8 numeros en el texto cedula y al darle enter me pase al texto nombres. con solo darle enter. tambien necesito hacer una busqueda. por ejempli. que al introducir la cedula 12345678 si esta en la base de datos no pueda desbloquearme el texto nombre- de lo controrio que me pase.