access2010 データマクロで累計 -AfterInsert-

データマクロで累計を計算させてみる-挿入後処理-
<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<DataMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
  <DataMacro Event="AfterInsert">
    <Statements>
      <ForEachRecord>
        <Data Alias="t1_0">
          <Reference>t1</Reference>
        </Data>
        <Statements>
          <Action Name="SetLocalVar">
            <Argument Name="Name">tmpsub</Argument>
            <Argument Name="Value">0</Argument>
          </Action>
          <ForEachRecord>
            <Data Alias="t1_1">
              <Reference>t1</Reference>
              <WhereCondition>[t1_1].[ID]&lt;=[t1_0].[ID]</WhereCondition>
            </Data>
            <Statements>
              <Action Name="SetLocalVar">
                <Argument Name="Name">tmpsub</Argument>
                <Argument Name="Value">[t1_1].[f_num]+[tmpsub]</Argument>
              </Action>
            </Statements>
          </ForEachRecord>
          <EditRecord>
            <Data />
            <Statements>
              <Action Name="SetField">
                <Argument Name="Field">t1_0.f_sum</Argument>
                <Argument Name="Value">[tmpsub]</Argument>
              </Action>
            </Statements>
          </EditRecord>
        </Statements>
      </ForEachRecord>
    </Statements>
  </DataMacro>
</DataMacros>

RibbonUI access2010

<ribbon startFromScratch="true" />
とした場合、既定のRibbonは表示されなくなるが、datasheetviewの場合には、フォームツールが表示となる。

オプション→リボンとツールバーのオプション→すべてのメニューを表示するを外すとフォームツールの表示はされなくなる。

 backstageはこうなる。









 RibbonXmlでコントロールすることもできる。

Office2010 32bit/64bit VBA7 互換性

http://msdn.microsoft.com/en-us/library/ff458121(v=office.14).aspx

Access2010 BackStage カスタマイズ

BackStage View 全消しRibbonXml
BackStageのRibbonXmlは起動時の読み込み時のみ反映されるから、オプション→カレントデータベース→リボンとツールバーのオプションで設定


<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="true" />
        <backstage>
        <button idMso="FileSave" visible="false" />
        <button idMso="SaveObjectAs" visible="false" />
        <button idMso="FileSaveAsCurrentFileFormat" visible="false" />
        <button idMso="FileOpen" visible="false" />
        <button idMso="FileCloseDatabase" visible="false" />
        <tab idMso="TabInfo" visible="false" />
        <tab idMso="TabRecent" visible="false" />
        <tab idMso="TabNew" visible="false" />
        <tab idMso="TabPrint" visible="false" />
        <tab idMso="TabShare" visible="false" />
        <tab idMso="TabHelp" visible="false" />
        <button idMso="ApplicationOptionsDialog" visible="false" />
        <button idMso="FileExit" visible="false" />
    </backstage>
</customUI>

word2010からBlog発行テスト

できるかな

変更もできるかな

変更もできた

画像はどうかな

画像はだめだ

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="OnLoad_Ribbon02">
<ribbon startFromScratch="true">
<tabs>
<tab id="tab01" label="Tab01">
<group id="g0102" label="g0102">
<dropDown id="dropdown01" getLabel="setLabel" getItemCount="setItemCount" getItemID="setItemId" getItemLabel="setItemLabel" getSelectedItemID="setItemDefault" getScreentip="setScreentip" onAction="selectPrinter" sizeString="wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww" getItemImage="setItemImage" imageMso="FilePrint" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>

<h1>ああああああああああ</h1>