Access 2013创建RMYYWWxx格式自增主键的实现咨询

当然可以实现！这个带日历周重置的自增主键需求在Access 2013里完全能搞定，我给你分享两个实用方案，你可以根据自己的情况挑选：

这个方案能在用户新增记录时自动生成符合规则的主键，而且能完美处理周数重置的逻辑，步骤如下：

1. 调整表结构
   不要把目标字段设为自动编号，而是设置为短文本类型（长度设为10就足够），然后将其设为表的主键。假设这个字段名叫RMID，表名叫你的数据表名。

2. 编写VBA生成函数
   打开Access的VBA编辑器（按Alt+F11），插入一个模块，然后粘贴下面的代码：

   Function GenerateRMID() As String
       Dim currentYY As String
       Dim currentWW As String
       Dim maxSeq As Integer
       Dim newSeq As String
       
       ' 获取当前年份后两位（自动补前导零，比如2003年显示为03）
       currentYY = Format(Year(Date), "00")
       ' 获取当前ISO标准日历周（周一为一周起始，至少4天算第一周），自动补前导零
       currentWW = Format(Date, "ww", vbMonday, vbFirstFourDays)
       currentWW = Format(currentWW, "00")
       
       ' 查询当前周已存在的最大序号
       On Error Resume Next
       maxSeq = DMax("Val(Right([RMID],2))", "你的数据表名", "Left([RMID],6) = 'RM" & currentYY & currentWW & "'")
       If Err.Number <> 0 Then
           ' 该周还没有任何记录，序号从1开始
           maxSeq = 0
       End If
       On Error GoTo 0
       
       ' 生成两位格式的序号（01、02...99）
       newSeq = Format(maxSeq + 1, "00")
       
       ' 拼接最终的主键编号
       GenerateRMID = "RM" & currentYY & currentWW & newSeq
   End Function
   

   注意：记得把代码里的你的数据表名替换成你实际的表名。

3. 绑定到表单的插入事件
   如果是通过表单录入数据，打开表单的设计视图，切换到「事件」选项卡，找到「Before Insert」事件，选择「事件过程」并点击右侧的省略号，在弹出的VBA编辑器里输入：

   Private Sub Form_BeforeInsert(Cancel As Integer)
       Me.RMID = GenerateRMID()
   End Sub
   

   这样用户每次在表单里新增记录时，系统会自动生成符合规则的主键。

这个方案不需要写代码，但灵活性稍差，适合简单场景：

• 同样先把主键字段设为短文本类型
• 创建一个查询，计算当前周的最大序号，拼接出RMYYWWxx格式的编号
• 用宏创建一个按钮，点击按钮时调用这个查询，把生成的编号赋值给新记录的主键字段

不过这个方案无法自动触发，需要用户手动点击按钮生成编号，而且多用户场景下容易出现重复编号的问题，所以更适合单用户使用。

• 日历周规则：如果你的业务里周数是按周日起始计算（而非ISO标准的周一），可以把代码里的vbMonday改成vbSunday
• 多用户冲突：如果有多个用户同时录入数据，可能会出现重复编号的情况，建议给RMID字段设置唯一索引，同时可以在VBA里加事务处理来避免冲突
• 边界测试：记得测试跨年周的情况（比如12月31日属于下一年的第一周），确保编号的年份和周数对应正确

内容的提问来源于stack exchange，提问作者stutib76