匹配查询中找到的数据

【问题标题】：Match data found in a query匹配查询中找到的数据
【发布时间】：2017-08-12 21:42:15
【问题描述】：

我需要创建一个 VBA 代码来计算我创建的查询中的数据是否匹配。我发现很难开始编写代码。

我开始做的是：

Private Sub Analyse_Click()
Dim row As Long
With Query("qry_test1").Range((qry_test1Range))

    For row = 1 To .rows.Count

    If .Cells(row, AccountingPeriodCol).Value Like AccountingPeriodCriteria

    Debug.Print .Cells(row, ValueCol)

   End If
End Sub

它是错误的，因为出现错误的参数数量或无效的属性分配。

能不能详细解释一下问题

【问题讨论】：

您发现开始编写代码很困难？

标签： vba ms-access compiler-errors criteria matching

【解决方案1】：

您在代码中得到的是 Excel-VBA，除了您将 Sheets("WorksheetName") 替换为 Query("qry_test1")。

这行不通。对于这样的东西，你想使用 SQL。

阅读tutorial 了解基本语法。
Create → Query Design → SQL View。

编写您的 SQL。类似于

SELECT * 
FROM qry_Test 
WHERE AccountingPeriod = 'your Criteria'`

应该做你想做的。

（可选）将其包装到 VBA 中

【讨论】：

感谢您的及时回复，非常感谢:)