如何遍历子表单的记录，VBA Access 2010答案

【问题标题】：how to loop through the records of a subform, VBA Access 2010如何遍历子表单的记录，VBA Access 2010
【发布时间】：2013-07-31 01:14:00
【问题描述】：

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

 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 属性没有查看正确的表格或表格，但我们将不胜感激任何答案。

提前谢谢你。

【问题讨论】：

您的代码指的是 rstEmployees 而不是 rstorder。但是，您应该发布您的实际代码。

标签： vba

【解决方案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

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

【讨论】：

出于对@ObieMD5 的兴趣，我们可以使用[Forms]![Customer]![Order Subform].Form.NewRecord 来检查我们是否已经到达最后一行——但前提是子表单有新的记录/行。
@AndyG 是的，您可以使用if [Forms]![Customer]![Order Subform].Form.NewRecord = True，但问题是他想从最后一条记录直接转到第一条记录。您的方式将显示一个新的空白记录，但会避免 2105 错误。
我们可以在检查NewRecord之前移动到下一条记录，然后移动到第一条记录。但我只是出于兴趣才提到它。

【解决方案2】：

这是我在点击最后一条记录后循环到第一条记录的方法。把它放在VBA中。如果使用上一个按钮，只需执行相反的操作。

 If Me.CurrentRecord = Me.Recordset.RecordCount Then
       DoCmd.GoToRecord , , acFirst
   Else
       DoCmd.GoToRecord , , acNext
   End If

【讨论】：