Soy estudiante.y nesecito ayuda kon un MsgBox
Necesito poner en un formulario un mensaje de error en un text Box, que muestre el mensaje de error cuando el numero que se escriba sea mayor que 1000, pero cuando quiero realizar otra opción por ejemplo: dar clic en un commandButton borrar, no realiza la opción y aparece un error*
Mi código es el siguiente:
Private Sub Text1_Change()
If (Text1.Text > 1000) Then
MsgBox "no disponibles", vbInformation, "cuadro de pregunta"
End If
End Sub
el error me lo marca en esta parte del codigo:
If (Text1.Text > 1000) Then
*y el kuadro de error del programa dice lo siguiente
Run-time error '13':
Type mismatch
Necesito ayuda... Espero que me la proporcionen... Soy estudiante y es de suma importancia para mis estudios ... Gracias
Mi código es el siguiente:
Private Sub Text1_Change()
If (Text1.Text > 1000) Then
MsgBox "no disponibles", vbInformation, "cuadro de pregunta"
End If
End Sub
el error me lo marca en esta parte del codigo:
If (Text1.Text > 1000) Then
*y el kuadro de error del programa dice lo siguiente
Run-time error '13':
Type mismatch
Necesito ayuda... Espero que me la proporcionen... Soy estudiante y es de suma importancia para mis estudios ... Gracias
1 Respuesta
Respuesta de ifrancoz
1
Los cuadros de texto son variables tipo string y por lo tanto debes colocar la pregunta de esta forma :
if val(text1.text) > 1000 then
msgbox ............
endif
Pero además debes colocar una rutina como esta para asegurarse que solo insertes números en el textbox.
Private Sub Txtext1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 ' Permite los dígitos
Case 8 ' Permite el carácter de retroceso
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Suerte !
if val(text1.text) > 1000 then
msgbox ............
endif
Pero además debes colocar una rutina como esta para asegurarse que solo insertes números en el textbox.
Private Sub Txtext1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 ' Permite los dígitos
Case 8 ' Permite el carácter de retroceso
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Suerte !
Le agradezco el haber despejado mi duda, era de gran importancia, ahora me doy cuenta de que ustedes si son verdaderamente expertos...
Si llegase a tener otra duda acudiré de inmediato a esta página, esperando no abusar de su amabilidad.
De nuevo le doy las gracias y me despido deseándole.. buen día.
Atentamente: abigailmj
Si llegase a tener otra duda acudiré de inmediato a esta página, esperando no abusar de su amabilidad.
De nuevo le doy las gracias y me despido deseándole.. buen día.
Atentamente: abigailmj
