access2010 Webデータベース その64 DatePicker再び -2-

** Office365beta(プランP1) 環境 **
ちょっと思いついたことがあるのだけど、とりあえず動作する状態まで。

いたずらしたわけでもないのにアイコンが変わってしまったし。
以降マクロのスクリーンショットとxml

ダイアログフォーム呼び出し前に既定値があれば一時変数をセットしておく。選択した日付（戻り値）は一時変数に格納される。非連結コントロールで使用するのはちょっと調子が悪い。データ形式の認識が正確でなくなるからだろう。

cmd01からcmd06まで

cmd07からcmd28まで

cmd29からcmd37まで

cmd38からcmd42まで

<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<UserInterfaceMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
  <UserInterfaceMacro MinimumClientDesignVersion="14.0.0000.0000">
    <Statements>
      <StatementGroup Description="Initialize">
        <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>
          <ConditionalBlock>
            <If>
              <Condition>IsNull([TempVars]![DialogDatePickerDefault])</Condition>
              <Statements>
                <Action Collapsed="true" Name="SetLocalVar">
                  <Argument Name="Name">lclDate</Argument>
                  <Argument Name="Expression">Date()</Argument>
                </Action>
              </Statements>
            </If>
            <Else>
              <Statements>
                <Action Collapsed="true" Name="SetLocalVar">
                  <Argument Name="Name">lclDate</Argument>
                  <Argument Name="Expression">[TempVars]![DialogDatePickerDefault]</Argument>
                </Action>
              </Statements>
            </Else>
          </ConditionalBlock>
          <Action Collapsed="true" Name="RemoveTempVar">
            <Argument Name="Name">DialogDatePickerDefault</Argument>
          </Action>
          <Action Collapsed="true" Name="RemoveTempVar">
            <Argument Name="Name">DialogDatePicker</Argument>
          </Action>
        </Statements>
      </StatementGroup>
      <StatementGroup Description="SetCaption">
        <Statements>
          <Action Collapsed="true" Name="RunDataMacro">
            <Argument Name="MacroName">tblDialogDatePicker.SetCalendar</Argument>
            <Parameters>
              <Parameter Name="paramDate" Value="[LocalVars]![lclDate]" />
            </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">lblYear</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[ReturnVars]![rtn04]</Argument>
          </Action>
          <Action Collapsed="true" Name="SetProperty">
            <Argument Name="ControlName">lblMonth</Argument>
            <Argument Name="Property">Caption</Argument>
            <Argument Name="Value">=[ReturnVars]![rtn05]</Argument>
          </Action>
          <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 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>

続く