Ms access 重新编号序列号

Ms access 重新编号序列号,ms-access,Ms Access,我想在“停止”字段下添加一个自动序列号。我有路径、方向、站点和位置字段。例如,M1向北有10站,1-10站,反之亦然 您可以使用我的文章中的RowNumber函数: '在选择、追加或创建查询中生成连续行号 '带有初始自动重置选项。 '可选地,可以传递分组键以重置行计数 '对于每个组键。 ' ' 2018-08-23. 古斯塔夫·布罗克,仙人掌数据ApS,CPH。 ' 公共函数行数_ ByVal键作为字符串_ 可选的ByVal GroupKey作为字符串_ 可选的ByVal重置为布尔值_ 只要 '

我想在“停止”字段下添加一个自动序列号。我有路径、方向、站点和位置字段。例如,M1向北有10站,1-10站,反之亦然

您可以使用我的文章中的RowNumber函数:

'在选择、追加或创建查询中生成连续行号 '带有初始自动重置选项。 '可选地,可以传递分组键以重置行计数 '对于每个组键。 ' ' 2018-08-23. 古斯塔夫·布罗克,仙人掌数据ApS,CPH。 ' 公共函数行数_ ByVal键作为字符串_ 可选的ByVal GroupKey作为字符串_ 可选的ByVal重置为布尔值_ 只要 '将GroupKey和Key组合为复合键的不常见字符串。 常量keysepator作为字符串=§§· '预期要接受的错误代码。 Const CannotAddKey的长度=457 Const CannotRemoveKey的长度=5 作为新集合的静态键 静态组键作为新集合 不算长 作为字符串的Dim CompoundKey On Error转到Err_RowNumber 如果重置=真,则 '擦除密钥集合和组密钥计数。 设置关键点=无 设置组键=无 其他的 '创建复合键以唯一标识GroupKey及其键。 '注意:如果未使用GroupKey,则只会添加一个元素。 组合键=组键和键分离器和键 Count=KeysCompoundKey 如果计数=0,则 "这条记录还没有被列举出来。 ' '将失败,如果组密钥是新的,则将计数保留为零, '或使用此组密钥检索已枚举记录的计数。 计数=GroupKeysGroupKey+1 如果计数>0,则 '已记录组密钥。 '删除它以允许在保留新计数的情况下重新创建它。 GroupKey。删除GroupKey 其他的 '此记录是第一个具有此组密钥的记录。 因此,计数为1。 计数=1 如果结束 '使用密钥计数的值重新创建组密钥项。 GroupKey.addcount,GroupKey 如果结束 '添加键及其枚举。 “这将是: '不使用组键:相对于完整记录集。 '使用组键:相对于组键。 '将失败,如果已创建密钥。 键。添加计数,复合键 如果结束 '返回键值,因为这是行计数器。 行数=计数 出口号码: 退出功能 错误号: 选择大小写错误 盒装钥匙 '键存在,因此无法再次添加。 下一步继续 箱筒拆卸钥匙 '组密钥不存在,因此无法删除。 下一步继续 其他情况 “还有别的错误。忽视 恢复出口号码 结束选择 端函数
谢谢古斯塔夫。我试试看。