access2010 Webデータベース その63 DatePicker再び -1-

** Office365beta(プランP1) 環境 ** 
日付選択ダイアログ再び。あまりよい成果を得られてはないけど。

UIマクロで使用できる関数にかなり制限があるからデータマクロか集計フィールドで計算しておかないとならない。

日付時刻の関数がないに等しくて、UIマクロ上でやりくりするにはちょっと限界なのかもしれないと思った。ひとまずデータマクロで計算等を任せてちょっと考え直した。

データマクロを使うということは、オフライン時には使用できないということになるのだけれど、ひとまずそれでもよいかなと。オフラインでも使用するにはキャッシュされるように必要な情報をテーブルに落とし込んでおかないとならない。でも、オフライン時というのはクライアント実行時だけだからWebフォームではなく、クライアントフォームを用意しておけばよいのだから、まぁいいかなと妥協もある。

ひとまずできたところまで。

年/月それぞれ用にフォームヘッダにラベルを配置。テキストボックスを使わないのはブラウザによってはサイズの変更ができてしまうから。
詳細セクションにコマンドボタンを42個。気分で背景スタイルは透明とした。

基本的なロジックはベタベタのコテコテで様子見。ラベルキャプションから日付を算出しデータマクロのパラメータとする。データマクロではそのパラメータからコマンドボタンのキャプションに使用する日付を計算させる。但し、42個分をすべて算出するのではなくて最低限必要な計算にとどめ、UIマクロでさらにやりくりを試みた。その方が速いのかなと思ったのだけど、実際確かめてみた感じではそんなに変わらないという感じ。

<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<DataMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
  <DataMacro Name="SetCalendar">
    <Parameters>
      <Parameter Name="paramDate" />
    </Parameters>
    <Statements>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclDate</Argument>
        <Argument Name="Value">Nz([paramDate],Date())</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">FirstDateOfMonth</Argument>
        <Argument Name="Value">DateSerial(Year([lclDate]),Month([lclDate]),1)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">FirstDateOfCalendar</Argument>
        <Argument Name="Value">[FirstDateOfMonth]-Weekday([FirstDateOfMonth])+1</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">FirstDayOfCalendar</Argument>
        <Argument Name="Value">Day([FirstDateOfCalendar])</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">EndDayOfMonth</Argument>
        <Argument Name="Value">Day(DateSerial(Year([lclDate]),Month([lclDate])+1,0))</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">EndDayOfLastMonth</Argument>
        <Argument Name="Value">Day([FirstDateOfMonth]-1)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetReturnVar">
        <Argument Name="Name">rtn01</Argument>
        <Argument Name="Value">[FirstDayOfCalendar]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetReturnVar">
        <Argument Name="Name">rtn02</Argument>
        <Argument Name="Value">[EndDayOfLastMonth]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetReturnVar">
        <Argument Name="Name">rtn03</Argument>
        <Argument Name="Value">[EndDayOfMonth]</Argument>
      </Action>
    </Statements>
  </DataMacro>
</DataMacros>

データマクロでDate()として日付を取っているけど、ADSサーバのローカル日付だろうから時差があってずれている。

 こんな感じで合わせておく。

