Question

我有以下代码：

Private Sub Command134_Click()

    Dim strInsert As String
    Set db = CurrentDb()
    strInsert = "INSERT INTO [SEMP Documentation] (Staff_Name) VALUES " & (Staff_Name.Value) & ");"
    MsgBox (strInsert)

    Debug.Print staffname
    db.Execute staffname, dbFailOnError
End Sub

Staff_Name是Microsoft Access表单上的一个组合框，其名称大约为10个人，每个人都有自己的索引。

消息框具有Staff_Name.Value调用，生成索引而不是实际文本名称。作为参考，组合框中的值是从表中提取的，其中第一列是员工的索引，第二列是员工的姓名。

用户选择他们是谁。

其次，db.Execute语句失败;表名是我试图插入的SEMP文档 - ＆＃34; Microsoft Access数据库引擎无法找到输入表＆＃34;

任何指定的帮助

Answer 1

试试这个

 "INSERT INTO [SEMP Documentation] (Staff_Name) VALUES ('" & (Staff_Name.Value) & "');"

第二个问题是

db.Execute staffname, dbFailOnError

应为db.Execute strInsert, dbFailOnError

从访问表单插入表格

1 个答案: