Insertar fecha al borrar registros
Estimados Expertos:
Tengo un código que al borrrar un registro me lo pasa a otra tabla, mi duda es como le hago para que al hacerlo me inserte (en un campo predefinido), la fecha, la hora etc., y en este mismo registro activo que borro esta un nombre que también me gustaría que insertara en la otra tabla donde paso mis registros borrados.
De antemano gracias
Desde Mexico City
Armin Canto
Tengo un código que al borrrar un registro me lo pasa a otra tabla, mi duda es como le hago para que al hacerlo me inserte (en un campo predefinido), la fecha, la hora etc., y en este mismo registro activo que borro esta un nombre que también me gustaría que insertara en la otra tabla donde paso mis registros borrados.
De antemano gracias
Desde Mexico City
Armin Canto
1 respuesta
Respuesta de Julián González Cabarcos
1
Supongamos que estás en un formulario Pepe y en el evento que sea, le dices que te inserte...
En la tabla(que se llama Ventas) en la que vas a insertar añádele un campo llamado Fecha y otro campo llamado Hora. Cambia el procedimiento de evento y ponlo así:
Docmd. Runsql"insert into ventas(producto, precio, etc, fecha, hora)values(producto, precio, etc, date(), time())
También puedes hacerlo sin código, poniendo como valor predefinido a esos campos
=date()
=Time()
Si lo que quieres es que te ponga la fecha y la hora todo junto basta con poner
=Now()
Con respecto a lo del nombre ese, crea en la tabla un campo, el que sea y añade su nombre en lo de
... Venta(producto, precio, elnombrequesea, etc, fecha, hora)values(..., elnombrequesea,..)
En la tabla(que se llama Ventas) en la que vas a insertar añádele un campo llamado Fecha y otro campo llamado Hora. Cambia el procedimiento de evento y ponlo así:
Docmd. Runsql"insert into ventas(producto, precio, etc, fecha, hora)values(producto, precio, etc, date(), time())
También puedes hacerlo sin código, poniendo como valor predefinido a esos campos
=date()
=Time()
Si lo que quieres es que te ponga la fecha y la hora todo junto basta con poner
=Now()
Con respecto a lo del nombre ese, crea en la tabla un campo, el que sea y añade su nombre en lo de
... Venta(producto, precio, elnombrequesea, etc, fecha, hora)values(..., elnombrequesea,..)
