访问 - 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