使用 VBA 在 Microsoft Access 2010 表单中筛选结果

Question

我正在开发一个 Access 数据库，我需要将表格中的记录显示为数据表。 我相信我已经正确编写了执行过滤的代码，但不确定如何显示记录。

我知道我可以使用查询更轻松地执行此操作，然后使用基于这些结果的表单，但希望尽可能限制此过程，以减少数据库的整体大小。 过滤器将对公司和财务日期进行排序。

任何帮助表示赞赏。

这是我迄今为止的代码......

Option Compare Database

Sub Form_Current()
    Dim oTable As DAO.Recordset
    Dim oDataNeedsGas
    Dim dNextFiscal, dThisFiscal
    Dim iGas


'Fiscal Year turnover date, use DateValue(dNextFiscal) comparison.
    dNextFiscal = "10/1/" & Year(Date)
    dThisFiscal = "10/1/" & Year(Date) - 1

    'For Annual training by year comparison.
    'Year(DateValue(oTable!randomdate)) >= Year(Date)

Set oTable = Application.CurrentDb.OpenRecordset("tbl_main", dbOpenDynaset)    
    iGas = 0

Do Until oTable.EOF = True
    If (Year(DateValue(oTable![GasDate])) >= Year(Date) And oTable![Platoon] = "Data") Then
        `What do I do here?!!?
        iGas = iGas + 1
    End If
msgbox iGas

oTable.MoveNext

Loop  

End Sub

我知道过滤有效，因为我让它计算匹配的记录，然后显示在消息框中，但我希望能够显示匹配的记录。 我该怎么做？

Answer 1

将数据表上的 RecordSource 设为空白，然后在加载表单时运行此代码：

Option Compare Database

Private Sub Form_Load()
    Dim sSQL as String
    sSQL = "SELECT * FROM tbl_Main "
    sSQL = sSQL & "WHERE Year(DateValue(GasDate)) >= Year(Date) "
    sSQL = sSQL & " AND Platoon = 'Data'"
    Me.RecordSource = sSQL
    MsgBox "RecordCount: " & Me.RecordCount
End Sub

我通常使用 Form 的 RecordSource 和 Forms Filter 和 FilterOn 属性。 您始终可以加载显示所有记录的表单，然后过滤到您想要查看的内容。

我不明白您的问题中的这一行： “...但希望尽可能限制此过程，以减少数据库的整体大小。”

您是否正在尝试提高性能？ 您是否担心存储过多数据和表格变得过大？ 你问题的那部分不清楚。

Answer 2

您可以将子窗体的Recordset属性设置为 oTable。 使记录集成为主窗体的属性，如下面的代码所示，以便在窗体关闭时释放此引用。

Option Compare Database
Private oTable As Object

Private Sub Command2_Click()

    Set oTable = Application.CurrentDb.OpenRecordset("tbl_main", dbOpenDynaset)
    Set Me.sbfName.Form.Recordset = oTable
End Sub

Private Sub Form_Close()
    If Not oTable Is Nothing Then
        Set oTable = Nothing
    End If
End Sub

对于您的特定示例，您将基于包含日期标准的 SQL 语句OpenRecordset 。 我还没有测试这是否可以更新，就像表格一样。 （我的印象是它不会更新。）

可以这样做，但我不建议这是一种推荐的方法。 使用RecordSource属性过滤其记录要容易得多。

我想强调的是，我不会使用子窗体的Recordset 。 使用RecordSource 。 您可以将其设置为 SQL 语句和/或过滤记录。 使用Recordset属性是有问题的（而且是不必要的）。