CAMPO NO NUMERICO
Publicado por PAKO MONTAÑO (15 intervenciones) el 07/11/2006 00:49:42
HOLA QUE TAL:
QUISIERA SABER COMO LE HAGO PARA QUE LA ESCRIBI EN UN CAJA DE TEXTO LETRAS ME MANDE UN MSGBOX CON UN MENSAGE DE ERROR, YA QUE ESTA CAJA DE TEXTO SOLO ACEPTA NUMEROS.... EL CODIGO QUE TENGO ES EL SIGUIENTE PERO ME MARACA EL ERROR...
"ERROR DE COMPILACION" NO COINCIDEN LOS TIPOS
EL CODIGO ES EL SIGUIENTE
Private Sub GUARDAR_Click()
If No_cliente.Text = NotNumeric Then
MsgBox "EL NUMERO DEL CLIENTE NO ES VALIDO", vbCritical, "ERROR"
ElseIf Len(No_cliente.Text) > 10 Then
MsgBox "EL CAMPO CLIENTE EXCEDE LA LONGITUD", vbCritical, "ERROR"
End If
End Sub
DE ANTEMANO MUCHAS GRACIAS
ATT:
PAKO MONTAÑO
QUISIERA SABER COMO LE HAGO PARA QUE LA ESCRIBI EN UN CAJA DE TEXTO LETRAS ME MANDE UN MSGBOX CON UN MENSAGE DE ERROR, YA QUE ESTA CAJA DE TEXTO SOLO ACEPTA NUMEROS.... EL CODIGO QUE TENGO ES EL SIGUIENTE PERO ME MARACA EL ERROR...
"ERROR DE COMPILACION" NO COINCIDEN LOS TIPOS
EL CODIGO ES EL SIGUIENTE
Private Sub GUARDAR_Click()
If No_cliente.Text = NotNumeric Then
MsgBox "EL NUMERO DEL CLIENTE NO ES VALIDO", vbCritical, "ERROR"
ElseIf Len(No_cliente.Text) > 10 Then
MsgBox "EL CAMPO CLIENTE EXCEDE LA LONGITUD", vbCritical, "ERROR"
End If
End Sub
DE ANTEMANO MUCHAS GRACIAS
ATT:
PAKO MONTAÑO
Valora esta pregunta


0