如何通过代码在组合框(cmbMemberName)中定位指定值？

嘿，我来帮你搞定这个Access窗体的问题！你遇到的DoCmd.FindRecord报错，是因为这个命令默认是查找当前窗体绑定的主记录集，而不是组合框下拉列表里的选项——这俩不是同一个对象，所以自然会出错。

你想要的是不修改RecordSource，只让组合框定位到对应选项并显示，这里有几个靠谱的方案：

方案1：直接赋值（最简单高效） #

如果你的OpenArgs传递的是组合框的绑定值（比如成员ID，也就是组合框BoundColumn设置的列的值），直接给组合框的Value属性赋值就行：

If Nz(Me.OpenArgs) <> 0 Then 
    ' 直接设置组合框的值，会自动定位到对应选项
    Me.cmbMemberName.Value = Me.OpenArgs
    ' 可选：展开下拉框让用户看到匹配项
    Me.cmbMemberName.Dropdown 
Else 
    ' 你的其他逻辑代码
End If

如果OpenArgs传递的是组合框显示的文本内容（比如成员姓名），那就用Text属性（注意要先设置焦点）：

If Nz(Me.OpenArgs) <> "" Then 
    Me.cmbMemberName.SetFocus 
    Me.cmbMemberName.Text = Me.OpenArgs
    Me.cmbMemberName.Dropdown 
Else 
    ' 你的其他逻辑代码
End If

方案2：通过列表索引定位（更精准） #

如果需要更精确地控制列表项的定位（比如担心值重复的情况），可以遍历组合框的列表找到匹配项的索引，再设置ListIndex：

If Nz(Me.OpenArgs) <> 0 Then 
    Dim matchIndex As Integer
    matchIndex = -1
    
    ' 遍历组合框的所有列表项，Column(0)对应绑定列（根据你的实际设置调整索引）
    For i = 0 To Me.cmbMemberName.ListCount - 1
        ' 这里假设OpenArgs是绑定列的值，比如成员ID
        If Me.cmbMemberName.Column(0, i) = Me.OpenArgs Then
            matchIndex = i
            Exit For
        End If
    Next i
    
    ' 找到匹配项后定位
    If matchIndex <> -1 Then
        Me.cmbMemberName.SetFocus
        Me.cmbMemberName.ListIndex = matchIndex
        Me.cmbMemberName.Dropdown
    End If
Else 
    ' 你的其他逻辑代码
End If

关键注意点 #

• 确认组合框的BoundColumn设置：比如如果你的组合框绑定的是第2列（界面显示的是第1列），那遍历的时候要改成Column(1, i)（索引从0开始）。
• Nz的判断要匹配OpenArgs的类型：如果传递的是文本，就判断<> ""；如果是数字，就判断<> 0。

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