AccessVBA サブフォームをレコードセットした内容で更新したい。

Question

実現したいこと

AccessVBAにてサブフォームにレコードセットした内容で更新したい。

こちらについては別のファイルにあるデータベースを参照する必要がある為、ADOのレコードセットで作成しております。

サンプルサイト
https://www.moug.net/tech/acvba/0040014.html

発生している問題・エラーメッセージ

コード上にあげた以下の箇所でエラーが出てしまいます。

'レコードセットをサブフォームに格納する　　↓ここでエラーになります。
Me.subFormNameShow.Form.Recordset = adoRS

該当のソースコード

'RecordSetで検索
Private Sub btnRecordSet_Click()
    
    Dim strSQL As String
    Dim adoCon As ADODB.Connection
    Dim adoRS As ADODB.Recordset
    
    Set adoCon = CurrentProject.Connection
    
    Set adoRS = New ADODB.Recordset
    
    strSQL = "SELECT * FROM T_NAMEMST WHERE ID = 2"
    
    'レコードセット取得
    adoRS.Open strSQL, adoCon, , adLockOptimistic
    
    'レコードセットをサブフォームに格納する　　↓ここでエラーになります。
    Me.subFormNameShow.Form.Recordset = adoRS
    
End Sub

試したこと

こちらの公式のような書き方も試したのですがうまくいきませんでした。
https://learn.microsoft.com/ja-jp/office/vba/api/access.form.recordset

テスト環境を揃えるのが大変だと思い、こちらに対象のAccessファイルをアップロードしておきました。(10/25まで使えます)
https://datadeliver.net/receiver/file_boxes/e51f930832c44c858bf20ce7979b9e1e/rc/d5a1b37c23e04dcc982eee948be66e7c

こちらについて詳しい方いらっしゃいましたらご教授願います。
よろしくお願いいたします。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

取り合えず Set が必要です。

 Set Me.subFormNameShow.Form.Recordset = adoRS

あと、CursorLocation を adUseClient に設定しておかないと更新できなかったと思います。

 adoRS.CursorLocation = adUseClient 

上記でうまく行かない場合は、エラー番号とエラーメッセージを質問に追記してください。

こちらについては別のファイルにあるデータベースを参照する必要がある為、

とのことですが、提示のコードでは別ファイルではなく、自身のテーブルを参照しているようですが。

Comments

[ataru2222]

```accessVBA
Private Sub btnRecordSet_Click()

Dim strSQL As String
Dim adoCon As ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim strPath As String

'Set adoCon = CurrentProject.Connection
Set adoCon = New ADODB.Connection

strPath = "C:\Users\user\Documents\データベース5.accdb"

'64bit版と32bit版を分ける
#If Win64 Then
adoCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath
#Else
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath
#End If

strSQL = "SELECT * FROM T_NAMEMST WHERE ID <> 2"

Set adoRS = New ADODB.Recordset
adoRS.CursorLocation = adUseClient '←これがないとダメ

'レコードセット取得
adoRS.Open strSQL, adoCon, , adLockOptimistic

'レコードセットをサブフォームに格納する
Set Me.subFormNameShow.Form.Recordset = adoRS

Set adoRS = Nothing
Set adoCon = Nothing
End Sub
```

こちらでできました。
かなり困っておりましたので、本当に助かりました。
解答していただきましてありがとうございました。