AccessVBA入門⑥フォーム・レポート操作

今回からフォーム・レポートについてコードを紹介します。

フォーム・レポートの操作
サブフォーム・サブレポートの操作

フォーム・レポートの操作

Sub FormTest()
  Dim c As Object
  Forms("Fフォーム").txt3.Value = "標準モジュール"
  MsgBox "標準モジュールからの参照"
  For Each c In Forms("Fフォーム").Controls
    If  c.ControlType = acTextBox Then
      c.Value = ""
    End If
  Next c
End Sub

Private Sub btn1_Click()
  Me.txt1.Value = "フォームモジュール"
  txt2.Value = "フォームモジュール"
  MsgBox "「FormTest」プロシージャを呼び出します"
  Call FormTest
End Sub

サブフォーム・サブレポートの操作

Private Sub btn1_Click()
  Me.txt1.Value = "メインフォームから参照メイン"
  Me.sub1.Form.txt1.Value = "メインフォームから参照サブ"
End Sub

Private Sub btn1_Click()
  Me.txt1.Value = "サブフォームから参照サブ"
  Me.Parent.txt1.Value = "サブフォームから参照メイン"
End Sub

Private Sub frm1_AfterUpdate()
  DoCmd.Echo False
  Me.sub1.Form.FilterOn = False

  Select Case Me.frm1.Value
    Case Me.opt1.OptionValue
      Me.sub1.Form.Filter = "部署コード = 'B001'"
    Case Me.opt2.OptionValue
      Me.sub1.Form.Filter = "部署コード = 'B002'"
    Case Me.opt3.OptionValue
      Me.sub1.Form.Filter = "部署コード = 'B003'"
    Case Me.opt4.OptionValue
      Me.sub1.Form.Filter = "部署コード = 'B004'"
    Case Me.opt5.OptionValue
      Me.sub1.Form.Filter = "部署コード = 'B005'"
    Case Me.opt6.OptionValue
      Me.sub1.Form.Filter = ""
  End Select

  Me.sub1.Form.FilterOn = True
  DoCmd.Echo True
End Sub