Problema con variable [Solucionado]

Iniciado por El_Holandes_errante, 26 Noviembre 2011, 18:19 PM

0 Miembros y 1 Visitante están viendo este tema.

El_Holandes_errante

Mi problema es el siguiente:
La aplicación debe tener estados civiles en una lista y mostrarlos en un TextBox (listo) y también debe mostrar en un Msgbox una variable que sea > = 10 al hacer click en un CommandButton introducida por un TextBox (He aquí el problema), hice esa parte pero cuando le doy click al CommadButton aparece el error y no se porque pasa esto.
Estaria muy agradecido si pudieran ayudarme.
Les dejo el code y unas imágenes:

Private Sub cmdSalir_Click()
   End
End Sub

Private Sub cmdVariable_Click()
   Dim Variable As Integer
       Variable = txtVariable.Text
       'Comprobar si la variable es mayor o igual a 10
       If Variable >= "10" And txtVariable.Text >= "10" Then
           MsgBox "El valor es mayor o igual a 10: " & Variable
           Else
               MsgBox "Debe ingresar un valor valido", vbQuestion + vbOKOnly, "Datos invalidos"
               txtVariable.SetFocus
                   Exit Sub
       End If
       
End Sub

Private Sub lvwEstadoCivil_Click()
   Dim Soltero As String
   Dim Casado As String
   Dim Divorciado As String
   Dim Viudo As String
   'Seleción de variables por lista
       Select Case lvwEstadoCivil.ListIndex
           Case 0
               Soltero = "Juan Peñaloza"
               txtNombres.Text = Soltero
           Case 1
               Casado = "Franklin Mendez"
               txtNombres.Text = Casado
           Case 2
               Divorciado = "Antonio Álvarez"
               txtNombres.Text = Divorciado
           Case 3
               Viudo = "Victor Speed"
               txtNombres.Text = Viudo
               End Select
End Sub






Sanlegas

tienes que usar la funcion Val(),

Código (vb) [Seleccionar]
Variable = val(txtVariable.text)

y no tiene caso que compruebes Variable y txtVariable dos veces. Salu2  :rolleyes:

El_Holandes_errante

Cita de: Tenient101 en 26 Noviembre 2011, 19:04 PM
tienes que usar la funcion Val(),

Código (vb) [Seleccionar]
Variable = val(txtVariable.text)

y no tiene caso que compruebes Variable y txtVariable dos veces. Salu2  :rolleyes:

Gracias viejo!  ::)
jejejej se me paso ese de las confirmaciones.  :P