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: 28/Marzo/2024 a las 16:50
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
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
|
|