Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理

  'IDテキストボックスの条件付き書式を変更する
  '（IDテキストボックスにはマニュアルで条件付き書式が１つすでに設定されています）
  With Me!ID
    Select Case Me!fraProperty
      Case 1
        '１つ目の条件付き書式（FormatConditionsコレクションの１ケ目）を設定
        With .FormatConditions(0)
          .BackColor = 39423
          .ForeColor = vbWhite
          .FontBold = True
          .FontItalic = False
        End With
      Case 2
        With .FormatConditions(0)
          .BackColor = vbBlack
          .ForeColor = vbCyan
          .FontBold = False
          .FontItalic = True
        End With
    End Select
  End With

End Sub