如何检查组合框（combo box）输入值是否属于其关联行数据源的成员

方案一：直接禁止手动编辑（最优解） #

无需编写键盘事件代码，直接修改控件属性即可完全限制用户只能从下拉列表选择，不会触发报错：

1. 进入表单设计视图，选中目标组合框（本例控件名为User_Name）
2. 在属性面板找到Style属性，设置为2 - fmStyleDropDownList即可

方案二：提交按钮内置校验逻辑 #

如果需要保留用户手动输入的能力，可在提交按钮的点击事件中加入以下校验代码：

Private Sub 提交按钮_Click()
    Dim inputVal As String
    Dim isMatch As Boolean
    Dim i As Long
    
    ' 读取组合框输入值并去除首尾空格
    inputVal = Trim(Me.User_Name.Value)
    
    ' 非空校验（可根据业务需求调整是否允许空值）
    If inputVal = "" Then
        MsgBox "请选择或输入用户名", vbExclamation
        Exit Sub
    End If
    
    ' 直接复用组合框已有选项列表进行匹配，无需额外读取表
    isMatch = False
    For i = LBound(Me.User_Name.List) To UBound(Me.User_Name.List)
        ' 若需匹配组合框第N列内容，将0改为对应列索引（第一列为0，第二列为1，以此类推）
        If Trim(Me.User_Name.List(i, 0)) = inputVal Then
            isMatch = True
            Exit For
        End If
    Next i
    
    ' 校验不通过直接退出
    If Not isMatch Then
        MsgBox "输入内容不在可选范围内，请重新选择", vbExclamation
        Me.User_Name.SetFocus
        Exit Sub
    End If
    
    ' 校验通过后可写入后续业务逻辑
    ' ----------------------
    ' 你的其他代码
    ' ----------------------
End Sub

补充：将数据源表转为数组的方法 #

如果需要直接从原始表读取数据生成校验数组，可使用以下代码：

' 示例：读取[用户表]的[用户名]字段生成数组
Dim validList As Variant
validList = CurrentDb.OpenRecordset("SELECT 用户名 FROM 用户表").GetRows(10000) 
' 10000为最大读取行数，可根据实际数据量调整
' 后续遍历validList数组进行匹配即可，逻辑和上述代码一致

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