Programación General > Visual Basic para principiantes

 Para El Que Me Pueda Ayudar

<< < (2/2)

Epa:
Buenas.


--- Código: Text ---   If Int(Text1.Text) &#62; 100 Then    Text1.Text = vbNullString  End If  
Saludos  :hola:

Ivannightcrawler:

--- Cita de: "Epa" --- Buenas.


--- Código: Text ---   If Int(Text1.Text) &#62; 100 Then    Text1.Text = vbNullString  End If  
Saludos  :hola:
--- Fin de la cita ---
intente usar ese.. pero aun me dice "runtime error".. creo que es porque tengo otro command box, que uso para limpiar los campos.

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text1.SetFocus


xD...¿que creen ustedes?

Toph:

--- Cita de: "Ivannightcrawler" ---me aparecio un letrero que decia " Runtime Error 13 ".. 



--- Fin de la cita ---
Ivannightcrawler probe el codigo que posteaste paso a paso y te pone lo de run time 13 cuando llega a la sentencia
--- Código: Text ---If Text1.Text &#62; 100 Then  porque el text1.text = "" entonces no coinciden los tipos, para corregirlo podrias a grosso modo agregar esto en esta parte:

'Para que los # no sean mayor que 100
If Text1.Text = "" Then
GoTo salir
End If
If Text1.Text >= 100 Then
MsgBox "No se aceptan # mayores de 100"
Text1.Text = ""
End If
salir:
End Sub

Ivannightcrawler:
gracias!, era exactamente lo que necesitaba.

un salu2 a todos.

Navegación

[0] Índice de Mensajes

[*] Página Anterior