Imprimir página | Cerrar ventana

Actualizar kilometraje Vehicular

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85321
Fecha de impresión: 19/Abril/2021 a las 05:54


Tema: Actualizar kilometraje Vehicular
Publicado por: seguroquesi
Asunto: Actualizar kilometraje Vehicular
Fecha de publicación: 03/Junio/2020 a las 21:45
Buen día para todos, esta pregunta está chevere y entretenida, tengo un formulario como una ficha técnica vehicular, donde esta toda la información de vehículos de una empresa, vencimiento de seguros, tipo de llantas, placa, sitio de matricula, numero de motor, , todo, inclusive el kilometraje actual. En otro formulario ingreso la información de kilometraje, seleccionando placa, fecha y quien envia la información, esto para control de combustible. Como puedo hacer para que al ingresar la información del kilometraje actual en el segundo formulario, en el primero, se actualice el campo Kilometraje pero que coincida con la placa del vehículo que se actualizo?

-------------
Cordialmente:
Seguroquesi



Respuestas:
Publicado por: maxpro
Fecha de publicación: 03/Junio/2020 a las 22:08
Hola.

en el formurario insertas el kilometraje transitado y se debe sumar al que ya esta registrado o pones el total y debe actualizarlo al primer formurario.

Si es la segunda opcion con una consulta de actualizacion podria funcionar

DoCmd.RunSQL ("Update.......")
DoCmd.SetWarnings (0)

Saludos


-------------
-------Maxpro-------

San Luis - Argentina


Publicado por: seguroquesi
Fecha de publicación: 03/Junio/2020 a las 22:12
Hola
Como es una actualización de kilometraje, el actual, debe borrar el anterior y colocar el nuevo, pero como le digo al formulario que se actualizo la placa ABC123 en kilometraje y me actualice ese registro y no otro?


-------------
Cordialmente:
Seguroquesi


Publicado por: xavi
Fecha de publicación: 03/Junio/2020 a las 22:20
Si analizas una sentencia SQL de tipo UPDATE verás que tiene varias partes:
- UPDATE: la tabla que vas a actualizar
- SET: el campo a cambiar y valor a asignar
- WHERE: la condición para acotar los registros

Todo ese junto, crea algo así:

CurrentDb.Execute "UPDATE tblDatos Set Kilometraje = " & Me!Kilometraje & " WHERE Placa = '" & Me!Placa & "'", dbFailOnError

Ojo, si kilometraje tiene decimales, puede dar un error.

Adáptalo.


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: seguroquesi
Fecha de publicación: 03/Junio/2020 a las 22:51
Hola, Gracias por la ayuda, pero genera error, la tabla a la que le debo actualizar el campo se llama "Vehiculos" y el campo se llama "txtKilometraje", la tabla donde esta la nueva información se llama "Kilometrajes", esta tabla tiene los campos "Id_Kilometraje", "Kilometraje", "Fecha", "Placa" y "Reporta" quien indica el kilometraje actual del vehiculo al encenderlo en la mañana.

En el Formulario "Vehiculos", en el evento "Al cargar" le coloco la siguiente Linea:

CurrentDb.Execute "Update Vehiculos Set txtKilometraje =" & Me!Kilometraje & "Where txtPlaca= '" & Me!Placa & "'", dbFailOnError

Esto me presenta error...


-------------
Cordialmente:
Seguroquesi


Publicado por: maxpro
Fecha de publicación: 03/Junio/2020 a las 23:19
Hola.

otra opcion seria Establecer Valor a traves de una macro!


Saludos


-------------
-------Maxpro-------

San Luis - Argentina


Publicado por: seguroquesi
Fecha de publicación: 03/Junio/2020 a las 23:55
Me puedes dar una guia de como desarrollar la macro?

-------------
Cordialmente:
Seguroquesi


Publicado por: maxpro
Fecha de publicación: 04/Junio/2020 a las 04:12
Hola.

1) Creas una nueva macro
2) Seleccionas "Establecer Valor"
3) luego te dara 2 opciones
    Elemento = ubicacion donde deseas que se establezca el valor
    Expresion = ubicacion donde se se encuuentra el valor que quieres establecer
4) guardas la macro
5) ejecutas la macro en el momento que consideres.

Saludos.


-------------
-------Maxpro-------

San Luis - Argentina


Publicado por: 01loko
Fecha de publicación: 04/Junio/2020 a las 07:39
1º: Supongo que si quiere controlar el combustible, supongo que quiere guardar cada vez que echa, con fecha kilometros, conductor, etc.

2º No entiendo guardar los kilometros actuales, ya que es mas interesante guardar los Km iniciales para ver los que ha realizado en un tiempo determinado.

Yo personalmente mostraria el ultimo registro de la tabla Kilometros y matricula en la ficha.




-------------
Recordar de que soy nuevo y estoy aprendiendo.


Publicado por: seguroquesi
Fecha de publicación: 04/Junio/2020 a las 15:40
Hola
Si, esa es la idea, el formulario es un mostrario a los usuarios del estado actual de cada vehículo y allí debe estar en el campo "Kilometraje" el ultimo valor ingresado a través de otro formulario de ingresos donde quedan los históricos


-------------
Cordialmente:
Seguroquesi


Publicado por: seguroquesi
Fecha de publicación: 04/Junio/2020 a las 17:14
Hola Xavi

Intento adaptar tu ejemplo y me queda asi:

CurrentDb.Execute "Update Kilometraje Set Kilometrajes = " & Me!txtKilometraje2 & "Where txtPlaca= '" & Me!Placa & "'", dbFailOnError
= 'CDF500".

Entiendo que: Kilometraje es la tabla donde esta la información nueva y Kilometrajes es el campo de esa tabla, Me!txtKilometraje2 es el campo en el formulario donde quiero que quede la información de la otra tabla t "txtPlaca" es la placa del registro actualmente abierto... que me esta fllando?
El numero "CDF500" es la primer placa que aparece en el formulario.

Agradezco su valiosa ayuda, estoy varado por este problema y cuando termine la cuarentena, quiero llegar con la sorpresa de esta BD al trabajo!!

Saludos!!

Carlos


-------------
Cordialmente:
Seguroquesi


Publicado por: lbauluz
Fecha de publicación: 08/Agosto/2020 a las 04:34
Me da la sensación de que el kilometraje es un campo texto y no se están poniendo las comillas....

-------------
El Búho es un pajarraco


Publicado por: jilo
Fecha de publicación: 08/Agosto/2020 a las 08:27
Publicado originalmente por seguroquesi seguroquesi escribió:

...
CurrentDb.Execute "Update Kilometraje Set Kilometrajes = " & Me!txtKilometraje2 & " Where txtPlaca= '" & Me!Placa & "'", dbFailOnError
= 'CDF500".
...


También falta un espacio entre " y Where



-------------
Espero te sirva !!!!!!
Iñaki



Imprimir página | Cerrar ventana