Mensajes

[Agregar:]

Buen dia, compañeros mios.
     Hoy les vengo a exponer un caso que se me presenta el cual ya le eh tratado de buscar solución y se me hace muy dificil, el inconveniente es el siguiente:
     Estoy haciendo una aplicación en Vb 6.0 con el motivo de presentarlo en el instituto y sea aprobado en la empresa en donde estoy efectuando mis pasantias, todo bien hasta ahora, pero cuando codeo los Command Buttons es cuando todo se vuelve un desastre.
Agregar:

Código [Seleccionar] Expandir


DataEnvironment1.rscommand1.AddNew
ModoEditar True

Modificar:

Código [Seleccionar] Expandir


ModoEditarComven True

Eliminar:

Código [Seleccionar] Expandir


If msgbox ("¿Esta seguro que desea eliminar este registro?", vbQuestion + vbYesNo, "Aviso")_
= vbYes Then
DataEnvironment1.rscommand1.Delete
Msgbox ("Registro eliminado satisfactoriamente")
DataEnvironment1.rscommand1.MoveNext
Else
DataEnvironment1.rscommand1.Cancel
If DataEnvironment1.rscommand1.EOF Then
DataEnvironment1.rscommand1.MoveLast
End if
End if

Guardar:

Código [Seleccionar] Expandir


If msgbox ("¿Desea guardar los cambios efectuados?", vbQuestion + vbYesNo, "Aviso"_
= vbYes Then
Msgbox ("Los cambios se guardaron correctamente")
DataEnvironment1.rscommand1.Update
ModoEditar True
End if

Buscar:

Código [Seleccionar] Expandir


Dim Buscar As String
DataEnvironment1.rscommand1.MoveFirst
Buscar = InputBox ("Escriba el número de órden que desea consultar")
If Buscar <> " " Then
DataEnvironment1.rscommand1.Find " [Número de Órden] = " & Buscar
If DataEnvironment1.rscommand1.EOF Then
Msgbox ("Esta órden no se encuentra en la base de datos")
DataEnvironment1.rscommand1.MoveFirst
End if
End if


Ahora mi problema es que al yo darle al boton de buscar me dice que tengo un problema con esta linea de codigo:

Código [Seleccionar] Expandir

DataEnvironment1.rscommand1.Find " [Número de Órden] = " & Buscar
     Tambien tengo una duda en los que usan el modo editar algunos de esos codigos eran de internet y los cambie un poquito, pero no se si hay que activar esa funcion o como se haria porque tambien me tira error en esos botones, como no estoy en mi computador les debo las imagenes pero en cuanto pueda se las subo asi tienen una mejor idea de lo que me esta pasando.
     Sin mas que decirles espero que puedan ayudarme, Gracias de antemano.

tienes que usar la funcion Val(),

Código (vb) [Seleccionar] Expandir

Variable = val(txtVariable.text)

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

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

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:

Código [Seleccionar] Expandir


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