请帮忙看看一下代码错在哪里？为什么报错！

张　发表于：2019-01-08 10:00:00 　

Private Sub Command2_Click()

Dim str As String
'str = "insert into 表1(a) values ( '" & Me.q & "'),('" & Me.w & "')"
str = "insert into 表1(a) values (Me.q),(Me.w);"
DoCmd.RunSQL str
End Sub

Top

伊西军发表于：2019-01-08 10:02:54

看不出来考虑上传个这部分的附件

Top

朱先生发表于：2019-01-08 10:09:03

str = "insert into 表1(a) values ( '" & Me.q & "'),('" & Me.w & "')"

字段不区配

Top

西出阳关无故人发表于：2019-01-08 10:45:19

INSERT INTO ...values...的格式，access一般不支持一次插入多条记录（sql sever是可以的），只能一条一条地插入：

Dim str As String
str = "insert into 表1(a) values ('" & Me.q & "')"
DoCmd.RunSQL str

str = "insert into 表1(a) values ('" & Me.W & "')"
DoCmd.RunSQL str

如果你非要使用一次性插入多条记录，也可以用以下方法：

Dim str As String

str = "insert into 表1(a) SELECT A FROM (SELECT '" & Me.q & "' AS A FROM MSYSOBJECTS UNION SELECT '" & Me.w & "' AS A FROM MSYSOBJECTS) AS LS"
DoCmd.RunSQL str

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

请帮忙看看一下代码错在哪里？为什么报错！