Question

我有一个包含单个字段（定义为Number）的表，我希望从表单中的文本框中插入多行。代码是：

Private Sub CmdImportID_Click()

Dim strSQL As String

  strSQL = "DELETE * FROM [Con_ID futcanc BAMB]"  
  DoCmd.RunSQL strSQL

  strSQL = "INSERT INTO [Con_ID futcanc BAMB] (con_id) VALUES (" & Me!conID & ");"   
  DoCmd.RunSQL strSQL    
 End Sub

问题是：它在文本框中使用单个数字，但是当我尝试插入多个时，我收到“运行时错误'3075'：查询表达式中的语法错误（缺少运算符）”。如何修改代码以插入更多数据？对不起，我不擅长编码vba :(

提前谢谢。

Answer 1

您编写的代码用于单行插入，它只运行一次。如果文本框中的数字存在分隔符，则通过将文本与分隔符分开并在DB中作为单独的行插入来遍历每个数字。

一般

INSERT INTO [Con_ID futcanc BAMB] (con_id) VALUES (1)

只会插入一行

INSERT INTO [Con_ID futcanc BAMB] (con_id) VALUES (1,2)是无效的声明。

编辑：

请参阅以下链接，了解分割和循环代码逻辑

Split and Loop

从文本框表单中将多行插入单个表 - Access 2010

1 个答案: