Access窗体插入数据问题：组合框值返回索引而非实际名称

嗨，这问题我熟！你遇到的情况是因为Access组合框的Value属性默认返回的是**绑定列（Bound Column）**的值——如果你的组合框把索引列（比如ID列）设成了绑定列，那自然拿到的就是索引数字，不是人员名称。

下面给你几个可行的解决办法，同时顺便修正你原代码里的其他小问题：

方法1：使用.Text属性获取显示文本 #

这个属性直接返回组合框当前显示的内容，但要注意只有组合框获得焦点时才能正常使用，所以可以先强制设置焦点：

Private Sub Command134_Click()
    Dim strInsert As String
    Dim db As DAO.Database ' 声明具体类型，避免变体类型隐患
    Set db = CurrentDb()
    
    ' 先让组合框获得焦点，确保.Text属性可用
    Staff_Name.SetFocus
    Dim staffNameText As String
    staffNameText = Staff_Name.Text
    
    ' 注意给SQL里的文本值加单引号，避免语法错误
    strInsert = "INSERT INTO [SEMP Documentation] (Staff_Name) VALUES ('" & staffNameText & "');"
    MsgBox strInsert
    Debug.Print staffNameText
    
    ' 执行SQL要用正确的变量strInsert，不是拼写错误的staffname
    db.Execute strInsert, dbFailOnError
    Set db = Nothing ' 释放数据库对象
End Sub

方法2：直接通过.Column指定列获取名称 #

如果你的组合框列表里，人员名称在第2列（Access的列索引从0开始计数），直接用Column(1)就能拿到对应的值，这个方法不需要焦点，更稳妥：

Private Sub Command134_Click()
    Dim strInsert As String
    Dim db As DAO.Database
    Set db = CurrentDb()
    
    ' 假设人员名称在组合框的第2列（索引1），根据你的实际列位置调整数字
    Dim staffNameText As String
    staffNameText = Staff_Name.Column(1)
    
    strInsert = "INSERT INTO [SEMP Documentation] (Staff_Name) VALUES ('" & staffNameText & "');"
    MsgBox strInsert
    Debug.Print staffNameText
    
    db.Execute strInsert, dbFailOnError
    Set db = Nothing
End Sub

额外提醒：原代码的几个关键错误 #

• SQL语句里漏了文本值的开头单引号，括号位置也不对，会直接导致语法报错
• db.Execute里误用了未定义的staffname变量，实际应该用你构建好的strInsert
• 最好给db变量声明具体的DAO.Database类型，避免隐式变体类型带来的问题

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