我有一个表,其中有一个字段(定义为数字),其中我想在一个表单中插入一个文本框中的多个行。守则是:
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:
提前谢谢你。
发布于 2015-04-01 08:32:57
您编写的代码是针对单个行插入的,它将只运行一次。如果文本框中的数字存在分隔符,则通过使用分隔符拆分文本,循环遍历每个数字,并在DB中作为分隔行插入。
一般而言
INSERT INTO [Con_ID futcanc BAMB] (con_id) VALUES (1)将只插入一行
INSERT INTO [Con_ID futcanc BAMB] (con_id) VALUES (1,2)是无效语句。
编辑:
请参阅下面的拆分和循环代码逻辑链接
https://stackoverflow.com/questions/29386097
复制相似问题