LETY
10 de Marzo del 2010

NO PUEDO VALIDAR UN TEXTBOX NUMEROS Y LETRAS (RFC) SE LOS AGRADECERIA
[email protected]

wander
10 de Marzo del 2010

Es muy facil mira esto es lo mas facil te desplazas al evento keypress de la caja de texto luego haces un select case

empiezas

es necesario que sepas el godigo ascii de los letras y numeros por ejemplo supongamos que el codigo ascii de los numeros empieza desde el 87 al 95

suponiendo que el 87 es el numero 0 y 95 es el numero 9

Select case keyascii

case 87 to 95 \'Este es el codigo ascii de los numeros duponiendo

case \'aqui el codigo ascii de las letras

una vez terminado esto empiezas el caso contrario

Case else

y le dices aqui keyascii=0

terminas end select

esto es todo lo pruebas y funciona

ojo que los tienes que saber el keyascci para que lo puedas colocar los que yo te e puesto son una suposicion, otra cosa las letras mayusculas y minusculas tienen su propios keyascii no son iguales

cualquier otra cosita a mi correo de consultas [email protected]
[email protected]
este es mi correo personal

Crobert
10 de Marzo del 2010

tienes que buscar el codigo ascci que se encuentra en la ayuda de vb. segun la validaciòn que tengas que realizar esel limite del codigo que tiene que poner ..
Si no s entendio te va este ejemplo..
if text1.text="hola" then
'lo que tu quieras.
esto va en el keypress
y esto va en el change
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
If Val(Text1.Text) = "2003" Then
Form2.Visible = True
Form1.Visible = False
Load Me
End If
End Sub
'' este codigo valida la caja de texto solo para agregar numeros ...importante si es otro objeto solo mencionas el nombre del objeto al cual vas a validar.

jsrv69
10 de Marzo del 2010

Prueba con estecodigo

Dim t, t2, t3, t4 As String
Dim F As Date
Dim fechaI As Date

F = #1/1/1984#
t = UCase(txtEdad(0).Text)
txtEdad(0).Text = t
t = Mid(t, 1, 4)

If IsNumeric(t) Then
MsgBox "RFC No válido", vbCritical, "Alta de Socios"
txtEdad(0).SetFocus
Exit Sub
End If

t2 = txtEdad(0).Text
t1 = Mid(t2, 5, 6)
t2 = Mid(t1, 1, 2)
t2 = t2
t3 = Mid(t1, 3, 2)
t3 = t3 + "/"
t4 = Mid(t1, 5, 2) + "/"
t1 = t4 + t3 + t2

If IsDate(t1) Then
fechaI = DateValue(t1)
Else
MsgBox "RFC No Válido", vbCritical, "Alta de Socios"
txtEdad(0) = ""
lblEdad.Caption = ""
txtEdad(0).SetFocus
Exit Sub
End If

If IsDate(t1) Then
If fechaI > F Then
MsgBox "RFC No válido", vbCritical, "Alta de Socios"
txtEdad(0).Text = ""
txtEdad(0).SetFocus
Exit Sub
End If