validar textbox

[javiergal]

hola.
quisiera saber si existe alguna función o método para validar la entrada de datos de un textbox en vba. quiero que solo acepte valores numericos. tambien me interesa validar todo tipo de datos: texto, fechas , etc. pero el que mas me apremia es validar números

gracias por su atención

javier galecio

[RadicalEd]

Código:

Sub Text1_Keypress(KeyAscii As Integer)
    If KeyAscii <> Asc("9") Then
       If KeyAscii <> 8 Then
           KeyAscii = 0
       End If
    End If
End Sub

[lucasiramos]

Iniciado por RadicalEd

Código:

Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii <> Asc("9") Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub

Perdon RadicalEd, ese txt solo deja ingresar 9. Yo lo haria de la siguente manera

Código:

 Private Sub Text1_KeyPress(KeyAscii As Integer)
	If KeyAscii < 48 Or KeyAscii > 57 Then
		Select Case KeyAscii
			Case 8
			Case Else
				KeyAscii = 0
		End Select
	End If
End Sub

Para las fechas te recomiendo usar un MaskedEdit o un DTPicker. Luego con respecto a la validación de texto, todo depende lo que quieras hacer...

Saludos. Lucas