Access VBA中如何比对多表customerid最大值生成自增新ID

Access VBA 原生不支持传入多参数的Max()函数，网传的多参数Max写法是Excel工作表函数或其他编程语言的语法，直接在Access环境调用会触发报错。以下是两种可直接落地的实现方案：

方案1：纯VBA无依赖实现（兼容性最优） #

你已经通过DMax分别拿到三张表的最大ID后，可通过嵌套IIf完成三值比对，不需要引用额外组件，所有Access版本都能正常运行。
注意补全你原有DMax写法缺失的参数和闭合括号，空表场景用Nz兜底返回0避免报错：

Dim maxPri As Long, maxBus As Long, maxNH As Long
Dim globalMax As Long, newCustomerID As Long

' 读取单表最大ID，空表默认返回0
maxPri = Nz(DMax("customerid", "PrivateCustomerInfo"), 0)
maxBus = Nz(DMax("customerid", "BusinessCustomerInfo"), 0)
maxNH = Nz(DMax("customerid", "NHCustomerInfo"), 0)

' 嵌套比对取全局最大值
globalMax = IIf(maxPri > maxBus, _
    IIf(maxPri > maxNH, maxPri, maxNH), _
    IIf(maxBus > maxNH, maxBus, maxNH))

' 生成新客户ID
newCustomerID = globalMax + 1

如果后续需要经常做多值取大操作，可以在公共模块写一个支持多参数的自定义Max函数，全项目可直接调用：

' 放在标准公共模块中
Public Function GetMax(ParamArray vals() As Variant) As Variant
    Dim idx As Long, tmpMax As Variant
    tmpMax = vals(LBound(vals))
    For idx = LBound(vals) + 1 To UBound(vals)
        If vals(idx) > tmpMax Then tmpMax = vals(idx)
    Next
    GetMax = tmpMax
End Function

调用方式非常简单：

globalMax = GetMax(maxPri, maxBus, maxNH)
newCustomerID = globalMax + 1

方案2：联合查询一次性取值（性能更优） #

不需要三次调用DMax查询单表最大值，可通过UNION ALL合并三张表的customerid字段，一次SQL查询直接返回全局最大值，表数据量较大时效率明显更高：

Dim globalMax As Long, newCustomerID As Long
globalMax = Nz(CurrentDb.OpenRecordset( _
    "SELECT Max(allCust.customerid) AS gMax FROM (" & _
    "SELECT customerid FROM PrivateCustomerInfo " & _
    "UNION ALL SELECT customerid FROM BusinessCustomerInfo " & _
    "UNION ALL SELECT customerid FROM NHCustomerInfo) AS allCust" _
).Fields("gMax"), 0)
newCustomerID = globalMax + 1

注意事项 #

• 不建议使用Excel.WorksheetFunction.Max传三个参数取值，该写法需要手动引用Excel对象库，在未安装Excel、Office版本不匹配的环境下会直接抛出引用错误，兼容性极差。
• 多用户同时操作的场景下，建议在生成ID到写入记录的流程中加表级锁，避免并发操作导致生成重复customerid。

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