[ACC2003] テキスト型のデータを、各単語の先頭が大文字の形式に変換する (タイトル用の大文字/小文字形式)

• 方法 1 : 組み込みの文字列変換関数を使用する
• 方法 2 : ユーザー定義関数を使用する

先頭へ戻る

サンプル テーブル MyTestTextList を作成する

1. Access を起動し、空の新しいデータベースを作成します。
2. このデータベースを MyTestDatabase として保存します。
3. 以下のフィールドを使用して新しいテーブルを作成します。

   フィールド名 : testText
   データ型 : テキスト型
   

4. このテーブルを MyTestTextList として保存します。
5. 主キーの作成を確認するメッセージが表示されたら、[いいえ] をクリックします。
6. テーブルに以下の testText サンプルをそれぞれ追加します。

   the cOw jumped Over the MOON
   THE QUICK BROWN FOX jUmped over THE lazy DOG 
   

先頭へ戻る

方法 1
組み込みの文字列変換関数を使用する

1. Access を起動します。MyTestDatabase データベースを開きます。
2. [挿入] メニューの [クエリ] をクリックします。
3. [新しいクエリ] (または [クエリの新規作成]) ダイアログ ボックスで [デザイン ビュー] をダブルクリックします。
4. [テーブルの表示] ダイアログ ボックスが表示されたら、[閉じる] をクリックします。
5. [表示] メニューの [SQL ビュー] をクリックします。
6. [クエリ1 : 選択クエリ] ダイアログ ボックスに次のコードを入力します。

   SELECT testText, STRCONV(testText,3) as  TestText_in_Proper_Case FROM MyTestTextList

7. [クエリ] メニューの [実行] をクリックします。
   
   クエリの出力は次のとおりです。

   testText					TestText_in_Proper_Case
   the cOw jumped Over the MOON			The Cow Jumped Over The Moon
   THE QUICK BROWN FOX jUmped over	THE lazy DOG 	The Quick Brown Fox Jumped Over The Lazy Dog

先頭へ戻る

方法 2
ユーザー定義関数を使用する

1. Access を起動し、MyTestDatabase データベースを開きます。
2. [挿入] メニューの [標準モジュール] をクリックします。
3. 現在のモジュール内に次のコードを入力します。変更を保存します。

   Function Proper(X)
   
   ' Capitalize first letter of every word in a field.
   
   Dim Temp$, C$, OldC$, i As Integer
   
        If IsNull(X) Then
   
              Exit Function
   
        Else
   
              Temp$ = CStr(LCase(X))
   
              ' Initialize OldC$ to a single space because first
              ' letter must be capitalized but has no preceding letter.
   
              OldC$ = " "
   
               For i = 1 To Len(Temp$)
                      C$ = Mid$(Temp$, i, 1)
                      If C$ >= "a" And C$ <= "z" And (OldC$ < "a" Or OldC$ > "z") Then
                            Mid$(Temp$, i, 1) = UCase$(C$)
                      End If
                      OldC$ = C$
               Next i
   
               Proper = Temp$
   
         End If
   
   End Function

   
   注 : 関数が正しく機能するには、このモジュールの "Declarations" セクションで Option Compare Database を指定する必要があります。
4. [ファイル] メニューの [終了して Microsoft Office Access へ戻る] をクリックします。
   
   注 : Access 97 の場合は、[ファイル] メニューの [閉じる] をクリックします。
5. [挿入] メニューの [クエリ] をクリックします。
6. [新しいクエリ] (または [クエリの新規作成]) ダイアログ ボックスで [デザイン ビュー] をクリックします。
7. [テーブルの表示] ダイアログ ボックスが表示されたら、[閉じる] をクリックします。
8. [表示] メニューの [SQL ビュー] をクリックします。
9. [クエリ1 : 選択クエリ] ダイアログ ボックスに次のコードを入力します。
   
   

   SELECT testText, proper(testText) as  testText_in_Proper_Case FROM MyTestTextList

   注 : このクエリは方法 1 のクエリと似ています。関数呼び出しであることのみが異なります。
10. [クエリ] メニューの [実行] をクリックします。
    
    クエリの出力は次のとおりです。

    testText					testText_in_Proper_Case
    the cOw jumped Over the MOON			The Cow Jumped Over The Moon
    THE QUICK BROWN FOX jUmped over	THE lazy DOG 	The Quick Brown Fox Jumped Over The Lazy Dog

先頭へ戻る