AccessのVBAでSQLのLEN関数を使い文字列の文字数を返す

SQL = " SELECT LEN(フィールド名) FROM テーブル名 "
又は、
SQL = " SELECT LEN(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)

「2007年8月ASEANと合意」の場合、15になります。

Homeへ　

SQL Tipsへ

サンプルソフト
［実行時の画面］
「文字列の文字数を返す LEN関数」ボタンをクリックすると、ニュースフィールドとその文字数を表示します。

■実行画面
　・マック100円コーヒー文字数：11
　・曲がるディスプレイ量産へ文字数：12
　・パリ・ダカ来年は南米で開催文字数：13
文字長さ

［サンプルデータ　テーブル］
データID 　　ニュース
10　　マック100円コーヒー
11　　曲がるディスプレイ量産へ
13　　パリ・ダカ来年は南米で開催
サンプルテーブル

［コード］
Option Compare Database

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

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

AccessのVBAでSQLのLEN関数を使い文字列の文字数を返す｜フォーム実行例

文字列の文字数を返す LEN関数