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
Respuesta de ifrancoz
1