Номерация

[Vitalii197777]

Уважаемые подскажите пожалуйста возможно ли сделать и как? имеется таблица с номерами и сериями ,в форме они выбираются через поле со списком ,возможно ли сделать при выборе номера и серии в форме ,эти выбранные номера автоматически удалялись с таблицы номера.Спасибо заранее!!!

[Aleksandr H.]

Private Sub номерация_AfterUpdate()
On Error Resume Next
Me.Номер = номерация.Column(1)
Me.Серия = номерация.Column(2)
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM НОМЕРА WHERE ИД_ФН = " & номерация.Column(0)
DoCmd.SetWarnings True
номерация.Requery
End Sub

[Vitalii197777]

Спасибо!!!