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

  With Me!フォーム074_sub.Form
    Select Case Me!fraProperty
      Case 1
        '水平線を透明に
        .HorizontalDatasheetGridlineStyle = 0
      Case 2
        '水平線を実線に
        .HorizontalDatasheetGridlineStyle = 1
      Case 3
        '水平線を破線に
        .HorizontalDatasheetGridlineStyle = 2
      Case 4
        '水平線を二点鎖線に
        .HorizontalDatasheetGridlineStyle = 7
    End Select
  End With

End Sub