1:
urrentDb.Execute ("INSERT INTO [Pending] (Flagged) VALUES ('Y') WHERE PendingClaimNum = '" & Me.txtClaimNum & "'")