Question

这是我的问题：我在主窗体中有一个子窗体。主表单包含客户编号，子表单包含该客户的订单。因此，一个客户可能有多个订单。我想创建一个buttom，当点击时移动到该客户的下一个订单。使用代码执行此操作时没有问题：

 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

我构建了一个访问数据库来复制它，以确保代码是准确的。你应该能够复制并粘贴它，它会起作用。

Answer 2

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

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

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

2 个答案: