Access数据库按Client ID自增Session ID、关联更新Sessions used问题咨询

问题1：实现单客户维度的Session ID独立自增 #

Access自带的自动编号字段为全局递增逻辑，无法按指定维度（如Client ID）拆分单独计数，可按以下步骤修改：

• 第一步：修改Client sessions表结构，将Session ID字段类型从「自动编号」调整为「长整型」，保留Client ID + Session ID的联合主键设置即可。
• 第二步：打开会话录入子窗体的设计视图，选中子窗体，在「事件」选项卡中找到「插入前」（Before Insert）事件，选择代码生成器，粘贴以下VBA逻辑：

Private Sub Form_BeforeInsert(Cancel As Integer)
    ' 计算当前客户的最大Session ID，首次录入时默认从1开始
    Me![Session ID] = Nz(DMax("Session ID", "Client sessions", "Client ID = " & Me![Client ID]), 0) + 1
End Sub

问题2：新增会话时自动更新套餐使用次数并做阈值校验 #

可直接在上述Before Insert事件中补充校验和更新逻辑，完整代码如下：

Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim usedCount As Integer
    ' 1. 生成单客户独立Session ID
    Me![Session ID] = Nz(DMax("Session ID", "Client sessions", "Client ID = " & Me![Client ID]), 0) + 1
    
    ' 2. 校验套餐可用次数
    usedCount = DLookup("Sessions used", "Care Packages Master", "Client ID = " & Me![Client ID] & " AND Package ID = " & Me![Package ID])
    If usedCount >= 5 Then
        MsgBox "当前客户所选护理套餐已用完5次服务，无法新增会话", vbExclamation, "服务次数耗尽"
        Cancel = True ' 终止本次记录插入操作
        Exit Sub
    End If
    
    ' 3. 套餐已使用次数+1
    CurrentDb.Execute "UPDATE [Care Packages Master] SET [Sessions used] = [Sessions used] + 1 WHERE Client ID = " & Me![Client ID] & " AND Package ID = " & Me![Package ID], dbFailOnError
End Sub

注意事项 #

• 需确保Client sessions表已添加Package ID字段作为关联Care Packages Master表的外键，且子窗体中已绑定该字段可正常取值。
• 若实际表名、字段名和示例不同，需替换代码中对应名称，带空格的名称需用方括号包裹。

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