End Sub. 7. Данные в поле Количество, Ставка_НДС вводятся с клавиатуры

7. Данные в поле Количество, Ставка_НДС вводятся с клавиатуры.

8. Для того чтобы автоматически просчитывалась стоимость заказа по каждому виду товара, и это значение появлялось в поле Сумма_с_НДС, пишем процедуру по событию для поля ставка_НДС – после обновления:

Private Sub ставка_НДС_AfterUpdate()

Me.Сумма_с_НДС = Me.цена * Me.количество +

Me.цена * Me.ставка_НДС / 100

End Sub

9. По нажатию кнопки Добавитиь_данные_о_товаре в форме «Новый_товар» данные, введённые в текстовые поля формы, должны заноситься в таблицу «Товар»:

Private Sub Добавить_данные_о_товаре_Click()

Dim basa As Database, nabor As Recordset

Set basa = CurrentDb

Set nabor = basa.OpenRecordset("Товар", dbOpenTable)

With nabor

AddNew

.Fields!товар = Me.товар.Value

.Fields!поставщик = Me.поставщик.Value

.Fields!Адрес_поставщика = Me.Адрес_поставщика.Value

.Fields!цена = Me.цена.Value

.Fields!№счета_поставщика = Me.№счета_поставщика.Value

Update

Close

End With

Set basa = Nothing

DoCmd.Close acForm, "Новый_товар"

End Sub

10. По нажатию кнопки Итог в текстовом поле Итого должно

печататься значение суммарной стоимости заказа:

Private Sub итог_Click()

Dim basa As Database, nabor As Recordset, s As Currency

Set basa = CurrentDb

Set nabor = basa.OpenRecordset("Промежуточная", dbOpenForwardOnly)