End Sub. 2. По нажатию кнопки Товары должна открываться форма «Товар»:

2. По нажатию кнопки Товары должна открываться форма «Товар»:

Private Sub Товары_Click()

DoCmd.OpenForm ("Товар")

End Sub

3. По нажатию кнопки Добавить Товар должна открываться форма

«Новый_товар».

Private Sub Добавить_товар_Click()

DoCmd.OpenForm ("Новый_товар")

End Sub

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

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

Update

Close

End With

Set basa = Nothing

End Sub

5. По нажатию кнопки OK в форме «Клиент» выбранные данные из поля со списком должны появляться в форме «Бланк» в текстовых полях с данными клиента:

Private Sub OK_Click()

Dim basa As Database, polespisok As ComboBox, frm As Form_бланк

Set basa = CurrentDb

Set polespisok = Me.ПолеСоСписком2

Set frm = Forms!бланк

If Not IsNull(polespisok) Then

frm.клиент.Value = polespisok.Column(0)

frm.Адрес_клиента.Value = polespisok.Column(1)

frm.телефон.Value = polespisok.Column(2)

frm.№счета_клиента.Value = polespisok.Column(3)

Else

MsgBox "Не было выбора"

End If

Set basa = Nothing

DoCmd.Close acForm, "Клиент"