Copiar datos de tabla a tabla - VB-MUNDO

javier · #1 (**permalink**) 10-05-2008, 12:23:42

Hola, buena tengo una atasco que no se como solucionar, resulta que tengo unas tablas que denomino Presupuesto y otras que llamo Factura bien, entonces mi intención es que, con un botón, puedas cambiar los presupuesto a facturas.
Bien, he creado dos Recort, uno para factura y otro para presupuesto, cuando intento pasar los parámetros de una a otra.
Solo me introduce un dato. Y el cuerpo de la factura (cantidad, precio, descripción, etc…).No , se que hay que pasar un bucle for while , pero no se como, una ayuda por favor un ejemplo. Muchas gracias

J.M.Movilla · #2 (**permalink**) 10-05-2008, 19:32:34

Primera cuestión, y fundamental: ¿Los campos de Presupuestos son idénticos a los de Facturas?

Si esto es así, te serviría una simple instrucción, tal que

Código:

SQL = "INSERT INTO Facturas SELECT Presupuestos.* FROM Presupuestos WHERE Numero = " & Número_del_Presupuesto_que_quieras_pasar_a_Facturas

Luego sólo tendrías que sustituir en campo Numero por el Número_de_Factura.

O puedes preparar un bucle, tal que así

Código:

Dim Valor as Variant
Facturas.AddNew
For n = 0 To Presupuestos.Fields.Count - 1
    Valor = Presupuestos.Fields(n)
    '  OJO:  Aquí tienes que actualizar los campos que sean diferentes, tal que el Número...
    Facturas.Fields(n) = Valor
Next
Facturas.Update

Y si los campos son diferentes, pues tendrás que poner la línea Facturas.Fields(n) = Valor de forma que haga la actualización como Dios manda...

javier · #3 (**permalink**) 10-05-2008, 20:31:52

José María. Gracias, como siempre menos mal que se que te tenemos ahí.
Gracias

javier · #4 (**permalink**) 11-05-2008, 18:35:44

J. M . Perdona pero no me funciona algo estoy haciendo mal por favor alúmbrame un poco.
Los campos de los presupuestos y las facturas, no los tengo iguales.
En la tablas factura tengo unas columnas mas, que es para saber el estado de la factura ( pagada o Sin pagar) y también tengo campos auto numérico. Total que no me coincide las columnas de una con la otra, tabla, no puedo copiar entonces. Tabla por tablas ¿No?
Perdón por mi ignorancia como puedo hacer el bucle y pasar filas a fila

For n = 0 To Presupuesto.Fields(“Importe”)

Factura.Fields(“Importe”) = Presupuesto Fields(n)
Etc..
Algo así, pero no me funciona
Next

J.M.Movilla · #5 (**permalink**) 11-05-2008, 22:04:41

Hombre, si los campos no coinciden... entonces no te queda más remedio que trabajar "a pedal"...

Código:

Campo1 = Presupuestos.Fields("Campo1")
Campo2 = Presupuestos.Fields("Campo2")
Campo3 = Presupuestos.Fields("Campo3")
...
Facturas.AddNew
Facturas.Fields("NomCamp1") = Campo3
Facturas.Fields("NomCamp2") = Campo1
Facturas.Fields("NomCamp3") = False
Facturas.Fields("NomCamp4") = Campo2
...
Facturas.Update

Espero habértelo explicado de forma inteligible...

Desde luego, lo que no puedes hacer de ninguna forma es For n = 0 to Presupuestos.Fields("Importe"). Piénsatelo un poco...

javier · #6 (**permalink**) 12-05-2008, 07:02:44

Si, J.M, si eso es lo que estaba haciendo al principio, Pero lo que pasa que cuando intento pasar lo que es, el cuerpo del presupuesto donde los campos, cantidad que tienen mas de un registro o el campo descripción etc… solamente me ingresa un dato
Y por eso comentaba yo lo del. Gracias

Factura.AddNew
Factura!NroFactura = N_Fact
Factura!Fecha = Date
Factura!CodCli = Presupuesto!CdClientePre
Factura!Cant = Presupuesto!Cant
Factura.Update

javier · #7 (**permalink**) 12-05-2008, 11:37:47

Ya di con la cosa, necesitaba una estructura de control, me valió While
Gracias

While Not Presu.EOF
Factura.AddNew
Factura!IdFactura = N_Factura
Factura!Cant = Presu!CantPre
Factura!Descripcion = Presu!DescripcionPre
Factura!PUnidad = Presu!PUnidadPre
Factura!Importe = Presu!ImportePre
Factura.Update
Factura.MoveNext
Wend