26/10/2006, 16:57
|
| | | Fecha de Ingreso: septiembre-2006
Mensajes: 90
Antigüedad: 17 años, 8 meses Puntos: 0 | |
| 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-
Última edición por gndark; 26/10/2006 a las 17:08 |