通过Access 2010中的表宏删除给定ID的最后一条记录？

Question

我有一个表格，其中包含一个通过公用相对ID的人与人之间的一对多关系，该表用于例如在地址处将家庭分组在一起。

相对表非常简单：

REL_PK autonumber, primary key
REL_ID number - non-unique, matching numbers mean related
PERSON_ID - ID of a record on the person table

每个关系至少需要两行才能完成。 我想设置一个After Delete Table宏，如果删除倒数第二个记录，它将删除具有给定相对ID的最后一个剩余记录。

换句话说：“从REL表中删除一行后，如果只有一个记录保留给定的REL_ID，则也将其删除。”

我可以将VBA放在按钮代码中，以便在此表上运行一个删除查询来查找孤行并删除它们，但是我认为最好设置一个触发器，因为将来我可能会在其他地方操作这些记录而忘记了运行清理查询。

我已经检查过了，看来不可能从表宏中触发更新查询。

Answer 1

以下After Delete数据宏似乎对我有用：

如果愿意，您显然可以将以下XML粘贴（ Ctrl + V ）到数据宏窗口中，以节省一些单击和键入的操作...

<?xml version="1.0" encoding="utf-16" standalone="no"?>
<DataMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
  <DataMacro Event="AfterDelete">
    <Statements>
      <Action Name="SetLocalVar">
        <Argument Name="Name">RemainingCount</Argument>
        <Argument Name="Value">DCount(&quot;*&quot;,&quot;Relative&quot;,&quot;REL_ID=&quot; &amp; [Old].[REL_ID])</Argument>
      </Action>
      <ConditionalBlock>
        <If>
          <Condition>[RemainingCount]=2</Condition>
          <Statements>
            <LookUpRecord>
              <Data Alias="DeleteMe">
                <Reference>Relative</Reference>
                <WhereCondition>[REL_ID]=[Old].[REL_ID] And [REL_PK]&lt;&gt;[Old].[REL_PK]</WhereCondition>
              </Data>
              <Statements>
                <Action Name="DeleteRecord">
                  <Argument Name="Alias">DeleteMe</Argument>
                </Action>
              </Statements>
            </LookUpRecord>
          </Statements>
        </If>
      </ConditionalBlock>
    </Statements>
  </DataMacro>
</DataMacros>