2011/06/10

access2010 Webデータベース その65 DatePicker再び -3-

** Office365beta(プランP1) 環境 **
主なロジックはデータマクロに任せているのだけど、ダイアログ上で月を変更した時、その都度データマクロを起動させていたからちょっと遅いというストレスがあった。これを軽減させてみた。

見た目は変わらない。フォームヘッダに不可視テキストボックスを配置し、コマンドボタンのキャプションに使用するデータを3か月分テキストとして保存し持ちまわれるようにしてみた。
一時変数/TempVarsで持ちまわってもよいかなと思ってはいるけど、閉じるボタンでダイアログフォームを抜けた場合削除することができないんだよね。一時変数は255まで使えるはずだけど、まぁ有限だということだし使わない方法もよいかなと思っただけ。

<?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">[paramDate]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclYear2</Argument>
        <Argument Name="Value">Year([lclDate])</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclMonth2</Argument>
        <Argument Name="Value">Month([lclDate])</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclFirstDateOfMonth1</Argument>
        <Argument Name="Value">DateSerial([lclYear2],[lclMonth2]-1,1)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclFirstDateOfMonth2</Argument>
        <Argument Name="Value">DateSerial([lclYear2],[lclMonth2],1)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclFirstDateOfMonth3</Argument>
        <Argument Name="Value">DateSerial([lclYear2],[lclMonth2]+1,1)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclYear1</Argument>
        <Argument Name="Value">Year([lclFirstDateOfMonth1])</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclMonth1</Argument>
        <Argument Name="Value">Month([lclFirstDateOfMonth1])</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclYear3</Argument>
        <Argument Name="Value">Year([lclFirstDateOfMonth3])</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclMonth3</Argument>
        <Argument Name="Value">Month([lclFirstDateOfMonth3])</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclEndDayOfMonth1</Argument>
        <Argument Name="Value">Right("0" &amp; FormatNumber(Day([lclFirstDateOfMonth2]-1),0,0,0,0),2)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclEndDayOfMonth2</Argument>
        <Argument Name="Value">Right("0" &amp; FormatNumber(Day([lclFirstDateOfMonth3]-1),0,0,0,0),2)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclEndDayOfMonth3</Argument>
        <Argument Name="Value">Right("0" &amp; FormatNumber(Day(DateSerial([lclYear3],[lclMonth3]+1,0)),0,0,0,0),2)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclFirstDayOfCalendar1</Argument>
        <Argument Name="Value">Right("0" &amp; FormatNumber(Day([lclFirstDateOfMonth1]-Weekday([lclFirstDateOfMonth1])+1),0,0,0,0),2)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclFirstDayOfCalendar2</Argument>
        <Argument Name="Value">Right("0" &amp; FormatNumber(Day([lclFirstDateOfMonth2]-Weekday([lclFirstDateOfMonth2])+1),0,0,0,0),2)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclFirstDayOfCalendar3</Argument>
        <Argument Name="Value">Right("0" &amp; FormatNumber(Day([lclFirstDateOfMonth3]-Weekday([lclFirstDateOfMonth3])+1),0,0,0,0),2)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclEndDayOfLastMonth1</Argument>
        <Argument Name="Value">Right("0" &amp; FormatNumber(Day([lclFirstDateOfMonth1]-1),0,0,0,0),2)</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclEndDayOfLastMonth2</Argument>
        <Argument Name="Value">[lclEndDayOfMonth1]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">lclEndDayOfLastMonth3</Argument>
        <Argument Name="Value">[lclEndDayOfMonth2]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">rtnvar1</Argument>
        <Argument Name="Value">FormatNumber([lclYear1],0,0,0,0) &amp; Right("0" &amp; FormatNumber([lclMonth1],0,0,0),2) &amp; [lclFirstDayOfCalendar1] &amp; [lclEndDayOfLastMonth1] &amp; [lclEndDayOfMonth1]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">rtnvar2</Argument>
        <Argument Name="Value">FormatNumber([lclYear2],0,0,0,0) &amp; Right("0" &amp; FormatNumber([lclMonth2],0,0,0),2) &amp; [lclFirstDayOfCalendar2] &amp; [lclEndDayOfLastMonth2] &amp; [lclEndDayOfMonth2]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetLocalVar">
        <Argument Name="Name">rtnvar3</Argument>
        <Argument Name="Value">FormatNumber([lclYear3],0,0,0,0) &amp; Right("0" &amp; FormatNumber([lclMonth3],0,0,0),2) &amp; [lclFirstDayOfCalendar3] &amp; [lclEndDayOfLastMonth3] &amp; [lclEndDayOfMonth3]</Argument>
      </Action>
      <Action Collapsed="true" Name="SetReturnVar">
        <Argument Name="Name">rtnCaptions</Argument>
        <Argument Name="Value">[rtnVar1] &amp; [rtnVar2] &amp; [rtnVar3]</Argument>
      </Action>
    </Statements>
  </DataMacro>
</DataMacros>
途中で何やってるんだかわからなくなってるけど、年4桁月2桁日付2桁*3の12桁3件計36文字を生成している。
翌月/該当月/先月を表す位置をtxtPosに0/1/2で保存して、月の移動に合わせて変更する。

