Visual Basic - ¡¡¡control de textbox!!!

wenas...quisiera saber como puedo controlar que una textbox guarde solamente numeros enteros, he visto varios codigos xo ninguno de ellos me llega a funcionar cmo es debido xD. Si alguien sabe del tema, xfavor contestar lo antes posible. Ciao

quiero controlar q dentro de mi textbox yamada txtprecio entren solo lo q viene siendo numeros enteros. emos exo un intento entre algunos colegas, xo no damos con ello xq lo guarda como un 0, espero q entre todos podamos sacarlo lo antes posible.

Intento:

If Val(txtprecio.Text) < 1 Then
MsgBox "Datos incorrectos, solo numeros", vbCritical, "PRECIO"
' txtprecio.Text = ""
' txtprecio.SetFocus
Else
Data1.Recordset.Fields("PRECIO") = Val(txtprecio.Text)
End If

Prueba con esto, este es buenisimo

Si quieres que use el punto decimal y el signo menos, agregale

en KeyAscii <> 8

pones KeyAscii <> 8 and keyascii <> Numero de codigo que no recuerdo :P

y asi te vas con todos los que mas quieras agregar.


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0 ' Para que no "pite"
SendKeys "{tab}" ' Envía una pulsación TAB
ElseIf KeyAscii <> 8 Then ' El 8 es la tecla de borrar (backspace)
' Si después de añadirle la tecla actual no es un número...
'If Not IsNumeric("0" & Text1.Text & Chr(KeyAscii)) Then
' Corrección informada por: José Treviño (21/Sep/2001)
If Not IsNumeric(Chr(KeyAscii)) Then
' ... se desecha esa tecla y se avisa de que no es correcta
Beep
KeyAscii = 0
End If
End If
End Sub

Cortesia del Guille (http://www.elguille.info/VB/VB_TIP3.HTM)