AccessのVBAでSQLのCSTR関数を使い、数値を文字列に変換する｜フォーム実行例

例： SQL = " SELECT CSTR(フィールド名) FROM テーブル名 "
例： SQL = " SELECT CSTR(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)

小数でも整数でも文字列に変換されます。

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    SQL = "SELECT 数値,CSTR(数値) FROM 数値テーブル"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & "「" & rs(0) & "」  結果  「" & rs(1) & "」" & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

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