After Delete macro event

Applies to: Access 2013, Office 2013

The After Delete event occurs after a record is deleted.

Note

The After Delete event is available only in Data Macros.

Remarks

Use the After Delete event to perform any actions that you want to occur when a record is deleted. Common uses for the After Delete include enforcing business rules, workflows, updating an aggregate total, and sending notifications.

When the After Delete event occurs, the values contained in the deleted record are still available. You may want to use a deleted value to increment or decrement a total, create an audit trail, or compare to an existing value in a WhereCondition argument.

You can use the Updated("Field Name") function to determine whether a field has changed. The following code example shows how to use an If statement to determine determine whether the PaidInFull field has been changed.

 
If  Updated("PaidInFull")   Then 
 
    /* Perform actions based on changes to the field. */ 
 
End If 
 

You can use access a value in the deleted record by using the following syntax.

[Old].[Field Name]

For example, to access the value of the QuantityInStock field in the deleted record, use the following syntax.

[Old].[QuantityInStock]

The values contained in the deleted record are deleted permanently when the After Delete event ends.

The following macro commands can be used in the After Delete event.

Command Type

Command

Program Flow

Comment macro statement

Program Flow

Group macro statement

Program Flow

If...Then...Else macro block

Data Block

CreateRecord macro action

Data Block

EditRecord macro action

Data Block

ForEachRecord macro action

Data Block

LookupRecord data block

Data Action

CancelRecordChange macro action

Data Action

ClearMacroError macro action

Data Action

DeleteRecord macro action

Data Action

ExitForEachRecord macro action

Data Action

LogEvent macro action

Data Action

OnError macro action

Data Action

RaiseError macro action

Data Action

RunDataMacro macro action

Data Action

SendEmail macro action

Data Action

SetField macro action

Data Action

SetLocalVar macro action

Data Action

StopAllMacros macro action

Data Action

StopMacro macro action

To create a Data Macro that captures the After Delete event, use the following steps.

  1. Open the table for which you want to capture the After Delete event.

  2. On the Table tab, in the After Events group, click After Delete.

An empty Data Macro is displayed in the macro designer.

Example

The following code example uses the After Delete event to perform some processing when a record is deleted from the Donations table. When a record is deleted, the amount of the donation is subracted form the DonationsReceived field in the DonationsReceived table and the TotalDonatedField in the Donors table.

Click here to view a copy of the macro that you can paste into Macro Designer.

To view this example in the macro designer, use the following steps.

  1. Open the table for which you want to capture the After Delete event.

  2. On the Table tab, in the After Events group, click After Delete.

  3. Select the code listed below and then press CTRL+C to copy it to the Clipboard.

  4. Activate the macro designer window and then press CTRL+V.

    <?xml version="1.0" encoding="UTF-16" standalone="no"?> 
    <DataMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/04/application"> 
      <DataMacro Event="AfterDelete"> 
        <Statements> 
          <Comment>Initialize a variable and assign the old</Comment> 
          <Action Name="SetLocalVar"> 
            <Argument Name="Name">varAmount</Argument> 
            <Argument Name="Value">[Old].[Amount]</Argument> 
          </Action> 
          <ConditionalBlock> 
            <If> 
              <Condition>Not (IsNull([Old].[CampaignID]))</Condition> 
              <Statements> 
                <ForEachRecord> 
                  <Data> 
                    <Reference>Campaigns</Reference> 
                    <WhereCondition>[ID]=[Old].[CampaignID]</WhereCondition> 
                  </Data> 
                  <Statements> 
                    <EditRecord> 
                      <Data /> 
                      <Statements> 
                        <Action Collapsed="true" Name="SetField"> 
                          <Argument Name="Field">[DonationsReceived]</Argument> 
                          <Argument Name="Value">[DonationsReceived]-[varAmount]</Argument> 
                        </Action> 
                      </Statements> 
                    </EditRecord> 
                  </Statements> 
                </ForEachRecord> 
              </Statements> 
            </If> 
          </ConditionalBlock> 
          <ConditionalBlock> 
            <If> 
              <Condition>Not (IsNull([Old].[DonorID]))</Condition> 
              <Statements> 
                <ForEachRecord> 
                  <Data> 
                    <Reference>Donors</Reference> 
                    <WhereCondition>[ID]=[Old].[DonorID]</WhereCondition> 
                  </Data> 
                  <Statements> 
                    <EditRecord> 
                      <Data /> 
                      <Statements> 
                        <Action Name="SetField"> 
                          <Argument Name="Field">[TotalDonated]</Argument> 
                          <Argument Name="Value">[TotalDonated]-[varAmount]</Argument> 
                        </Action> 
                      </Statements> 
                    </EditRecord> 
                  </Statements> 
                </ForEachRecord> 
              </Statements> 
            </If> 
          </ConditionalBlock> 
        </Statements> 
      </DataMacro> 
    </DataMacros>
    SetLocalVar 
                    Name    varAmount 
              Expression   =[Old].[Amount] 
     
    If   Not(IsNull([Old].[CampaignID]]))   Then 
     
         For Each Record In     Campaigns 
            Where Condition     =[ID]=[Old].[CampaignID] 
                      Alias 
            EditRecord 
                      Alias 
                  SetField   ([DonationsReceived], [DonationsReceived] - [varAmount]) 
            End EditRecord 
     
    End If 
     
    If   Not(IsNull([Old].[DonorID]]))   Then 
     
         For Each Record In    Donors 
            Where Condition     =[ID]=[Old].[DonorID] 
                      Alias 
            EditRecord 
                      Alias 
     
              SetField 
                             Name   [TotalDonated] 
                            Value   =[TotalDonated]-[varAmount] 
            End EditRecord 
    End If