Facturas con Visual (en Access)

[monica_]

Hola,

Yo lo que creo es que en algún Update las líneas se te hacen un lío y por eso no te funciona.
En realidad de lo que se trata es de cambiar el número de orden entre dos líneas.
No lo he probado pero creo que así te funcionaría:


Private Sub Cmd_Subir_Click()
Dim db As Database
Set db = CurrentDb

Dim Linea_Sel as integer
Dim Linea_Ant as integer

Linea_Sel = n_linea_sel 'Inicializar variable con la línea seleccionada
Linea_Ant = n_linea_sel - 1 'Línea anterior

db.Execute("Update Facturas_lineas set n_linea=1000 where n_linea=" & Linea_Sel & " and num_factura=" & num_factura)

db.Execute("Update Facturas_lineas set n_linea=n_linea + 1 where n_linea=" & Linea_Sel - 1 & " and num_factura=" & num_factura)

db.Execute("Update Facturas_lineas set n_linea=" & Linea_Ant & " where n_linea=1000 and num_factura=" & num_factura)


'Para bajar pondrías +1 en vez de -1


End Sub

Espero que te ayude.

Saludos,
monicad