Event AfterApply()

Description

Event that is fired after the AfterPost Event.

Code Snippet

Sub AfterApply()

Dim Q

If record.updatekind = iukInsert then

MsgBox "Insert"

Set Q = Application.Database.Createquery("select * from customer where CustomerNo = '" &_Record.FieldValues("CustomerNo") & "'")

Q.LookUp

End If

If record.updatekind = iukModify then

MsgBox "Update"

End If

If record.updatekind = iukDelete then

MsgBox "Delete"

End If

End Sub