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, "Товар"