Question

查看以下代码，如何使用变量usern接收用户的行号？我可以看到使用DCount函数的用户是否存在。收到行号后，我想使用DoCmd.GoToRecord导航到该条目。 GoToRecord本身已经有效。我只是找不到接收行号的方法......

Private Sub Form_Current()

Dim usern As String
Dim count As Integer

usern = Environ("Username")

count = DCount("name_", "Fragebogen", "name_='" & usern & "'")

DoCmd.GoToRecord acDataForm, "Fragebogen", acGoTo, 3

End Sub

Answer 1

您是否尝试过FindFirst方法？

在动态集 - 或 - 快照类型的Recordset中找到第一条记录满足指定条件并使其记录的对象目前的记录。

Dim rs As Recordset
Set rs = Me.RecordsetClone

rs.FindFirst "name_ = '" & Environ("Username") & "'"

If Not rs.NoMatch Then
    Me.Bookmark = rs.Bookmark
Else
    MsgBox "No match was found.", vbExclamation
Emd If

访问 - VBA - 按标准获取行号

1 个答案: