vba - 如何遍历子窗体的记录，VBA Access 2010

Question

这是我的问题:我在主窗体中有一个子窗体。主窗体包含客户编号，子窗体包含该客户的订单。所以一个客户可能有多个订单。我想创建一个按钮，单击该按钮会移动到该客户的下一个订单。我对代码执行此操作没有问题:

 Private Sub next_comp_Click()
 [Forms]![Customer]![Order Subform].SetFocus
 DoCmd.GoToRecord , , acNext
  end sub

我遇到问题的地方是当我到达该客户的最后一个订单时。我希望它循环回到第一个订单。为此，我使用了这段代码:

Private sub next_comp_click()
[Forms]![Customer]![Compressor Subform].SetFocus
Dim dbcustomer As Database
Dim rstorder As Recordset

Set dbcustomer = CurrentDb
Set rstorder= dbcustomer.OpenRecordset("orders", dbOpenSnapshot)
  With rstEmployees
    If .AbsolutePosition = - 1 Then
    MsgBox (.RecordCount)
    'DoCmd.GoToRecord , , acFirst
    Else
    DoCmd.GoToRecord , , acNext
    End If
  End With
 end sub

我使用 MsgBox 函数进行调试以确定我在哪条记录上(最终我希望它循环回到第一条记录，如注释掉的代码所示)，但出于某种原因，它告诉我我在总是在第一条记录上，即它告诉我 RecordCount 是 1。这不应该是这样，因为我正在处理的大多数记录都有多个订单。如果我将条件更改为 If .AbsolutePosition = 3 之类的条件，它会将记录移动到下一个，直到我到达最后一个或空记录，如果我从那里单击下一个，它会给我运行时错误“2105”你无法转到指定的记录。

我认为问题是 .AbsolutePositon 属性没有查看正确的表格或表格，但我们将不胜感激。

提前谢谢你。

Answer 1

如果您的表单是有界的，您甚至不需要记录集的东西。只需在按钮中使用以下代码:

Private sub next_comp_click()
   [Forms]![Customer]![Order Subform].SetFocus
   If [Forms]![Customer]![Order Subform].Form.CurrentRecord >= [Forms]![Customer]![Order Subform].Form.Recordset.RecordCount Then
       DoCmd.GoToRecord , , acFirst
   Else
       DoCmd.GoToRecord , , acNext
   End If
End sub

我建立了一个访问数据库来复制它，只是为了确保代码准确无误。您应该能够复制和粘贴它，它会起作用。