Consulta que repita un campo n veces

Tengo una tabla con los sig campos
Clave, descripción, cantidad.
Lo que quiero hacer es que a la hora de mandar los datos a un informe me los mande n veces según sea el contenido dl campo "cantidad". Ej, si clave=5454, descripcion= mochilas, cantidad=5; entonces en el informe deve aparecer impresa 5 veces.
Respuesta
1
No creo que se pueda resolver sin escribir un poco de código.
Yo lo resolvería así:
1)Crearía una tabla auxiliar con los mismos campos.
2)Escribiría una rutina que lea la tabla original y por cada registro que lee grabe todos los registros en la tabla auxiliar, para hacerlo
For i=1 to cantidad
graba un registro en auxiliar
next
3) Crear el informe con la tabla auxiliar
4) El botón que manda imprimir debe tener algo que borre todos los registros de la tabla auxiliar (que han quedado de una ejecución anterior) y luego llame la rutina escrita como se explica en 2
Y listo, decinos si necesitás ayuda para escribir toda la rutina, en tal caso informá bien el nombre de la tabla y de los campos.
Suerte, Marciana
La tabla se llama compra, los campos son:
foli, fecha, prov, cve, nomart, cant y costo. Gracias por ayudarme, esq soy nuevo en esto.
No me olvidé, pero tengo que juntar un rato para escribir el código y probarlo. Pero te aviso que lo tengo presente.
Te agradezco tu ayuda, espero resp.
Creá una tabla Auxiliar igual a Compra pero sin datos.
Agregá este código en un módulo, luego con el cursor dentro del módulo ejecutalo tocando F5.
Comprobá que la tabla Auxiliar tiene la cantidad de registros que corresponde.
Armá la impresión a partir de la tabla Auxiliar.
El código está probado
Public Sub GeneraREgistros()
Dim rsIn As New ADODB.Recordset
Dim rsOut As New ADODB.Recordset
Dim i As Integer
RsIn. Open "Compra", CurrentProject. Connection, adOpenForwardOnly, adLockReadOnly
rsOut. Open "Auxiliar", CurrentProject. Connection, adOpenDynamic, adLockPessimistic
'Primero vacía la tabla Auxiliar
rsOut.MoveFirst
Do While Not rsOut.EOF
rsOut.Delete
rsOut.MoveFirst
Loop
rsIn.MoveFirst
Do While Not rsIn.EOF
For i = 1 To rsIn!cant
rsOut.AddNew
rsOut!foli = rsIn!foli
rsOut!fecha = rsIn!fecha
rsOut!prov = rsIn!prov
rsOut!cve = rsIn!cve
rsOut!nomart = rsIn!nomart
rsOut!cant = rsIn!cant
rsOut!costo = rsIn!costo
rsOut.Update
Next
rsIn.MoveNext
Loop
End Sub
Contame cómo te fue.
Marciana

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cómo sumar y restar las existencias

Estoy haciendo una base de datos en access para llevar entradas y salidas de almacén, así como cálculo de existencias. Las tablas y los campos son los siguientes: PRODUCTOS: RefProducto, DescripcionProducto, UnidadesEnExistencia ALBARANES ENTRADA:...
2 respuestas

Crear campo numérico que reinicie al cambiar de año

Tengo que hacer una base de datos de correspondencia que tenga un campo contador (pero no autonumérico) que se reinicie al cambiar el año. Por favor, explícame muy detalladamente cada paso que soy principiante en el VBA y con las indicaciones que he...
1 respuesta

Contador que incrementa valor al cumplir condición

Los molesto por lo siguiente dado que me doy la cabeza contra el teclado y nada. La solución no viene. La consulta es esta: Tengo una tabla llamada "Ingresos" con los siguientes datos. Fecha, hora, turno, PLM, y contador. Y otra tabla llamada Lotes,...
1 respuesta

Exportar mediante macro a txt

Quisiera saber como puedo hacer una macro que exporte varias tablas de una base a archivos txt separados por coma, el problema es que algunas tablas tienen campos con decimales y al hacerlo en forma manual, hay que ir a la configuración regional de...
1 respuesta

¿Cómo puedo unir 155 tablas vinculadas desde excel con igual estructura en Access?

Tengo 155 tablas vinculadas desde Excel (debido a que hay 1 archivo en Excel por usuario) a Access 2007, las cuales tienen la misma estructura (campos), pero diferentes registros. Necesito unir todos esos registros en 1 sola tabla o consulta. Utilicé...
1 respuesta

Enviar datos de Access a Excel

Antes de nada muchas gracias de antemano por la ayuda que prestas la los intentamos aprender un poco de Access. Mi pregunta es si existe alguna forma de enviar los datos de una tabla de Access a una hoja Excel que tenga ya preparado para recoger los...
1 respuesta

Obtener datos de varios textbox

Tengo 3 textbox, t1, t2, y t3, y quiero guardar los valores en una tabla que tiene 3 campos texto1, texto2 y texto3 y tengo un botón que hace lo siguiente: Dim rs As New ADODB.Recordset Dim total As String Dim indice As String total = 3 indice = 1...
1 respuesta

Contatenar registros de también en uno solo de una consulta

Me gustaría por favor una función que me permita en un sólo registro de una consulta, arrojar concatenados (separados por tabulaciones) todos los registros de una tabla. Por ejemplo, mi tabla se llama consecutivos y tiene los siguientes registros:...
1 respuesta

Crear registros en base al valor de un campo

Ojala me puedas ayudar de nuevo. Me gustaría saber como se puede crear automáticamente un numero de registros en base a un valor de un campo. Por ejemplo, al campo "periodos en proyecto" le asigno el valor 4 y ese valor hace que se creen 4 registros...
1 respuesta

¿Cómo vincular mi folio con el nombre?

Necesito de favor vincular un textbox con mi base de datos que al insertar el folio en un textbox en otro aparezca el nombre del articulo mi base de datos tiene estos campos folio Nombre 123 Pedro Que al escribir 123 automáticamente me ponga el...
6 respuestas