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

テーブル名からフィールド名の全レコードを取り出す

SELECT フィールド名 FROM テーブル名
テーブル名からフィールド名の全レコードを取り出します。

Home　

SQL Tips

サンプルソフト
「実行」ボタンをクリックすると、顧客テーブルの名前一覧を表示します。

［実行後の顧客一覧画面］
木下,野田,山口,内藤　抽出

［T_顧客テーブル］
I

［コード］
Option Compare Database

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

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

Home　

SQL Tips