<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<UserInterfaceMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
  <UserInterfaceMacro Event="OnLoad">
    <Statements>
      <Action Collapsed="true" Name="SetTempVar">
        <Argument Name="Name">DefaultForeColor0</Argument>
        <Argument Name="Expression">[cmd01].[ForeColor]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetTempVar">
        <Argument Name="Name">DefaultForeColor1</Argument>
        <Argument Name="Expression">[cmd02].[ForeColor]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetTempVar">
        <Argument Name="Name">DefaultForeColor2</Argument>
        <Argument Name="Expression">[cmd07].[ForeColor]</Argument>
      </Action>
      <ConditionalBlock>
        <If>
          <Condition>IsClient()</Condition>
          <Statements>
            <Action Collapsed="true" Name="SetTempVar">
              <Argument Name="Name">lightgrey</Argument>
              <Argument Name="Expression">13882323</Argument>
            </Action>
          </Statements>
        </If>
        <Else>
          <Statements>
            <Action Collapsed="true" Name="SetTempVar">
              <Argument Name="Name">lightgrey</Argument>
              <Argument Name="Expression">"#d3d3d3"</Argument>
            </Action>
          </Statements>
        </Else>
      </ConditionalBlock>
      <Action Collapsed="true" Name="SetProperty">
        <Argument Name="ControlName">cmd38</Argument>
        <Argument Name="Property">ForeColor</Argument>
        <Argument Name="Value">=[TempVars]![lightgrey]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetProperty">
        <Argument Name="ControlName">cmd39</Argument>
        <Argument Name="Property">ForeColor</Argument>
        <Argument Name="Value">=[TempVars]![lightgrey]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetProperty">
        <Argument Name="ControlName">cmd40</Argument>
        <Argument Name="Property">ForeColor</Argument>
        <Argument Name="Value">=[TempVars]![lightgrey]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetProperty">
        <Argument Name="ControlName">cmd41</Argument>
        <Argument Name="Property">ForeColor</Argument>
        <Argument Name="Value">=[TempVars]![lightgrey]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetProperty">
        <Argument Name="ControlName">cmd42</Argument>
        <Argument Name="Property">ForeColor</Argument>
        <Argument Name="Value">=[TempVars]![lightgrey]</Argument>
      </Action>
    </Statements>
  </UserInterfaceMacro>
</UserInterfaceMacros>

