accessにおいて、vbaの値をメインフォームに出力したい

Question

前提

accessのvbaについて質問します。
vbaを操作して、sqlを動かし、テーブルのデータを取得するところまではできました。しかしそこからメインフォームに表形式で出力することができません

実現したいこと

vbaで取得したデータをメインフォームに表形式で出力したい

該当のソースコード

Option Compare Database
Private Sub 検索_btn_Click()
'変数宣言
Dim db As DAO.Database
Dim rs As DAO.Recordset

'現在開いているデータベースに接続する。
Set db = CurrentDb
Dim i As Integer

'SQL文でT_商品を開くためのレコードセットを作成する。
Set rs = db.OpenRecordset("SELECT * FROM sample", dbOpenDynaset)

'先頭レコードに移動する。
rs.MoveFirst

i = 1
'ループにより順番にレコードの値を表示する。
Do Until rs.EOF = True
    'Me!sample = Me!sample & rs!馬名
    Debug.Print i & ": " & rs!馬名
    rs.MoveNext

    i = i + 1
Loop

'レコードセットを閉じる。
rs.Close
Set rs = Nothing

'データベースの接続を閉じる。
db.Close
Set db = Nothing
End Sub

Answer 1

質問のコードはVBAでデータ操作をするためのものです。
フォームに表示させてユーザーに操作させるという用途には使えません。

テーブルデータを表形式で表示するフォームは、フォームウイザードで簡単に作成できます。
一からデザインビューで作成する方法もありますが(なれればこちらの方が自分の思い通りのものを作成できます。)、
最初はウィザードで作成してどのようなものか理解することから始めるのがいいでしょう。

ウィザードでの作成法は下記を参照してください。
表形式フォーム作成

Comments

[qyx1234]

回答ありがとうございます。
フォームでボタンを設置し、押したら表示するデータを切り替えたいです。例えば、並び替えのコンボボックスを選択した状態で検索ボタンを押したら出力できるみたいに。
そのためにvbaを操作して出力できるデータを切り替えなければいけません。
ファームウィザードでは、テーブルは出力できるのですが、ボタンを配置してボタンに応じたデータを切り替えることはできません。
Debug.PrintやMsgBoxみたいにメインフォームにも出力したいです

[hatena19]

フォームの、Filterプロパティ、OrderByプロパティを設定することによって、データの抽出（切り替え）、並べ替えが簡単にできます。

ウィザードで作成した帳票フォームのヘッダーにコンボボックスや検索ボタンを配置して、その更新後処理やクリック時のイベントにVBA（あるいはマクロ）を設定すれば可能です。

Accessフォームでフィルターを使って特定のレコードのみ表示する方法
https://access-skill.com/form-filter/

■T'sWare Access Tips #315 ～レコードの並べ替え（Sortプロパティ）～
https://tsware.jp/tips/tips_315.htm

[qyx1234]

クリックイベントを押された時に、コンボボックスの値やテキストボックスの値をvbaでFilterプロパティ、OrderByプロパティに出力するって事でしょうか。
だとしたらどのようにvbaを書けばいいのでしょうか

[hatena19]

上記のリンク先にサンプルコードがあります。

抽出する場合は、
Me.Filter = "抽出条件" 'SQLのWHERE句の式と同じ
Me.FilterOn = True

並べ替えの場合
Me.OrderBy = "式" 'SQLのODER BY句の式と同じ
Me.OrderByOn = TrueOn = True

[qyx1234]

ありがとうございます。
最後にもう一ついいでしょうか。
質問には書いていなかったのですが、上記のURLだとorderbyやwhere専用な気がします。
groupbyや結合といったsqlを使いたい時はどの値を変更したらいいでしょうか

[hatena19]

フォームウィザードで作成するときに、クエリを元に作成することも可能です。そこで、結合やgroupbyを設定するのが通常の設計です。テーブルの正規化ができているならそれで足りるはずです。

そうでない場合、フォームのレコードソースプロパティにSQLを直接設定することも可能です。

[qyx1234]

vbaで制御しなければいけませんが、どのように書けばいいのでしょうか

[hatena19]

どうしても必要なら、上でも書きましたが、VBAでフォームのレコードソースにSQLを設定すればいいでしょう。

ただ、フォームの機能について充分理解できていない印象ですので、まずは入門書か入門サイトで基本を学習するほうが結局早道だと思います。

その上でいろいろ分からない点があったら、新規に質問をたてて、何をしたいのか具体的に提示して質問してください。

[syosinsya109]

ありがとうございます。
access始めた初心者なのでなれなくて沢山質問してしまうかもですがその時はよろしくお願いいたします。