使用组合框中的值编辑从列表框中选择的记录中的字段

Question

我正在研究一种跟踪办公室中某些纸质表格工作流程的方法。到目前为止，我有一个带有列表框的表单，该表单将显示所有不完整的文书工作。为了跟踪实际文书工作的移动位置，我想突出显示列表中的记录并将它们分配给员工-从tblForms中的当前值编辑字段“ QCByName”（通常为空白）到从tblStaff中提取选项的组合框中选择的值。

具有列表框和组合框选择的表单：

不过，我在使用命令按钮的VBA代码时遇到了麻烦。我有一个不错的工作示例，该示例来自其他人设计的旧数据库，但未能成功将代码适应我的类似情况。 This post似乎很有帮助，但我无法正常工作。

如果我尝试将列表框中的一行分配给某人，则会收到运行时错误：

3075：查询表达式'ID = 15T362'中的语法错误（缺少运算符）

其中15T362是我选择的FormNumber行。我认为该列表框是未绑定的，但是主键和第一个（隐藏的）字段是ID。

这是当前代码。有什么想法我做错了吗？非常感谢。

Private Sub cmdAssigntoQC_Click()
    Dim strSQL As String
    Dim tblForms As Recordset

If IsNull(Combo5) Then
    MsgBox "No Changes Made"

Else
    strSQL = "SELECT * FROM [tblForms] WHERE ID=" & List0
    Set tblForms = CurrentDb.OpenRecordset(strSQL)
    tblForms.Edit
    tblForms![QCByName] = Me.Combo5
    tblForms.Update
    tblForms.Close

Set tblForms = Nothing

Forms!frmOutstanding.L0Req
End If
End Sub

Answer 1

要从选定的列表框项目中提取值，必须使用Column属性并通过其索引引用列，索引以0开头：const data = { chart: { caption: "Fusion Chart", "baseFont": "Verdana", "baseFontSize": "11", xaxisname: "Values", yaxisname: "Percentage(%)", theme: "candy", // here you need to change the theme use3DLighting: 0 },

不需要使用Me.List0.Column(0)限定词，但这会触发智能提示。