Autor
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:
Código:
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
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
En línea
