Duplicar registros de una tabla POR veces
Tengo una tabla con diferentes campos:
Campo "articulo" de texto
Campo "descripcion" de texto
Cantidad campo numérico
Necesito crear duplicados de los registros que hay en los campos artículos y descripción un número de veces igual al valor del campo cantidad.
Campo "articulo" de texto
Campo "descripcion" de texto
Cantidad campo numérico
Necesito crear duplicados de los registros que hay en los campos artículos y descripción un número de veces igual al valor del campo cantidad.
1 Respuesta
Respuesta
1
Los registros ¿los creas en la misma tabla o en otra que tenga solamente los campos articulo y descripción?
Me cuentas.
Me cuentas.
Me gustaría que se duplicaran en la misma tabla.
Supongamos que la tabla se llama Productos, para controlar los registros que ya se han duplicado añadiría un campo más, que llamaré Duplicado
El código sería:
dim db as Database
dim rs1 as Recordset
dim rs2 as Recordset
dim var as integer
Set db=currentdb
Set rs1=db.OpenRecordset("Productos")
Set rs2=db.OpenRecordset("Select * from Productos where Duplicado is null")
do while not rs2.Eof
var=1
Do while var<=rs2!Cantidad
rs1.addnew
rs1!Articulo=rs2!Articulo
rs1!Descripcion=rs2!Descripcion
rs1.update
var=var+1
Loop
rs2.Edit
rs2!Duplicado="si"
Rs2. MoveNext
Me cuentas, Angeles
El código sería:
dim db as Database
dim rs1 as Recordset
dim rs2 as Recordset
dim var as integer
Set db=currentdb
Set rs1=db.OpenRecordset("Productos")
Set rs2=db.OpenRecordset("Select * from Productos where Duplicado is null")
do while not rs2.Eof
var=1
Do while var<=rs2!Cantidad
rs1.addnew
rs1!Articulo=rs2!Articulo
rs1!Descripcion=rs2!Descripcion
rs1.update
var=var+1
Loop
rs2.Edit
rs2!Duplicado="si"
Rs2. MoveNext
Me cuentas, Angeles
Hola de nuevo.
Al ejecutar el código me da un error "Do sin loop"
Al ejecutar el código me da un error "Do sin loop"
Esto pasa por escribir de memoria...
Efectivamente no cerré el 1er do while:
dim db as Database
dim rs1 as Recordset
dim rs2 as Recordset
dim var as integer
Set db=currentdb
Set rs1=db.OpenRecordset("Productos")
Set rs2=db.OpenRecordset("Select * from Productos where Duplicado is null")
do while not rs2.Eof
var=1
Do while var<=rs2!Cantidad
rs1.addnew
rs1!Articulo=rs2!Articulo
rs1!Descripcion=rs2!Descripcion
rs1.update
var=var+1
Loop
rs2.Edit
rs2!Duplicado="si"
rs2.MoveNext
Loop
Lo siento.
Efectivamente no cerré el 1er do while:
dim db as Database
dim rs1 as Recordset
dim rs2 as Recordset
dim var as integer
Set db=currentdb
Set rs1=db.OpenRecordset("Productos")
Set rs2=db.OpenRecordset("Select * from Productos where Duplicado is null")
do while not rs2.Eof
var=1
Do while var<=rs2!Cantidad
rs1.addnew
rs1!Articulo=rs2!Articulo
rs1!Descripcion=rs2!Descripcion
rs1.update
var=var+1
Loop
rs2.Edit
rs2!Duplicado="si"
rs2.MoveNext
Loop
Lo siento.