「東雲忠太郎」の平凡な日常のできごと

2022.01.08

フォームで選択中のCurrentRecordの値を取得する方法

基本的に
Me.Recordset.Fields("USER_NAME")
でカレントレコードの値が取得できます。
クリックなどで選択すると自動でカレントレコードへ移動します。

カレントレコードのクローンを作成して操作する方法がおすすめになってきます。

Private Sub DAY_01_Click()

Debug.Print Me.Recordset.Fields("USER_NAME")

Dim rsCurrent As Recordset

Set rsCurrent = Me.RecordsetClone

' カレントレコードへ移動

rsCurrent.Bookmark = Me.Bookmark

MsgBox rsCurrent.Fields("USER_NAME")

End Sub

お気に入りの記事を「いいね！」で応援しよう

Last updated 2022.01.08 21:55:52

【毎日開催】

15記事にいいね！で1ポイント

10秒滞在

いいね! -- / --

おめでとうございます！
ミッションを達成しました。

※「ポイントを獲得する」ボタンを押すと広告が表示されます。

スマートフォン版を閲覧 | PC版を閲覧