访问从下一条记录中获取值

Question

我有一个跟踪员工 QA 数据的数据库。这是我的查询的 screenshot。突出显示的列表示每条记录的 QA 类型。我想要做的是根据此值更改显示的表单类型（它是一个查找字段，因此该值实际上是数字）我遇到问题的地方是从记录集中的下一条记录中获取 QAType 字段的值查询。这是我正在尝试的代码。

Private Sub Command55_Click()

QAType = NextRecord.[QAType].Value

Select Case QAType

    Case Is = 1
        DoCmd.OpenForm "frmRCRviewClaimEdits"
    Case Is = 2
        DoCmd.OpenForm "frmRCRviewCredits"
    Case Is = 3
        DoCmd.OpenForm "frmRCRviewFC"
    Case Is = 4
        DoCmd.OpenForm "frmRCRviewRegCall"
    Case Is = 5
        DoCmd.OpenForm "frmRCRviewRegDenials"
    Case Is = 6
        DoCmd.OpenForm "frmRCRviewRegWQ"
    Case Is = 7
        DoCmd.OpenForm "frmRCRviewRetro"
    Case Is = 8
        DoCmd.OpenForm "frmRCRviewRTE"
    Case Is = 9
        DoCmd.OpenForm "frmRCRviewStateInst"
    Case Is = 10
        DoCmd.OpenForm "frmRCRviewPC"
    Case Else
        MsgBox "The Next QA in the Query doesn't have a QA Type!"
End Select
End Sub

我在尝试 NextRecord 语句时遇到了一个错误，这是我预料到的，因为我不知从哪里把它拉出来了。谁能帮我找到一个可以完成这个的方法？

Answer 1

假设您的表单绑定到查询。

下一条记录：

If CurrentRecord <> RecordsetClone.RecordCount Then DoCmd.GoToRecord , , acNext

上一条记录：

If CurrentRecord <> 1 Then DoCmd.GoToRecord , , acPrevious

Answer 2

您可以使用以下代码，假设您的字段在记录集中也被命名为 QAType：

Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.Bookmark = Me.Bookmark
If Not rs.EOF Then
    rs.MoveNext
    QAType = rs!QAType.Value
End If

访问从下一条记录中获取值

Access Getting a value from the next record

ms-access

vba

ms-access-2010