Microsoft Access插入查询

Question

访问表VirtualAllocEx有5列。我想将表单Allowances_3_15_18中的计算字段插入表格中的一列EmployeeSalary)。

每个值都会链接到表单和表格中相同的主要ID Amount。我如何在VBA中执行此操作？

我目前在属性表的JobID事件中完成了此操作。

afterUpdate

Answer 1

您需要远离SQL连接并开始使用参数。

创建一个包含两个参数的查询，即要插入的数量和JobId。查询的SQL应该是这样的：

PARAMETERS [prmAmount] Currency, [prmJobId] Long;
UPDATE [Allowances_3_15_18] SET [Amount] = [prmAmount]
WHERE JobID = [prmJobId];

然后在代码中，只需传递参数值并执行上述查询：

Sub Add()
    With CurrentDb().QueryDefs("qryName")
        .Parameters("[prmAmount]").Value = PrepareSQLNumber(Me.ProjectedDollarAmount)
        .Parameters("[prmJobId]").Value = PrepareSQLNumber(Me.JobID)
        .Execute dbFailOnError
    End With
End Sub

您需要将qryName更改为查询的实际名称。

您可以阅读有关参数查询here的更多信息。