SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: vvitto en Lunes 31 de Mayo de 2004, 11:59

Título: Adodc,textbox,keypress
Publicado por: vvitto en Lunes 31 de Mayo de 2004, 11:59

Hola,necesito ayuda porque tengo un textbox enlazado cn un adodc y necesito q en ese textbox solo se puedan introducir numeros y no letras.Cordiales saludos y gracias

 :comp:

Título: Re: Adodc,textbox,keypress
Publicado por: tiquinho en Lunes 31 de Mayo de 2004, 12:08

Puedes comprobar el texto con la función IsNumeric en el evento Change o en el Validate, donde te venga mejor, y si no lo es borrar el contenido, o lo que quieras

 :D

Título: Re: Adodc,textbox,keypress
Publicado por: vradok en Lunes 31 de Mayo de 2004, 13:29

Tambien puedes poner en lugar de un textbox un MaskEdBox y cambiarle la propiedad mask.

Saludos

Título: Re: Adodc,textbox,keypress
Publicado por: Juanolo en Lunes 31 de Mayo de 2004, 16:36

Checka este link:

Validación de Textbox (http://foros.solocodigo.com/index.php?showtopic=8009&hl=maskedbox)

Ahí hay todo un surtido de opiniones. Seguro darás con lo que necesitas.

Salu2.

Título: Re: Adodc,textbox,keypress
Publicado por: rechy en Lunes 31 de Mayo de 2004, 20:03

Hola, o en dado caso utiliza el siguiente codigo:

Código: Text

1.  
2. Private Sub text1_KeyPress(KeyAscii As Integer)
3.  
4. cadena = "0123456789." + Chr(8) 'chr(8) = delete, es decir admitimos borrar
5.  
6. If InStr(cadena, Chr(KeyAscii)) = 0 Then
7. KeyAscii = 0
8. End If
9.  
10. End Sub
11.  
12.  

Si te fijas hasta punto puedes meter.

Saludos

Título: Re: Adodc,textbox,keypress
Publicado por: rechy en Lunes 31 de Mayo de 2004, 20:07

Hola, o en dado caso utiliza el siguiente codigo:

Código: Text

1.  
2. Private Sub text1_KeyPress(KeyAscii As Integer)
3.  
4. cadena = "0123456789." + Chr(8) 'chr(8) = delete, es decir admitimos borrar
5.  
6. If InStr(cadena, Chr(KeyAscii)) = 0 Then
7. KeyAscii = 0
8. End If
9.  
10. End Sub
11.  
12.  

Si te fijas hasta punto puedes meter.

Saludos