Ciclo For
Publicado por Antonio (81 intervenciones) el 18/08/2020 15:13:19
Estimados, estoy "estancado" con un problema. Estoy realizando un programa sencillo de etiquetado. El usuario digita el código y le da clic a la casilla "imp" en el form llamado "etiquetas", posteriormente va al botón imprimir he ingresa el número de copias que se almacena en variable llamada "aux", la variable I da el inicio al ciclo FOR en base a la variable "aux". Como puedo hacer que el for comience desde el último registro almacenado en la tabla "informe" señalada en la imagen. Las etiquetas se imprimen por fecha (fs en la tabla) y quiero comenzar a imprimir desde el el último registro ingresado por fecha.
Agradezco cualquier impulso o dato para llegar a obtener un resultado.
Saludos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
AUX = InputBox("Ingresar el número de copias") ' genera cuadro de ingreso de datos y almacena lo ingresado en la variable aux
If Val(Nz(AUX, 0)) > 0 Then
DoCmd.OpenReport stDocName, acPreview 'que cosa hare esa cantidad de veces
DoCmd.PrintOut acPrintAll, , , acNormal, AUX, False
Else
MsgBox ("FALTA INGRESAR EL NUMERO DE COPIAS BUEN AMIGO"), vbCritical, "ERROR"
End If
On Error Resume Next
'DoCmd.RunSQL "DROP TABLE informe"
DoCmd.RunSQL "CREATE TABLE informe(id int, contenido text, codigo, fs, fp)"
On Error GoTo 0
DoCmd.SetWarnings False
For I = I To AUX Step 1
DoCmd.RunSQL "INSERT INTO informe values(" & I & ",'" & AUX & "', '" & Me.Codi & "', #" & Nz(Me.fecha_fs, 0) & "#," & Nz(feca_fp, 0) & " )"
Next
DoCmd.SetWarnings True
Agradezco cualquier impulso o dato para llegar a obtener un resultado.
Saludos
- tabla.rar(136,3 KB)
Valora esta pregunta
0