Question

运行代码之后就提示INSERT INTO的语句的语法错误

Private Sub 保存新货号_Click()
On Error GoTo Err_保存新货号_Click
Dim STemp As String
If IsNull(Me![货号]) = True Then

MsgBox "请输入“货号”，该文本框不能为空！", vbOKOnly, "输入“货号”"
Me![货号].SetFocus
ElseIf IsNull(Me![颜色]) = True Then
MsgBox "请输入“颜色”，该文本框不能为空！", vbOKOnly, "输入“颜色”"
Me![颜色].SetFocus
ElseIf IsNull(Me![尺寸]) = True Then

MsgBox "请输入“尺寸”，该文本框不能为空！", vbOKOnly, "输入“尺寸”"
Me![尺寸].SetFocus
ElseIf IsNull(Me![工艺1]) = True Then

MsgBox "请输入“工艺1”，该文本框不能为空！", vbOKOnly, "输入“工艺1”"
Me![工艺1].SetFocus
ElseIf IsNull(Me![单价1]) = True Then

MsgBox "请输入“单价1”，该文本框不能为空！", vbOKOnly, "输入“单价1”"
Me![单价1].SetFocus
ElseIf IsNull(Me![单价]) = True Then

MsgBox "请单击“汇总单价”，该文本框不能为空！", vbOKOnly, "输入“单价”"
Me![单价].SetFocus
Else
STemp = "INSERT INTO 产品信息表"
STemp = STemp & "(货号,颜色,尺寸,工艺1,单价1,工艺2,单价2,工艺3,单价3,工艺4,单价4,工艺5,单价5,单价)"
DoCmd.RunSQL STemp
End If
Exit_保存新货号_Click:
Exit Sub
Err_保存新货号_Click:
MsgBox Err.Description
Resume Exit_保存新货号_Click
End Sub

Answer 1

STemp = "INSERT INTO 产品信息表 " ' 这后面加个空格
STemp = STemp & "(货号,颜色,尺寸,工艺1,单价1,工艺2,单价2,工艺3,单价3,工艺4,单价4,工艺5,单价5,单价)"
STemp = STEmp & VALUE('" & Me![货号] & "','" & Me![颜色] & "','" & Me![尺寸] & "','" & Me![工艺1] & "','" & Me![单价1] & "','" & Me![工艺2] & "','" & Me![单价2] & "','" & Me![工艺3] & "','" & Me![单价3] & "','" & Me![工艺4] & "','" & Me![单价4] & "','" & Me![工艺5] & "','" & Me![单价5] & "','" & Me![单价] & "'')" '再加上这句给出值,不知道你的字段类型,都按字符串处理的.

追问

运行之后还是现实语法错误

追答

STemp = "INSERT INTO 产品信息表 " & STemp & "(货号,颜色,尺寸,工艺1,单价1,工艺2,单价2,工艺3,单价3,工艺4,单价4,工艺5,单价5,单价) VALUES('" & Me![货号] & "','" & Me![颜色] & "','" & Me![尺寸] & "','" & Me![工艺1] & "','" & Me![单价1] & "','" & Me![工艺2] & "','" & Me![单价2] & "','" & Me![工艺3] & "','" & Me![单价3] & "','" & Me![工艺4] & "','" & Me![单价4] & "','" & Me![工艺5] & "','" & Me![单价5] & "','" & Me![单价] & "'')"

试试这样,刚刚确实少打了个引号,还有一个关键词错误,现在应该没有语法上的错误了.

Answer 2

"INSERT INTO 产品信息表(货号,颜色,尺寸,工艺1,单价1,工艺2,单价2,工艺3,单价3,工艺4,单价4,工艺5,单价5,单价)"
你出来是这个样子的，请在中间加空格 ****产品信息表 (货号,*****

Answer 3

怀疑你的几l个z参数中7有要转义w的字符。把你的sql语句发上s来看看。 f°├g哀恣g哀恣owㄑik茅姬f°├jx摩