AccessのVBAでSQLのLTRIM関数を使い文字列の先頭のスペース（空白）を削除し返す｜フォーム実行例

数値を文字に変換すると先頭に空白が付きますが、このような場合空白を削除したい場合がよくあります。
このような時、このLTRIMを使います。

例： SQL = " SELECT LTRIM(フィールド名) FROM テーブル名 "
又は、
例： SQL = " SELECT LTRIM(フィールド名) AS 名前 FROM テーブル名 "

半角スペースでも全角スペースでも削除されます。

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    SQL = "SELECT ニュース,LTRIM(ニュース) 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

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