Título: Rutinas Administrativas en Vb 6.0 - Ayuda con proyecto Publicado por: El_Holandes_errante en 28 Junio 2012, 16:10 pm 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: DataEnvironment1.rscommand1.AddNew Modificar:ModoEditar True Código: ModoEditarComven True Eliminar:Código: If msgbox ("¿Esta seguro que desea eliminar este registro?", vbQuestion + vbYesNo, "Aviso")_ Guardar:= 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 Código: If msgbox ("¿Desea guardar los cambios efectuados?", vbQuestion + vbYesNo, "Aviso"_ Buscar:= vbYes Then Msgbox ("Los cambios se guardaron correctamente") DataEnvironment1.rscommand1.Update ModoEditar True End if Código: 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: 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. |