Microsoft Access Club >AccessTips >このページ >次頁 < 前項  サイト内検索


数字の先頭に 半角スペース を付ける方法-Format関数:AccessTips116



数字を数値型でデータ定義すると、テーブルフィールドやクエリフィールド内では、右詰で表示されます。これを左詰にして、ある定めた半角スペース (サンプルでは10スペース)を代入し右詰に揃えてみましょう。このようにすると、データ型はテキスト型に変わってしまいますけど・・・。

Format関数で引数に @ を用いると、定められた桁数でデータを表すことができます。今回は、この機能を用いましょう。しかし、実用的には、さほど問題にされません。

 Format(数字,"@@@@@@@@@@") '10桁で表す場合

下記のプロシージャを作成します。

Function SamplePro2()

    Dim lngValue As Long
    lngValue = 1234
    
    SamplePro2 = Format(lngValue, "@@@@@@@@@@")

End Function
クエリで利用する場合
引数を持つFunctionプロシージャを作成します。
Function SamplePro(lngValue As Long)
    
    SamplePro = Format(lngValue, "@@@@@@@@@@")

End Function
テーブルデータ

テーブルデータは下記のとおりとします。#これは、前回No115と同じデータです。

ID 数字
1 1234
2 4455
3 566
4 344
5 33454
6 99999
選択クエリの作成

このテーブルを基にした選択クエリを下記のように作成します。

  1. 新規フィールドのタイトルを 変換済み とし、コロン(:)に続いて先程作成した引数を持つプロシージャ名を記述します。
  2. 変換済み: samplepro([数字])
  3. 引数にはクエリフィールドの 数字 名を当てます。
  4. このクエリを実行すると下記のようになります。

解説
  1. 変換済みフィールドに格納されたデータは、テキスト型です(左詰で表示されています)。
  2. MS P ゴシックなど P のつくフォントを初期値で選択されている場合、上記のようにスペースの個数をきっちりと判別できない場合があります。
  3. この場合は、メニューバー → ツール → オプションをクリックし、下記のダイアログからMS ゴシックやMS 明朝に切れかえるとうまく表示されます。

関連ページ

2003/10/26

ページの先頭へ 前ページへ戻る

 


数字の先頭に 半角スペース を付ける方法-Format関数:AccessTips116


 

-Microsoft Access Club-