2

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

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

先感谢您。

4

2 回答 2

3

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

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

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

于 2013-07-31T01:24:52.683 回答
2

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

 If Me.CurrentRecord = Me.Recordset.RecordCount Then
       DoCmd.GoToRecord , , acFirst
   Else
       DoCmd.GoToRecord , , acNext
   End If
于 2014-03-23T18:23:41.223 回答