Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Alguien me Ayude

24/11/2005 - 23:26 por Edison Torres | Informe spam
Ayuda Hacer una pregunta
estoy usando el sgte. codigo en un textbox pero no deseo que me acepte texto
que estoy haciendo mal, si me ayudan corrigiendome se los agradeceria

Private Sub TextBox26_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox26 < 1 Then _
MsgBox "El numero debe ser mayor que CERO !!!": Cancel = True: Exit Sub
If Len(TextBox26) < TextBox26.MaxLength Then _
Cancel = MsgBox( _
"No se han completado los " & TextBox26.MaxLength & _
" caracteres necesarios..." & vbCr & _
"Confirmas que se puede cotinuar ???", _
vbOKCancel + vbInformation + vbDefaultButton2, "Aviso !!!") = vbCancel
End Sub
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
25/11/2005 - 00:43 | Informe spam
hola, Edison !

estoy usando el sgte. codigo en un textbox pero no deseo que me acepte texto
que estoy haciendo mal, si me ayudan corrigiendome se los agradeceria
Private Sub TextBox26_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox26 < 1 Then _
MsgBox "El numero debe ser mayor que CERO !!!": Cancel = True: Exit Sub
If Len(TextBox26) < TextBox26.MaxLength Then _
Cancel = MsgBox( _
"No se han completado los " & TextBox26.MaxLength & _
" caracteres necesarios..." & vbCr & _
"Confirmas que se puede cotinuar ???", _
vbOKCancel + vbInformation + vbDefaultButton2, "Aviso !!!") = vbCancel
End Sub



Private Sub TextBox26_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0
End Sub

saludos,
hector.

p.d. parece que con la prisa que traes...
no quisieras darte [suficiente] tiempo para analizar las [extensas] explicaciones de los mensajes anteriores :))

Preguntas similares

 

Busqueda sugerida :