Ayuda en validacion de Texbox

[-thor-]

Hola,en visual basic como puedo validar un Texbox,para que me obligue a ingresar un dato.

que un textbox:
-No me acepte datos en blanco


que otro textbox:
-Solo me acepte letras


que un textbox:
-Solo me acepte numeros

Todo esto ocurra cuando haga click en un commandbutton,relacionado con el texbox.

gracias

pd:soy nuevo en visual y no entiendo como realizar estas operaciones de validacion.

[gndark]

mira

1. para saber si un textbox esta en blanco es asi

if(len(trim(text1))=0)then
msgbox("el texto esta vacio")
else
msgbox("le texto no esta vacio")
else

la funcion len cuenta el numero de carateres de una cadena
y la funcion trim quita los caracteres vacios (espacio) de izquierda y de derecha)

ya tu miras como lo colocas , puede ser en el metodo lost focus o no se , ya depende de ti.


2.

para solo admitir letras copea este codigo en el metodo keypress del texto.


On Error Resume Next
' si no es una letra entre la A y la Z
' en mayúscula o minúscula
If Not Chr(KeyAscii) Like "[A-Za-z]" Then

Select Case KeyAscii
' si es un retroceso, enter o tabulación
Case vbKeyBack, vbKeyReturn, vbKeyTab
' no se hace nada
Case Else
' si no, se anula el caracter
' introducido
KeyAscii = 0
Beep
End Select

End If

3

para solo admitir numero copea este codigo al metodo keypress en el text

On Error Resume Next
' si no es un número
If Not Chr(KeyAscii) Like "[0-9]" Then
Select Case KeyAscii
' si es un retroceso, enter o tabulación
Case vbKeyBack, vbKeyReturn, vbKeyTab
' no se hace nada
Case Else
' si no, se anula el caracter
' introducido
KeyAscii = 0
Beep
End Select

End If


las ultimas lo que pasa es que no te va ha dejar digitar si no letras o numeros cuando estes escribiendo en el text asi como si en windows tu le fueses a dar un nombre a un archivo con caracteres */-+ asi funciona. y la primero validada en el command buttom su quieres.

espero que te sirva mi ayuda
si algo no funciona lo dices

bendiciones-

[-thor-]

gndark muchas gracias por tu ayuda,los codigos me funcionan bien,pero lo unico que no puedo conseguir es utilizar la barra espaciadora.
por ejemplo no puedo escribir:

hola gndark

porque el codigo para aceptar letras no permite generar ese espacio,como puedo solucionar ese problema?
gracias


On Error Resume Next
' si no es una letra entre la A y la Z
' en mayúscula o minúscula
If Not Chr(KeyAscii) Like "[A-Za-z]" Then

Select Case KeyAscii
' si es un retroceso, enter o tabulación
Case vbKeyBack, vbKeyReturn, vbKeyTab
' no se hace nada
Case Else
' si no, se anula el caracter
' introducido
KeyAscii = 0
Beep
End Select

End If

[-thor-]

como lo puedo solucionar?
gracias

[black_devil]

Hola, no me acuerdo si funciona bien este código, revisalo por si acaso aquí va:

Una función en un módulo, la llamas en el keypress de tu textbox

Código:

Public Function sololetras(a)
If KeyAscii <> 8 Then
Select Case KeyAscii
Case Asc("A") To Asc("Z"), Asc("a") To Asc("z")
Case Else
KeyAscii = 0
End Select
End If
End Function

[zodiac9]

Te dejo este codigo para que en tu textbox te acepte Solo mayusculas el espacio entre las letras y la "Ñ" ya que en el codigo ascii no existe

If KeyAscii <> 8 Then
Select Case KeyAscii
Case Asc("A") To Asc("Z"), Asc(" "), Asc("Ñ")
Case Else
KeyAscii = 0
End Select
End If

[ValentinoMolinari]

Mira para validar que el text no este vacio solo debes hacer esto
if text1 = "" then
MsgBox "Es texto esta vacío"
end if
tan sencillo como eso
Para validar que se tipeen solo numeros haz lo siguiente

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
'KeyAscii = 8 es el retroceso o BackSpace
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If

o solo letras
If KeyAscii < Asc("a) Or KeyAscii > Asc("z") Then
'KeyAscii = 8 es el retroceso o BackSpace
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If



saludos espero te sirva

[David]

¿Se han fijado que el tema es de 2 años y medio atrás?

[ValentinoMolinari]

weeee si ni miré