MS Access VBA 中的 SQL 指令

Question

Chr(34) 的想法给出

MsgBox1 SELECT * FROM Emp WHERE JobNumber = BFLA
MsgBox2 "SELECT * FROM Emp WHERE JobNumber = BFLA"

看起来好像它应该在 OpenRecordset 中工作，但给出了“'SELECT ....BFLA'”的“找不到表”消息

'" & xx & "'" 的想法给出

MsgBox1 SELECT * FROM Emp WHERE JobNumber = 'BFLA'
MsgBox2 "SELECT * FROM Emp WHERE JobNumber = 'BFLA'"

这也给出了“'SELECT ....'BFLA'”的“找不到表”消息（BFLA之前的额外单引号）

有效的原始代码是：

xx = Me![JobID]

Set r1 = db.OpenRecordset("Select * from Emp where EmployeeID = " & Nz(Me![JobID]))

在这段代码中，EmployeeID 是一个数值

最新的代码是：

xx = Me![JobNumber] ' the JobNumber from the Combo box which is tested in MsgBox 1 and is correct

xxSQL = "SELECT * FROM Emp WHERE JobNumber = '" & xx & "'"

MsgBox xxSQL, vbOKOnly

xxSQL = Chr(34) & xxSQL & Chr(34)

MsgBox xxSQL, vbOKOnly ' which shows what will go into the OpenRecordset

Set r1 = CurrentDb.OpenRecordset(xxSQL)

很抱歉上次格式不正确，希望我已经掌握了消息框...

克里斯

以下为原帖

我正在尝试修复一些现有的 Access 代码，因为源应用程序已更改，而且我真的很难将变量放入 SQL 的 Select 语句中。 我已经阅读了许多与此类似的已解决问题，并在此 Select 之前、之后和中间尝试了许多“””排列，并尝试将其拆分。

xx = Me![JobNumber]
xxSQL = "SELECT * FROM Emp WHERE JobNumber = " & xx
MsgBox xxSQL, vbOKOnly
xxSQL = """ & xxSQL & """
MsgBox xxSQL, vbOKOnly
Set r1 = CurrentDb.OpenRecordset(xxSQL)

JobNumber 现在是一个 4 个字符的字符串，它从组合框中循环浏览各种作业，并为每个作业生成一个报告页面。 第一个 MsgBox 生成 SELECT * FROM Emp WHERE JobNumber = BFLA（有效代码）

表 Emp 存在并且有一个字段 JobNumber，其中还包含与 Me! 匹配的 4 个字符字符串（包括 BFLA）。 组合框。

第二个 MsgBox 生成“& xxSQL &”，然后是 Access 错误消息 - 找不到输入表或查询“'& xxSQL &”'，因为我无法正确获取双引号的数量和位置。

然后生成报告，重复 2 个 MsgBoxes，因为它在组合框列表中循环，报告很好，除了缺少 Emp 表中的内容。 除了引入 JobNumber 之外，Emp 表没有任何变化，并且 Set r1 之后的代码没有变化。

我担心这对于比我更有经验的人来说是一个 2 秒的修复，这会很尴尬，但我无法修复它！

谢谢

克里斯

Answer 1

试试这个 - 使用引号作为xx是文本：

xx = Me![JobNumber]
xxSQL = "SELECT * FROM Emp WHERE JobNumber = '" & xx & "'"
MsgBox xxSQL, vbOKOnly
Set r1 = CurrentDb.OpenRecordset(xxSQL)