Comprovar cajas de texto

lvaro
07 de Marzo del 2006
Qué tnego que hacer para que al apretar un botón comperuebe que en una o varias cajas de texto no hay las letras o ímbolos que marque y si las hay que aparezca una MsgBox que indique que ha de quitarlo.
Y si es posible que se borre lo escrito.

mvallejos
07 de Marzo del 2006
Eso se hace manualmente texto por texto, de todos modos, lo mejor es filtrar los caracteres en los eventos KeyPress de cada caja de texto, con eso te ahorras la validacion.

En un módulo colocas esta funcion

Function ValidaTeclaNum(KeyAscii As Integer) As Integer
Select Case KeyAscii
Case 13, 27, 8, 9
ValidaTeclaNum = KeyAscii
Case Asc("0") To Asc("9")
ValidaTeclaNum = KeyAscii
Case Else
ValidaTeclaNum = 0
End Select
End Function

Como verás, solo deja escribir los dígitos y los caracteres especiales como ENTER, ESC, TAB, backspace, sino, retorna 0
Esto lo llamas en los keypress de cada caja de texto

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = ValidaTeclaNum(KeyAscii)
End Sub

Saludos