Como imprimir cantidad de etiquetas según campo

Tengo una tabla con los siguientes campos: nombrecliente, Boleta1, cantidad1, Boleta2, cantidad2

Debo imprimir las cantidades de boletas1, boletas2 de acurdo al registro

Ejemplo : Cliente : Carlos, Cantidad 10, Tipo: Boletas1, se debe imprimir 10 boletas1 con el nombre carlos

1 Respuesta

Respuesta
1

No dices lo que escribes en el campo Boleta1, ni como quieres las etiquetas, así que...

Si tengo la tabla Clientes

Creo una tabla Auxiliar AuxBoletas

Le añado un campo NumEt para que me guarde el número de etiqueta. Si tengo el formulario

Cuando pulso el botón

El código del botón del formulario es

Private Sub Comando11_Click()
Dim a As Integer
For a = 1 To ([Cantidad1])
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into AuxBoletas(cliente,Cantidad1, boleta1,numet)values(cliente,1,boleta1, " & a & " & "" de "" & [cantidad1])"
Next a
DoCmd.OpenReport "Etiquetas", acPreview, , "cliente='" & Me.Cliente & "'"
DoCmd.SetWarnings False
DoCmd.RunSQL "delete * from auxboletas"
End Sub

La última línea Docmd.runsql es para que borre la tabla AuxBoletas y que quede lista para la siguiente orden.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas