Access - VBA - 按条件获取行号

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方法吗？

定位动态集中的第一条记录 - 或 - 快照类型的记录集中 满足指定条件并记录的对象 当前记录。

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