访问 - VBA - 按条件获取行号

查看以下代码，如何获取使用变量usern的用户的行号？我可以检查用户是否存在使用DCount函数可以看到。一旦收到行号，我想用它来导航到该条目使用DoCmd.GoToRecord。 GoToRecord本身已经工作。我只是无法找到接收行号的方法...访问 - VBA - 按条件获取行号

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

来源

2017-10-18 user969113

您是否试过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

来源

2017-10-18 11:40:17

刚才写了一个类似的答案。添加'Me.Bookmark = rs.Bookmark'导航到记录，然后您的答案完成。 –

@Erik von Asmuth的确，感谢您指出了这一点。 –

添加你的Me.Bookmark，它像一个魅力。感谢你们！非常感谢 – user969113

访问 - VBA - 按条件获取行号

回答

相关问题