MS Access级联组合框获取对应Route.ID的实现方案咨询

方案说明 #

首先注意你的Routes表存在同一组From_LID+To_LID对应多条Route记录的情况（比如伦敦到曼彻斯特有450KM的M1路线、485KM的市内路线两条），如果直接按两个组合框的值匹配会返回多个结果，可根据你的业务需求选以下两种方案：

方案1：同出发+目的地仅需匹配第一条Route（无需用户选具体路线）

不需要新增独立查询，直接用Access内置DLookup函数取值即可，操作步骤：

1. 在表单上新增一个文本框控件（命名为txtRouteID），将其控件来源绑定到你要存储数据的结果表的Route_ID字段，可设置为只读避免用户修改。
2. 在表单的VBA模块中新增通用更新方法，同时在两个组合框的更新后事件中调用即可：

' 原ComboFrom更新后事件保留ComboTo重查询逻辑，追加调用更新RouteID
Private Sub ComboFrom_AfterUpdate()
    Me.ComboTo.Requery
    Call UpdateRouteID
End Sub

' ComboTo更新后也触发RouteID更新
Private Sub ComboTo_AfterUpdate()
    Call UpdateRouteID
End Sub

' 通用RouteID匹配逻辑
Private Sub UpdateRouteID()
    If Not IsNull(Me.ComboFrom) And Not IsNull(Me.ComboTo) Then
        ' 匹配Routes表的ID，多结果时默认返回第一条
        Me.txtRouteID = DLookup("ID", "Routes", "From_LID=" & Me.ComboFrom & " And To_LID=" & Me.ComboTo)
        ' 若需要同步带出KM、路线备注等字段也可以直接追加赋值
        ' Me.txtKM = DLookup("KM", "Routes", "From_LID=" & Me.ComboFrom & " And To_LID=" & Me.ComboTo)
        ' Me.txtRouteNotes = DLookup("Notes", "Routes", "From_LID=" & Me.ComboFrom & " And To_LID=" & Me.ComboTo)
    Else
        Me.txtRouteID = Null
    End If
End Sub

该方案全程仅读取Routes表数据赋值给结果表绑定控件，不会对Routes表做任何增改操作。

方案2：同出发+目的地有多条路线需要用户选择（更稳妥的推荐方案）

新增第三个级联组合框直接绑定结果表的Route_ID字段，避免多结果匹配异常：

1. 新增组合框控件（命名为ComboRoute），控件来源绑定结果表的Route_ID字段，行来源查询写为：

SELECT ID, KM, Notes FROM Routes
WHERE From_LID = [Forms]![fmrRoute1]![ComboFrom] AND To_LID = [Forms]![fmrRoute1]![ComboTo]
ORDER BY KM;

设置组合框的列数为3、列宽为0cm;1cm;3cm，实现隐藏ID列、显示公里数和路线备注供用户选择。
2. 在ComboFrom、ComboTo的更新后事件中追加Me.ComboRoute.Requery，即可实现选完出发地、目的地后自动列出所有符合的路线，用户选择后RouteID直接存储到结果表，无需额外赋值逻辑。

注意事项 #

你现有代码中查询用的表名是Location，你给出的表结构表名是Locations，注意统一表名、字段名避免查询报错；只要表单的记录源绑定的是你的结果表而非Routes表，就完全不会生成新的Routes表记录。

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