アクセス - 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