DoCmd.RunSQL 中的 VBA 变量

Question

只是一个问题。情况如下：

我有 15 个表查询，这些查询为索赔中使用的不同提交说明代码提取数据；即在提交澄清代码 5 处提取所有声明。截至目前，我有一个宏将运行所有 15 个查询，但每次我都需要输入我正在过滤的区域，因为 [What Region?] 提示我已放入条件字段。

我的问题是：

是否可以使用 VBA 使用 DoCmd.RunSQL 运行所有 15 个查询，我只需输入一次区域编号，它将应用于所有查询？

我最初的想法是让 VBA 提示我要过滤的区域，将其存储在变量中，然后在 SQL 语句中使用该变量。但我什至不确定你是否能做到这一点？提前感谢您提供的任何建议！

更新：所以在阅读了几个线程之后，我创建了一个模拟数据库来尝试一些概念，我认为我可能走在正确的轨道上？

Private Sub btnTest_Click()

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim SQLString As String

SQLString = "SELECT tblEmployees.ID, tblEmployees.Last_Name,  tblEmployees.First_Name, tblEmployees.SS_ID INTO Test" _
        & "FROM tblEmployees" _
        & "WHERE (((tblEmployees.ID)=[What number]));"

Set qdf = CurrentDb.QueryDefs("Query1")

qdf.Parameters(0).Value = InputBox("What is the ID Number")

qdf.Execute
qdf.Close

Set db = Nothing
Set qdf = Nothing

End Sub

因此，要将其应用于 15 个查询，我只需将其他变量调暗为 DAO.QueryDef 对吗？我注意到我真的确定我需要 SQLString 部分吗？另外，我注意到在运行这个模拟代码时，它需要很长时间才能创建新表。这是正常的吗？此外，如果它正在创建的表已经存在，则代码将不会运行。有没有办法让代码用新表替换现有表？对这个 VBA 有点陌生，所以感谢您的耐心等待。

Answer 1

简短的回答是肯定的，这是可能的。您想熟悉的一些关键字是“参数”，它们是带有提示和“Querydef”或查询定义的变量。

有很多文章详细介绍了如何以编程方式将参数值传递给查询。查看this 页面，了解如何完成此操作的完整概述。最值得注意的是，最后一个示例使用输入框提示用户提供参数值，这使您接近所需的值。 （即cmd.Parameters(0).Value = InputBox("Enter a country name")）

根据您的设计进行修改，最好先创建一个字符串变量并请求参数，然后在单独声明参数时使用该变量，这将允许将单个参数提交应用于所有查询。

编辑

我已经调整了您的代码，以向您展示如何去做。您必须为每个查询重复该块。

Private Sub btnTest_Click()

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strParamter As String

Set db = CurrentDb

strParamter = InputBox("What is the ID Number")

Set qdf = db.QueryDefs("Query1")

qdf.Parameters(0).Value = strParameter

qdf.Execute
qdf.Close

'Now move to next query

Set qdf = db.QueryDefs("Query2")

qdf.Parameters(0).Value = strParameter

qdf.Execute
qdf.Close

'...etc.

Set qdf = Nothing
Set db = Nothing


End Sub