在 MS-Access 表单中显示当前记录

Question

我现在有一个代码可以转到下一条记录，但在表单中它不会显示下一条记录，只显示 0。您可以在表格中看到代码正在运行并转到下一条记录数量下降了。另一个问题是，当切换到下一条记录并且该记录为 0 时，我的 .Update 上会出现一个突出显示的错误，当我需要它转到下一个时。它没有说错误，我只是假设当它被突出显示时，问题就来自于此。它基本上就像代码没有重新启动一样。这是我现在的代码：

Private Sub ItemCode_Dirty(Cancel As Integer)
Dim Db As DAO.Database
Dim rs As DAO.Recordset

Set Db = CurrentDb

Set rs = Db.OpenRecordset("Select WrkordNum, ToGo from WorkOrders where ItemCode =" & Me.ItemCode)

With rs
    If Not .EOF Then
        If !ToGo <= 0 Then
            .MoveNext
        End If
        .Edit
        !ToGo = !ToGo - 1
        .Update

    End If
End With

End Sub

如何让下一条记录显示在我的表单中，而不仅仅是显示 0？我可以在我的代码中添加什么让它重新开始，这样我就可以处理表格而不仅仅是一条记录？

Answer 1

您打开了一个新记录集。这与您当前的形式完全没有关系。您可以从表单外部执行此操作。您甚至可以在 Excel 中执行此操作。

如果你想与表单交互，你必须使用表单方法。

如果您只想转到下一条记录，您可以使用如下代码：

If Me.CurrentRecord < Me.Recordset.RecordCount Then
    DoCmd.GoToRecord , , acMoveNext
End If

如果您想将表单移动到与新记录集相同的记录，您可以这样做：

Private Sub ItemCode_Dirty(Cancel As Integer)

    Dim Db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set Db = CurrentDb
    
    Set rs = Db.OpenRecordset("Select WrkordNum, ToGo from WorkOrders where ItemCode =" & Me.ItemCode)
    
    With rs
        If Not .EOF Then
            If !ToGo <= 0 Then
                .MoveNext
            End If

            .Edit
            !ToGo = !ToGo - 1
            .Update

            Me.CurrentRecord = rs.AbsolutePosition
        End If
    End With
End Sub

最后，如果您想使用当前记录集而不是打开新记录集：

Private Sub ItemCode_Dirty(Cancel As Integer)
    With Me.Recordset
        If Not .EOF Then
            If .ToGo <= 0 Then
                .MoveNext
            End If

            .Edit
            .ToGo = .ToGo - 1
            .Update
        End If
    End With
End Sub