Cómo escribir sentencias de bucle en Access

'¿Este código debe hacer referencia al objeto de acceso a datos ADO en el menú VBE Editor? Herramientas

'Comprueba Microsoft?ActiveX?Data?Objects?Library?2.5 u otras versiones y confirma

Dim?rs?As?New?ADODB.Recordset

Dim?strSql?As?String,?xh?As?Long,?fxh?As?Long

strSql?=?" select?SerialNumber,SubSerialNumber?from?Table1?order?by?SerialNumber"

rs.Open?strSql,?CurrentProject.Connection,?adOpenKeyset,?adLockOptimistic

Si?No?rs y no rs.EOF, entonces

xh?=?rs!SerialNumber

Se ejecuta hasta rs.EOF

Si?rs!SerialNumber? =?xh?Entonces

fxh?=?fxh ? +?1

Si no

xh?=?rs!N.º de serie

fxh?=?1

¿Fin?Si

rs!Dividir número de serie? =?fxh

rs.Update

rs.MoveNext

Bucle

End?If

rs.Close

Set?rs?=?Nothing

MsgBox?"Se ha completado el número de subserie."

End?Sub

Haga clic en el botón, el código se ejecutará y la Tabla 1 se abrirá directamente. Los subnúmeros recién completados pueden estar en el orden opuesto, pero no hay problema. . ¿Puedes ejecutar consultas seleccionadas para reordenar? "seleccione * de la tabla 1 ordene por número de serie, número de subserie".

Después de ejecutar el código de esta manera, abrir la tabla 1 no provocará que se invierta el orden de los números de suborden.