<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<UserInterfaceMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
  <UserInterfaceMacro For="cmdPrevY" Event="OnClick">
    <Statements>
      <Action Collapsed="true" Name="SetProperty">
        <Argument Name="ControlName">lblYear</Argument>
        <Argument Name="Property">Caption</Argument>
        <Argument Name="Value">=CDbl([lblYear].[Caption])-1</Argument>
      </Action>
      <StatementGroup Collapsed="true" Description="SetCaption">
        <Statements>
          <Action Collapsed="true" Name="RunDataMacro">
            <Argument Name="MacroName">tblDialogDatePicker.SetCalendar</Argument>
            <Parameters>
              <Parameter Name="paramDate" Value="DateSerial(CDbl([lblYear].[Caption]),CDbl([lblMonth].[Caption]),1)" />
            </Parameters>
          </Action>
          <Comment>[ReturnVars]![rtn01] : FirstDayOfCalendar</Comment>
          <Comment>[ReturnVars]![rtn02] : EndDayOfLastMonth</Comment>
          <Comment>[ReturnVars]![rtn03] : EndDayOfMonth</Comment>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd01</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[ReturnVars]![rtn01]</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd02</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([ReturnVars]![rtn01]+1&gt;[ReturnVars]![rtn02],[ReturnVars]![rtn01]+1-[ReturnVars]![rtn02],[ReturnVars]![rtn01]+1)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd03</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([ReturnVars]![rtn01]+2&gt;[ReturnVars]![rtn02],[ReturnVars]![rtn01]+2-[ReturnVars]![rtn02],[ReturnVars]![rtn01]+2)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd04</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([ReturnVars]![rtn01]+3&gt;[ReturnVars]![rtn02],[ReturnVars]![rtn01]+3-[ReturnVars]![rtn02],[ReturnVars]![rtn01]+3)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd05</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([ReturnVars]![rtn01]+4&gt;[ReturnVars]![rtn02],[ReturnVars]![rtn01]+4-[ReturnVars]![rtn02],[ReturnVars]![rtn01]+4)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd06</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([ReturnVars]![rtn01]+5&gt;[ReturnVars]![rtn02],[ReturnVars]![rtn01]+5-[ReturnVars]![rtn02],[ReturnVars]![rtn01]+5)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd07</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([ReturnVars]![rtn01]+6&gt;[ReturnVars]![rtn02],[ReturnVars]![rtn01]+6-[ReturnVars]![rtn02],[ReturnVars]![rtn01]+6)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetLocalVar">
            <Argument Name="Name">lcl07</Argument>
            <Argument Name="Expression">CDbl([cmd07].[Caption])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd08</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+1</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd09</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+2</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd10</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+3</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd11</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+4</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd12</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+5</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd13</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+6</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd14</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+7</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd15</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+8</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd16</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+9</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd17</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+10</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd18</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+11</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd19</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+12</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd20</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+13</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd21</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+14</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd22</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+15</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd23</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+16</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd24</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+17</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd25</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+18</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd26</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+19</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd27</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+20</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd28</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[LocalVars]![lcl07]+21</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd29</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+22&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+22-[ReturnVars]![rtn03],[LocalVars]![lcl07]+22)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd30</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+23&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+23-[ReturnVars]![rtn03],[LocalVars]![lcl07]+23)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd31</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+24&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+24-[ReturnVars]![rtn03],[LocalVars]![lcl07]+24)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd32</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+25&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+25-[ReturnVars]![rtn03],[LocalVars]![lcl07]+25)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd33</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+26&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+26-[ReturnVars]![rtn03],[LocalVars]![lcl07]+26)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd34</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+27&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+27-[ReturnVars]![rtn03],[LocalVars]![lcl07]+27)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd35</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+28&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+28-[ReturnVars]![rtn03],[LocalVars]![lcl07]+28)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd36</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+29&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+29-[ReturnVars]![rtn03],[LocalVars]![lcl07]+29)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd37</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+30&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+30-[ReturnVars]![rtn03],[LocalVars]![lcl07]+30)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd38</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+31&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+31-[ReturnVars]![rtn03],[LocalVars]![lcl07]+31)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd39</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+32&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+32-[ReturnVars]![rtn03],[LocalVars]![lcl07]+32)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd40</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+33&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+33-[ReturnVars]![rtn03],[LocalVars]![lcl07]+33)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd41</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+34&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+34-[ReturnVars]![rtn03],[LocalVars]![lcl07]+34)</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd42</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=IIf([LocalVars]![lcl07]+35&gt;[ReturnVars]![rtn03],[LocalVars]![lcl07]+35-[ReturnVars]![rtn03],[LocalVars]![lcl07]+35)</Argument>
          </Action>
        </Statements>
      </StatementGroup>
      <StatementGroup Collapsed="true" Description="SetForeColor">
        <Statements>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd01</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd01].[Caption])&gt;20,[TempVars]![lightgrey],[TempVars]![DefaultForeColor0])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd02</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd02].[Caption])&gt;20,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd03</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd03].[Caption])&gt;20,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd04</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd04].[Caption])&gt;20,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd05</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd05].[Caption])&gt;20,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd06</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd06].[Caption])&gt;20,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd29</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd29].[Caption])&lt;14,[TempVars]![lightgrey],[TempVars]![DefaultForeColor0])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd30</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd30].[Caption])&lt;14,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd31</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd31].[Caption])&lt;14,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd32</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd32].[Caption])&lt;14,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd33</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd33].[Caption])&lt;14,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd34</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd34].[Caption])&lt;14,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd35</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd35].[Caption])&lt;14,[TempVars]![lightgrey],[TempVars]![DefaultForeColor2])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd36</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd36].[Caption])&lt;14,[TempVars]![lightgrey],[TempVars]![DefaultForeColor0])</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">cmd37</Argument>
            <Argument Name="Property">ForeColor</Argument>
            <Argument Name="Value">=IIf(CDbl([cmd37].[Caption])&lt;14,[TempVars]![lightgrey],[TempVars]![DefaultForeColor1])</Argument>
          </Action>
        </Statements>
      </StatementGroup>
    </Statements>
  </UserInterfaceMacro>
</UserInterfaceMacros>

続く