例: SQL = " SELECT LCASE(フィールド名) FROM テーブル名 "
例: SQL = " SELECT LCASE(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
アルファベットの大文字以外は無関係です。
サンプルソフト
[実行時の画面]
「アルファベットの大文字を小文字に変換する関数 LCASE関数」ボタンをクリックすると、
ニュースデータベーステーブルのニュースフィールド内のアルファベットの大文字を小文字に変換し表示します。
■実行画面
「FIA会長 過半数の信任獲得」 結果 「fia会長 過半数の信任獲得」
「「Windows Live」APIを公開」 結果 「「windows live」apiを公開」
「Intel P45搭載PCが発売解禁 」 結果 「intel p45搭載pcが発売解禁 」
[ニューステーブル]
データID ニュース
10 FIA会長 過半数の信任獲得
11 「Windows Live」APIを公開
13 Intel P45搭載PCが発売解禁
[コード]
Option Compare Database
Private Sub コマンド8_Click()
Dim SQL As String
Dim rs As Recordset
SQL = "SELECT ニュース,LCASE(ニュース) 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
サンプルソフトのダウンロード