Contador que incrementa otro valor una vez cumplida la condicion

[tanos77]

Buenas gente 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 "Entradas" con los siguientes datos.

Fecha, hora, turno, nro de serie, lote y contador.

el tema es que quiero que en el formulario me lleve el conteo de nros de serie, ingresados, hasta cierto numero en este caso 34.

De ahí que me incremente en 1 el registro Lote es decir +1.

Y vuelva a contar de 0 al 34 para ir cerrando los lotes a esa cantidad.

Luego imprimir los informes (que esto ya lo tengo resuelto).

Ya trate con contadores, este me incrementa el campo contador en +1

Este código esta en el formulario, en la propiedad del campo de texto "Contador"



Private Sub Form_BeforeInsert(Cancel As Integer)

If Me.NewRecord

Then Me.Contador = Nz(DMax("Contador", "Entradas")) + 1

End If

End Sub

Así que no se como mas puedo solucionarlo.

Alguna mano.Gracias

[lufe]

Supongo que a groso modo es algo así

1) lees en una variable auxiliar el lote actual
2) lees en una variable auxiliar el contador actual
3) para contador = contador actual hasta 34 realizas los pasos que precisas
4) cuando el ciclo se termina aumentas la variable auxiliar lote en + 1 y pones la variable auxiliar contador actual en 0

y vuelta a repetir paso 3 en adelante

es eso?