MS Access：SQL语句“UPDATE”给出模糊错误3144“UPDATE语句中的语法错误”

Question

我目前正在运行链接到表格的表单，其中表单中显示的控件之一依赖于另一个控件。 具体来说，它是一个名为机器挖掘的领域，需要是现场手挖掘中用户输入百分比的剩余百分比。 这些字段属于从名为Excavation Type的形式的另一个控件中指定的特定记录。 例如，如果我输入30％进入手工挖掘，则机器挖掘需要为70％。 我已经创建了一个代码，它将在VBA中使用RunSQL方法在Hand Excavation控件中执行AfterUpdate事件时将其存储在基础表中：

Private Sub Text_HandExcvPerc_AfterUpdate()

DoCmd.RunSQL ("UPDATE tbl-ExcavationType SET [Machine Excavation] = 1 - [Hand Excavation] WHERE [Excavation Type] = Text_ExcvType.Value;") End Sub

tbl-ExcavationType是链接到表单的表， Text_ExcvType.Value是包含当前记录标识符的文本框控件。 有人可以评论我的DoCmd.RunSQL的语法吗？ 我一直在收到错误。

Answer 1

你有几个问题：

1. 您需要将表名包装在括号中，因为它包含- 。
2. 您需要将文本值括在单引号（ ' ）或双引号（ " ）中。
3. 您需要将Text_ExcvType.Value的值而不是字符串"Text_ExcvType.Value"到查询中。

我测试了以下工作：

Private Sub Text_HandExcvPerc_AfterUpdate()
    DoCmd.RunSQL "UPDATE [tbl-ExcavationType] SET [Machine Excavation] = 1 - [Hand Excavation] WHERE [Excavation Type] = '" & Text_ExcvType.Value "';"
End Sub

Answer 2

DoCmd.RunSQL ("UPDATE [tbl-ExcavationType] SET [Machine Excavation] = " & _
    "1 - [Hand Excavation] WHERE [Excavation Type] = """ & Text_ExcvType.Value & """;")

请注意，文本框值周围有三个引号。 Access使用双引号而不是单引号作为字符串。 因为您在字符串中输入它，所以必须使用两个双引号来表示字符串的单引号，然后使用另一个双引号来断开字符串以连接您的值。 系统看到的将是有效的：

UPDATE [tbl-ExcavationType] SET [Machine Excavation] = 1 - [Hand Excavation] WHERE [Excavation Type] = "My Data Value";

Answer 3

你在这里看到的是一个计算字段：即[机器挖掘]总是1 - [手工挖掘]所以我不明白为什么你需要存储它。 这就是说你需要用名为Text_ExcvType的控件中的实际值替换单词“Text_ExcvType.Value”，并且当它在语音标记内时它不能这样做。 尝试

dim strsql as string

strsql = "UPDATE tbl-ExcavationType SET [Machine Excavation] = "

strsql = strsql & "1 - [Hand Excavation] WHERE [Excavation Type] = '"

strsql = strsql & Text_ExcvType.Value & "';" 

DoCmd.RunSQL strsql

这允许访问首先评估Text_ExcvType.Value，将结果放入字符串然后执行sql这样做也允许你在调试中观察字符串构建以找出它出错的地方