Fallo en código para contador en access

Tengo un código para realizar un generador de dos contadores uno sólo cuenta hasta 6 y el otro cuenta sumando 1 . Ésto se usa para, generar números aéreos . Para un proyecto de base de datos . La verdad es que sólo me falta éste código para poder terminar la base de datos y ya se me han terminado las ideas . Muestro el código y lo que tengo realizado . Mi problema es que cuando pasa de 13 registros comienza el contador de 0 a 6 a contar mal .

El código que tengo puesto a un botón es

Private Sub Comando11_Click()
DoCmd.SetWarnings False
Dim i As Byte
For i = 1 To Stocks
DoCmd.RunSQL "Insert into Contador2(numero,control,compañia)Values(" & Left([Numero], 7) & "+" & i & "-1," & Numder & "+" & i & "-1,'" & Me.Compañia & "')"
Next
For i = 1 To 7
DoCmd.RunSQL "Update Contador2 set control=" & i & "-1 where control=" & i & "+6"
Next
For i = 1 To 3
DoCmd.RunSQL "Update Contador2 set control=" & i & "-1 where control=" & i & "+13"
Next

End Sub

Private Sub Numero_AfterUpdate()
Numder = Right([Numero], 1)
Stocks.SetFocus
End Sub

1 Respuesta

Respuesta
2

Dijiste que era para 15 registros, y como el "paso" eran 6 te puse ese código. Ahora dices que son más

Lógicamente tienes que cambiar lo de Aux por el nombre de la tabla.

¡Gracias! Gracias Icue como siempre me salvas la vida . Entiendo ahora el mecanismo . Y ¿Me podrías aconsejar un manual de Visual que esté bien ?

Y Muchísimas Gracias Icue . Por cierto si te vienes a Tenerife tienes más de una comida paga . 

De todas formas, lo mejor sería que crearas una tabla Aux, con los mismo campos que la tabla que vas a usar, y poner el código como en la imagen

Lo que hace es pasar los registros a la tabla Aux, ordenarlos, hacer las operaciones pertinentes y después pasarlos ya "terminados" a la tabla Billetes. Después borra la tabla Aux para usarla la siguiente vez y dejar en blanco los cuadros de texto del formulario para que puedas poner otro numero.

¡Gracias! De Todas formas Icue , me figuro que para hacer hasta 200 registros quedaría el código así?

Private Sub Comando11_Click()
DoCmd.SetWarnings False
Dim i As Byte
For i = 1 To Stocks
DoCmd.RunSQL "Insert into aux(numero,control,compañia,numcontrol)Values(" & Left([Numero], 7) & "+" & i & "-1," & Numder & "+" & i & "-1,'" & Me.Compañia & "')"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+6"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+13"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+20"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+27"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+34"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+41"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+48"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+55"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+62"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+69"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+76"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+83"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+90"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+97"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+104"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+111"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+118"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+125"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+132"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+139"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+146"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+153"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+160"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+167"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+174"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+181"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+188"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+195"
Next
For i = 1 To 7
DoCmd.RunSQL "Update aux set control=" & i & "-1 where control=" & i & "+202"
Next
DoCmd.RunSQL "Insert into Contador2(numero,control,compañia,numcontrol) Select numero,control,compañía,numcontrol from aux"
DoCmd.RunSQL "delete * From aux"
For Each Control In Form.Controls
If Control.ControlType = AcTexbox Then
Control.Value = ""
End If
Next
End Sub

He llamado a Numbilletes "Stocks", porque es su auténtica denominación

me da error en el "Control" que pone cursiva 

Dice que es una variable: no se puede asignar a una expresión. Eso pone

Ya me comentas algo , gracias 

Eso es un disparate. Ese código valía porque al principio dijiste 15. Mira, con la tabla Aux hago un formulario que lo pongo como subformulario en el formulario independiente Formulario 1

Cuando pulso el botón Crear registros, los inserta en la tabla Aux y le digo que el subformulario "reconsulte su origen". El código del botón es

Una vez que ha pasado los registros al subformulario, los cuadros de texto se quedan en blanco para el siguiente número

Si ahora pulso el botón Calcular, va recorriendo los registros, actualizando el valor del cuadro de texto Control poniendo los valores correctos y los pasa a la tabla Billetes y deja en blanco Aux para posteriores usos y el resultado es

El código del botón Calcular es

Y con eso es suficiente.

De todas formas te recuerdo que te ofrecí mi correo por si tenías cualquier problema.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear n registros nuevos a partir de un numero variable

Tengo una base de datos en la que necesito que me tome los valores de una tabla y a partir de una de las columnas cree tantos registros como indique esta columna, buscando acá encontré este código: Function abc() Dim rs As DAO.Recordset Set rs =...
1 respuesta

Generar un número de registros en una tabla según criterios especificados desde formulario

Necesito crear registros en una tabla según valores que especifico desde un formulario. La tabla contiene solo 3 campos: [contador], [articulo] y [color]. La idea es que yo especifique valores en 3 controles, [nº de registros], [ValorInicialContador]...
1 respuesta

Como llenar tabla dentro formulario access 2013 registro por registro y actualizar otra con estos datos

Los expertos, les escribo esperando ayuda de ustedes que tienen ams conocimiento, les explico: Tengo una base de datos que yo mismo cree, en la cual requiero tener un formulario que al darle un dato busque el registro an la tabla y me los coloque...
1 respuesta

Recorrer filas de subformulario para update

Tengo un formulario el cual contiene un subformulario, he puesto en el formulario un botón para actualizar un campo llamado txtserie del subformulario, en el botón tengo el código docmd.runsql " update tabla set txtserie where id = txtid El cual si...
1 respuesta

¿Cómo crear etiquetas según campo variedad y que te de numero de copias según campo n de cajas?

Poseo una base de datos donde genero las etiquetas según un informe y este me genera 1 etiqueta por cada variedad que tengo pero necesito que genere según la variedad el numero de etiquetas según el numero de cajas que sean de cada variedad.
2 respuestas

Cambiar valor del registro desde click del botón

Que no he podido resolver. Tengo en mi tabla el campo estatus, en la cual al dar de alta una factura se guarda el estatus "pendiente" (pendiente de pago), y al momento de que se pago la factura, el estatus debe cambiar a "pagado". El procedimiento...
1 respuesta

Como repetir automáticamente una fecha de vencimiento

Es decir, quiero que al saber cantidad de cuotas a pagar en un crédito por ejemplo 8 cuotas en la subconsulta de pago me defina automáticamente las 8 fechas de vencimientos según el periodo elegido anteriormente sin tener que ir registro por registro...
2 respuestas

Ordenar numéricamente cuadro de lista

Tengo un formulario con dos cuadros de lista, ambos con dos columnas y ambos usan items con la propiedad lista de valores. La primera columna es numérica (del 1 al 32) y la segunda es texto (correspondiente a cada número) Al hacer double_click en...
1 respuesta

Sentencia SQL (access) de registros seleccionados LISTBOX

Estoy intentando construir un informe en el que solo se muestren los registros correspondientes a los items seleccionados en un control listbox (selección múltiple). Actualmente, el informe ya lo construyo asigándole su recordsource a partir de una...
2 respuestas

Dilema en traspaso de información Access

Tengo un formulario que alimenta a una tabla de Honorarios que se llama “Libro de Honorarios” cuyos campos son idhonorarios, fechaemision, numero, rut, nombre, bruto, retención y liquidoapagar. A su vez mediante un control de pestañas también...
1 respuesta