ACCESS ボタンの内容をサブフォームに一覧表示したい

Question

よろしくお願いいたします。

下記コード内容を、フォームのボタンに設定しています。
dbの値は取得できているのですが、この内容を、ボタンを押すとサブフォームに一覧表示できるようにしたいです。
どのようなコードを書けばよいのか、また、このプロシージャと、サブフォームのプロシージャには何を書けばよいのか…。。
調べてみたのですがピンとくるものが無かったので
何卒ご教示のほどよろしくお願いいたします。

Private Sub test_Click()
Dim dbCn As ADODB.Connection
Dim dbRs As ADODB.Recordset
Dim dbCom As ADODB.Command

Set dbCn = New ADODB.Connection 

dbCn.Open "Provider=*：;Password=*;Persist Security Info=True;User ID=e**;Initial Catalog=*;Data Source=**" 

Set dbCom = New ADODB.Command 

dbCom.ActiveConnection = dbCn 
 dbCom.CommandText = "select * from テーブル名" 

Set dbRs = New ADODB.Recordset 
 Set dbRs = dbCom.Execute 

'確認処理？ 

dbRs.Close 
 Set dbRs = Nothing 

dbCn.Close 
 Set dbCn = Nothing 

Set dbCom = Nothing 

End Sub

Comments

[twck]

３日間のあいだにほぼ同じ質問を４回もしている。
https://teratail.com/questions/28587
https://teratail.com/questions/28639
https://teratail.com/questions/28720
https://teratail.com/questions/28755
理解しようとしていないのか？
しかも解決済みにしないで新たに同じ質問を上げるのは回答者に対して失礼。

Answer 1

類似の質問をされているようなので同じ回答になりますが、サブフォームのRecordsetプロパティにdbRsをセットすることで実現できると思います。

Set サブフォーム.Recordset = dbRs

https://msdn.microsoft.com/ja-jp/library/office/ff835419.aspx

ただ手元にAccessしかないのでCurrentProjectで試しただけですが、ADOがカプセル化してくれるので同じように扱えるかと思います。

それと余談ですが、コードをバックスラッシュ三つ(```)で囲むと、色分けできますよ。

Sub Test()
    MsgBox "Hello, World"
End Sub

回答者がみんな手元にVBAがあって、コードをコピペで実行してくれるとは限らないので、こういう機能を活用して見やすく工夫すると回答が集まりやすいかもしれません。

Comments

[nekomura]

ありがとうございます、類似の質問の件、大変失礼いたしました。
まだエラーが出てしまいますが解決の糸口がみつかり大変感謝いたします。
色分けの件、知りませんでした。。。
ご親切にありがとうございます。