HOME > 即効テクニック > AccessVBA > データ操作 > 条件に一致した値の文字の書式を変更する

即効テクニック

データ操作

条件に一致した値の文字の書式を変更する

(Access 2000/2002/2003)
● 概要 ●
Formatイベントに書式を設定することで、文字の書式を変更することができます。書式の設定と、If文やSelect Case文を併用すると、値によって書式を変更することができます。

●サンプル●
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    If 部署 = "システム" Then
        '部署が「システム」の場合、文字色が赤、太字、斜体にする
        Report_11.部署.ForeColor = RGB(255, 0, 0)
        Report_11.部署.FontBold = True
        Report_11.部署.FontItalic = True
    Else
       '部署が「システム」以外の場合、文字色が黒、太字を解除、斜体を解除する
        Report_11.部署.ForeColor = RGB(0, 0, 0)
        Report_11.部署.FontBold = False
        Report_11.部署.FontItalic = False
    End If
End Sub