| スポンサードリンク |
SQL = " SELECT LEN(フィールド名) FROM テーブル名 "
又は、
SQL = " SELECT LEN(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
「2007年8月ASEANと合意」の場合、15になります。
|
|
サンプルソフト
［実行時の画面］
「文字列の文字数を返す 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
|
|
ダウンロード