Visual Basic - CAMPO NO NUMERICO

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 7
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:CAMPO NO NUMERICO

Publicado por El Viejo Charles (262 intervenciones) el 07/11/2006 05:35:22
Intenta esto:

If not isNumeric(No_cliente.Text) 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

Suerte viejo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:CAMPO NO NUMERICO

Publicado por Natalia Camino (88 intervenciones) el 07/11/2006 17:54:43
Lo podeis hacer antes de llegar alprocedimiento "GUARDAR", el el evento KeyPress del TextBox:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789" & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Así el TextBox sólo admitirá números y la tecla de retroceso. Para soluccionar el máximo de caracteres del TextBox, le poneis a la propiedad MaxLength = 10
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar