АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

Читайте также:
  1. Private Sub Кнопка0_Click()
  2. Private Sub Кнопка0_Click()
  3. Private Sub Кнопка2_Click()
  4. Private Sub Кнопка4_Click()
  5. Private Sub Кнопка4_Click()
  6. Private Sub Кнопка8_Click()
  7. Private Sub Кнопка8_Click()
  8. Наследование. Понятие наследования. Спецификаторы доступа к данным: private, public, protected.

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


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 |


При использовании материала, поставите ссылку на Студалл.Орг (0.008 сек.)