Procedure Delete
Description
Removes the current record.
Example
If PhoneYesNo = "
No
"
Then
Record.Delete
Else
If
Phone = "
NK02748
"
Then
Record.FieldValues("
SubPartNo
") = "
NOKIA-PHONE
"
End If
If
Phone = "
PH023478
"
Then
Record.FieldValues("
SubPartNo
") = "
PHILIPS-PHONE
"
End If
End If