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

  With Me!フォーム049_sub.Form
    Select Case Me!fraProperty
      Case 1
        'データシートの枠線色を赤に
        .DatasheetGridlinesColor = vbRed
      Case 2
        '青に
        .DatasheetGridlinesColor = vbBlue
      Case 3
        'RGB関数で作った中間色に
        .DatasheetGridlinesColor = RGB(100, 200, 100)
    End Select
  End With

End Sub