TextBox.Format プロパティ (Access)

  • [アーティクル]

Format プロパティを使用して、数値、日付、時刻、およびテキストの表示方法と印刷方法をカスタマイズします。 読み取り/書き込みが可能な String です。

構文

式。形式

式TextBox オブジェクトを表す変数。

注釈

定義済みの形式のいずれかを使用するか、書式記号を使用してカスタム書式を作成できます。

"Format/書式" プロパティの設定値は、データ型によって異なります。 各データ型の設定値については、次のトピックを参照してください。

Visual Basic で、定義済みの形式のいずれかに対応する文字列式を入力するか、カスタム形式を入力します。

"Format/書式" プロパティは、データの表示方法にのみ影響します。 データの保存方法には影響しません。

Microsoft Access には、日付/時刻、数値、通貨、テキスト、メモ、Yes/No のデータ型用の書式が事前に定義されています。 定義済みの形式は、Windows コントロール パネルで [地域オプション] をダブルクリックして指定した国/地域によって異なります。 Access には、選択した国/地域に適した形式が表示されます。 たとえば、[全般] タブで英語 (米国) が選択されている場合、[通貨] 形式の 1234.56 は $1,234.56 として表示されますが、[全般] タブで [英語 (英国)] が選択されている場合、数値は 1,234.56 と表示されます。

テーブル デザイン ビューでフィールドの Format プロパティを設定した場合、Access はその形式を使用してデータシートにデータを表示します。 また、フィールドの "Format/書式" プロパティは、フォームやレポートの新しいコントロールにも適用されます。

任意のデータ型に対してカスタム形式で次の記号を使用します。

記号 意味
(空白) 空白をそのまま表示します。
"ABC" ニ重引用符で囲まれた文字をそのまま表示します。
! 文字を右詰めではなく、左詰めで表示します。
* この記号の後の文字で空白を埋めます。
\ 次の文字をリテラル文字として表示します。 You can also display literal characters by placing quotation marks around them.
[色] 角かっこ内の色で表示します。 指定できる色は、Black/黒、Blue/青、Green/緑、Cyan/水、Red/赤、Magenta/紫、Yellow/黄、White/白です。

数値型および通貨型の書式指定文字を、日付/時刻型、Yes/No 型、またはテキスト型およびメモ型の書式指定文字と組み合わせて使用することはできません。

定型入力を定義し、同じデータに対して "Format/書式" プロパティを設定すると、データが表示されるときに、"Format/書式" プロパティの方が優先し、定型入力は無視されます。 たとえば、テーブルのデザイン ビューでパスワードの定型入力を作成し、テーブルまたはフォームのコントロールで同じフィールドに "Format/書式" プロパティを設定した場合は、パスワードの定型入力は無視され、データは "Format/書式" プロパティに従って表示されます。

例

次の 3 つの例では、定義済みの形式を使用して Format プロパティを設定します。

Me!Date.Format = "Medium Date" 
 
Me!Time.Format = "Long Time" 
 
Me!Registered.Format = "Yes/No"

次の例では、カスタム形式を使用して Format プロパティを設定します。 この形式では、 2018 年 1 月の日付が表示されます。

Forms!Employees!HireDate.Format = "mmm yyyy"

次の使用例は、数値データを通貨型にし、テキスト データをすべて大文字にする Visual Basic 関数を示しています。 この関数は、TaxRefund という名前のバインドされていないコントロールの OnLostFocus イベントから呼び出されます。

Function FormatValue() As Integer 
    Dim varEnteredValue As Variant 
 
    varEnteredValue = Forms!Survey!TaxRefund.Value 
    If IsNumeric(varEnteredValue) = True Then 
        Forms!Survey!TaxRefund.Format = "Currency" 
    Else 
        Forms!Survey!TaxRefund.Format = ">" 
    End If 
End Function

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。