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

对于您的具体示例，您将OpenRecordset基于包含日期条件的SQL语句。我还没有测试过它是否可以更新，就像Table一样。（我的印象是它不会更新。）

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

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

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

2 个答案: