AccessのVBAでSQLのSELECTを使い複数フィールドの値を抽出する｜フォーム実行例

フィールド名をコンマで区切り指定

SELECT フィールド名1,フィールド名2 AS 別名 FROM テーブル名
このようにフィールド名をコンマで区切り指定します。
順番はここで指定したフィールド順になるので、入れ替えて取り出したい時にも使用できます。

Home　

SQL Tips

サンプルソフト
「実行」ボタンをクリックすると、T_資産テーブルの資産名をテキストボックス1に、
購入日をテキストボックス2に表示します。
資産フォーム

［実行後の資産一覧画面］
資産名と購入日

［T_資産テーブル］
ID　名前購入日
10　ハンドリングマシン　 2001/03/31
11　自動運搬　 2001/03/16
13　ネジ締め機1993/06/03
16　攪拌機　　　1996/12/21

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = Null
    Me!テキスト2 = Null
    SQL = "SELECT 名前,購入日 FROM T_資産"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs![名前] & vbCrLf
        Me!テキスト2 = Me!テキスト2 & rs![購入日] & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード

Home　

SQL Tips