如何获取此 SQL 查询以查看 VBA 选择？

Question

我正在尝试在 Microsoft Access 查询设计器中编写一个查询，以查看我的 VBA 代码在表中所做的选择。

基本上我有以下 VBA 循环，它沿着表 TBL_ForQB 中的客户列向下移动，如果客户不同，则执行查询“QB_Make_Model”，然后运行不同的查询并且循环停止。

主要问题：

如何让“QB_Make_Model”看到 VBA 代码所在的客户，目前使用我的代码它只是插入来自所有客户的信息。

QB_Make_Model 查询：

INSERT INTO InvoiceLine ( InvoiceLineDesc, FQSaveToCache )
SELECT DISTINCT t.Make_Model, 1
FROM TBL_ForQB AS t;

VBA 循环：

Dim dbs As Database
Set dbs = CurrentDb

Dim rst As Recordset
Set rst = dbs.OpenRecordset("TBL_ForQB")

Dim cust As String
Stop

rst.MoveFirst

Dim fcust As String
fcust = rst!Customer
MsgBox rst!Customer

Do Until rst.EOF
    cust = rst!Customer
    If cust = fcust Then
        DoCmd.SetWarnings False
        MsgBox "Same Customer"
        DoCmd.OpenQuery "QB_Make_Model"
    Else
        DoCmd.OpenQuery "QB_Invoice_PK"
        MsgBox "Diffeent Customer, I have Stopped and Sent to QB!"
        'fcust = rst!Customer
        'DoCmd.OpenQuery "QB_Make_Model_PK"
        'DoCmd.OpenQuery "QB_Invoice_PK"

    End If
    rst.MoveNext
Loop

新问题

@Parfait 的答案似乎工作正常，现在的问题是：

假设表“TBL_ForQB”中有两条相同的客户记录，使用新参数查询“QB_Make_Model”匹配客户名称，VBA 执行它。问题是它发送“TBL_ForQB”的 Make_Model 列中与客户名称匹配的所有行。并且与同名客户的次数一样多。

例如：

我有一个名为“Customer1”的客户，它有 2 条记录，每条记录都包含表“TBL_ForQB”中的一条 Make_Model 记录（每条记录）。新的 VBA 代码将运行并执行查询“QB_Make_Model”，它将匹配客户参数但每次有客户记录时都会插入“QB_Make_Model”的两条记录。

看到问题了吗？

Answer 1

由于您无法将客户作为参数传递给DoCmd.OpenQuery，您将需要另一种方法，例如在数据表视图中打开报告或表单

Dim filter AS String

filter = "Customer=""" & fcust & """" 'Assuming String type
DoCmd.OpenForm "frmMakeModel", View:=acFormDS, WhereCondition:=filter, DataMode:=acFormReadOnly

或者如果Customer 是Long id：

filter = "Customer=" & fcust 'Assuming Long type

然后，表单或报表的记录源必须是适当的查询，在 SELECT 列表中包含 Customer 列。

Answer 2

您可以尝试修改查询以接受参数，并使用DoCmd.SetParameter 传递该参数。

带参数的修改查询：

PARAMETERS pCustomer CHAR(255);
INSERT INTO InvoiceLine ( InvoiceLineDesc, FQSaveToCache )
SELECT DISTINCT t.Make_Model, 1
FROM TBL_ForQB AS t
WHERE Customer = pCustomer;

修改VBA传递参数：

Dim dbs As Database
Set dbs = CurrentDb

Dim rst As Recordset
Set rst = dbs.OpenRecordset("TBL_ForQB")

Dim cust As String
Stop

rst.MoveFirst

Dim fcust As String
fcust = rst!Customer
MsgBox rst!Customer

Do Until rst.EOF
    cust = rst!Customer
    If cust = fcust Then
        DoCmd.SetWarnings False
        MsgBox "Same Customer"
        DoCmd.SetParameter "pCustomer", cust
        DoCmd.OpenQuery "QB_Make_Model"
    Else
        DoCmd.OpenQuery "QB_Invoice_PK"
        MsgBox "Diffeent Customer, I have Stopped and Sent to QB!"
        'fcust = rst!Customer
        'DoCmd.OpenQuery "QB_Make_Model_PK"
        'DoCmd.OpenQuery "QB_Invoice_PK"

    End If
    rst.MoveNext
Loop

您可以在this answer 中阅读有关在 VBA 中使用参数的更多信息。我推荐 DAO 方法而不是依赖 DoCmd 语句的方法。

Answer 3

还考虑将客户名称参数传递给操作查询的QueryDefs 方法，不需要包括DoCmd.SetWarnings 在内的DoCmd 调用。

SQL （使用 PARAMETERS 并为客户添加列）

PARAMETERS C_Param TEXT(255), P_Param LONG;
INSERT INTO InvoiceLine (InvoiceLineDesc, FQSaveToCache )
SELECT DISTINCT t.Make_Model, 1
FROM TBL_ForQB AS t
WHERE Customer = C_Param
AND ProjectID = P_Param;

此外，您可能希望在 InvoiceLine 表中维护 Customer 列（最好是其 ID），该表可以由相同的参数填充。

VBA

Dim dbs As Database
Dim qdef As QueryDef                  ' NEW OBJECT
Dim rst As Recordset
Dim cust As String, fcust As String

Set dbs = CurrentDb
Set qdef = CurrentDb.QueryDefs("QB_Make_Model")
Set rst = dbs.OpenRecordset("TBL_ForQB")

rst.MoveFirst    
fcust = rst!Customer
MsgBox rst!Customer

Do Until rst.EOF
    cust = rst!Customer
    If cust = fcust Then        
        MsgBox "Same Customer"
        qdef!C_Param = cust 
        qdef!C_Param = rst!ProjectID 
        qdef.Execute dbFailOnError
    Else
        dbs.Execute "QB_Invoice_PK"
        MsgBox "Different Customer, I have Stopped and Sent to QB!"
    End If
    rst.MoveNext
Loop

rst.Close 
Set rst = Nothing: Set qdef = Nothing: Set dbs = Nothing