txtPosが0もしくは2である時でさらに移動しようとした場合、再度データマクロを実行。
フォーム上のUIマクロはすべてフォームに保存しているけど、Webマクロで実行してもよい。この場合ちょっと遅いかなって気がする。
<?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 />
    <Sub Collapsed="true" Name="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>
      </Statements>
    </Sub>
    <Sub Collapsed="true" Name="SetCaption">
      <Statements>
        <Action Collapsed="true" Name="SetLocalVar">
          <Argument Name="Name">CurrentCaptions</Argument>
          <Argument Name="Expression">Mid([txtPreLoad],[txtPos]*12+1,12)</Argument>
        </Action>
        <Action Collapsed="true" Name="SetProperty">
          <Argument Name="ControlName">lblYear</Argument>
          <Argument Name="Property">Caption</Argument>
          <Argument Name="Value">=Left([LocalVars]![CurrentCaptions],4)</Argument>
        </Action>
        <Action Collapsed="true" Name="SetProperty">
          <Argument Name="ControlName">lblMonth</Argument>
          <Argument Name="Property">Caption</Argument>
          <Argument Name="Value">=CDbl(Mid([LocalVars]![CurrentCaptions],5,2))</Argument>
        </Action>
        <Action Collapsed="true" Name="SetLocalVar">
          <Argument Name="Name">FDC</Argument>
          <Argument Name="Expression">CDbl(Mid([LocalVars]![CurrentCaptions],7,2))</Argument>
        </Action>
        <Action Collapsed="true" Name="SetLocalVar">
          <Argument Name="Name">EDLM</Argument>
          <Argument Name="Expression">CDbl(Mid([LocalVars]![CurrentCaptions],9,2))</Argument>
        </Action>
        <Action Collapsed="true" Name="SetLocalVar">
          <Argument Name="Name">EDM</Argument>
          <Argument Name="Expression">CDbl(Mid([LocalVars]![CurrentCaptions],11,2))</Argument>
        </Action>
        <Action Collapsed="true" Name="SetProperty">
          <Argument Name="ControlName">cmd01</Argument>
          <Argument Name="Property">Caption</Argument>
          <Argument Name="Value">=[LocalVars]![FDC]</Argument>
        </Action>
        <Action Collapsed="true" Name="SetProperty">
          <Argument Name="ControlName">cmd02</Argument>
          <Argument Name="Property">Caption</Argument>
          <Argument Name="Value">=IIf([LocalVars]![FDC]+1&gt;[LocalVars]![EDLM],[LocalVars]![FDC]+1-[LocalVars]![EDLM],[LocalVars]![FDC]+1)</Argument>
        </Action>
        <Action Collapsed="true" Name="SetProperty">
          <Argument Name="ControlName">cmd03</Argument>
          <Argument Name="Property">Caption</Argument>
          <Argument Name="Value">=IIf([LocalVars]![FDC]+2&gt;[LocalVars]![EDLM],[LocalVars]![FDC]+2-[LocalVars]![EDLM],[LocalVars]![FDC]+2)</Argument>
        </Action>
        <Action Collapsed="true" Name="SetProperty">
          <Argument Name="ControlName">cmd04</Argument>
          <Argument Name="Property">Caption</Argument>
          <Argument Name="Value">=IIf([LocalVars]![FDC]+3&gt;[LocalVars]![EDLM],[LocalVars]![FDC]+3-[LocalVars]![EDLM],[LocalVars]![FDC]+3)</Argument>
        </Action>
        <Action Collapsed="true" Name="SetProperty">
          <Argument Name="ControlName">cmd05</Argument>
          <Argument Name="Property">Caption</Argument>
          <Argument Name="Value">=IIf([LocalVars]![FDC]+4&gt;[LocalVars]![EDLM],[LocalVars]![FDC]+4-[LocalVars]![EDLM],[LocalVars]![FDC]+4)</Argument>
        </Action>
        <Action Collapsed="true" Name="SetProperty">
          <Argument Name="ControlName">cmd06</Argument>
          <Argument Name="Property">Caption</Argument>
          <Argument Name="Value">=IIf([LocalVars]![FDC]+5&gt;[LocalVars]![EDLM],[LocalVars]![FDC]+5-[LocalVars]![EDLM],[LocalVars]![FDC]+5)</Argument>
        </Action>
        <Action Collapsed="true" Name="SetProperty">
          <Argument Name="ControlName">cmd07</Argument>
          <Argument Name="Property">Caption</Argument>
          <Argument Name="Value">=IIf([LocalVars]![FDC]+6&gt;[LocalVars]![EDLM],[LocalVars]![FDC]+6-[LocalVars]![EDLM],[LocalVars]![FDC]+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;[LocalVars]![EDM],[LocalVars]![lcl07]+22-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+23-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+24-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+25-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+26-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+27-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+28-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+29-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+30-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+31-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+32-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+33-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+34-[LocalVars]![EDM],[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;[LocalVars]![EDM],[LocalVars]![lcl07]+35-[LocalVars]![EDM],[LocalVars]![lcl07]+35)</Argument>
        </Action>
      </Statements>
    </Sub>
    <Sub Collapsed="true" Name="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>
    </Sub>
  </UserInterfaceMacro>
</UserInterfaceMacros>

続く

0 件のコメント: