Private Sub Клиенты_Click()

DoCmd.OpenForm ("Клиент")

End Sub

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, "Клиент"

End Sub

6. По нажатию кнопки OK в форме «Товар» выбранные данные из списка должны появляться в таблице «Промежуточная» и автоматически в форме «Бланк» в подчиненной форме «Промежуточная»:

Private Sub OK_Click()

Dim basa As Database, spisok As ListBox, nabor As Recordset, i As Variant

Set basa = CurrentDb

Set spisok = Me.Список0

If spisok.ItemsSelected.Count > 0 Then

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

With nabor

Do Until IsNull(.Fields!товар)

Edit

.Fields!товар = Null

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

.Fields!цена = Null

.Fields!количество = Null

.Fields!ставка_НДС = Null

.Fields!сумма_с_НДС = Null

Update

MoveNext

Loop

MoveFirst

For Each i In spisok.ItemsSelected

Edit

.Fields!товар = spisok.Column(0, i)

.Fields!поставщик = spisok.Column(1, i)

.Fields!цена = spisok.Column(2, i)

Update

MoveNext

Next i

Me.Refresh

Close

Set basa = Nothing

End With

Else

MsgBox "Список пустой"

End If

DoCmd.Close acForm, "Товар"

Поиск по сайту: