Buenos dias chicos,
Tengo una aplicación que es un generador de facturas creado en Access con el código en Visual.
Esta aplicación da los típicos campos de una factura (datos del cliente, datos de facturación, y líneas de productos), también tengo creado un botón que me añade líneas de productos al final de las existentes... pues bien, ahora necesito que el usuario pueda mover esa línea creada y cualquiera de las líneas de productos existentes arriba o abajo y ponerlas donde quiera.
He creado dos botones en el formulario que los he llamado Cmd_subir y Cmd_bajar, y he empezado con el Cmd_subir con la siguiente rutina (y no funciona...):
Código:
Private Sub Cmd_Subir_Click()
Dim db As Database
Set db = CurrentDb
db.Execute("Update Facturas_lineas set n_linea="(n_linea_sel-1)" where n_linea="n_linea_sel" and num_factura="num_factura")
db.Execute("Update Facturas_lineas set n_linea="1000" where n_linea="n_linea_sel" and num_factura="num_factura")
db.Execute("Update Facturas_lineas set n_linea="(n_linea_sel)" where n_linea="1000" and num_factura="num_factura")
End Sub
Otra cosa es que no se como darle al label "n_linea_sel" el valor que corresponde a la linea seleccionada de la lista de productos.
¿¿Alguna idea?? La verdad es que voy un poco pez...
Gracias!!!
P.D. El 1000 que veís en el código se tiene que interpretar como un valor cualquiera (pero muy grande)