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

フィールド名に別名を付けるには「AS」を使う

SELECT フィールド名 AS 別名 FROM テーブル名
フィールド名に別名を付けるには「AS」を使います。

例：SQL = "SELECT name AS 名前 FROM T_顧客"
nameフィールドを名前に列名を変更しています。

Home　

SQL Tips

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

［実行後の顧客一覧画面］
ハンドリングマシン,自動運搬,ネジ締め機,攪拌機を抽出

［T_assetsテーブル］
T_assets( 資産管理 )テーブル

［コード］
Option Compare Database

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

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

Home　

SQL Tips