Кнопка «Реклама»

Программируется также как и кнопка «Заказ»

Private Sub CommandButton3_Click()

CommandButton3.BackColor = vbCyan

CommandButton3.FontBold = True

Set bd1 = OpenDatabase("C:\курсовая\база.mdb")

Set r1 = bd1.OpenRecordset ("Продукция")

Do While Not r1.EOF

UserForm2.ComboBox1.AddItem r1! Наименование_продукта

r1.MoveNext

Loop

UserForm2.Show

End Sub

Кнопка «Продукция»

Private Sub CommandButton4_Click()

CommandButton4.BackColor = vbCyan

CommandButton4.FontBold = True

Set bd1=OpenDatabase("C:\курсовая\база.mdb")

Set r1 = bd1.OpenRecordset("Продукция")

Do While Not r1.EOF

«запись в ячейки таблицы Excel значений из таблицы "Продукция"»

Worksheets("Продукция").Cells(i+10,1).Value=r1!Наименование_продука

Worksheets("Продукция").Cells(i + 10, 2).Value = r1!артикул_продукта

Worksheets("Продукция").Cells(i + 10, 3).Value = r1!Количество_шт

Worksheets("Продукция").Cells(i + 10, 4).Value = r1!Цена_за_шт

Worksheets("Продукция").Cells(i + 10, 5).Value = r1!Описание

i = i + 1

r1.MoveNext

Loop

Worksheets ("Продукция").Activate

End Sub

Кнопка «Контракты»

Программируется также как и кнопка «Продукция»

Private Sub CommandButton6_Click()

Set bd1 = OpenDatabase("C:\kontr\kontr.mdb")

Set r1 = bd1.OpenRecordset("Контракты")

Do While Not r1.EOF

Worksheets("Контракты").Cells(j+10,1).Value=r1!Наименование

Worksheets("Контракты ").Cells(j + 10, 2).Value = r1! Количество

Worksheets("Контракты ").Cells(j + 10, 3).Value = r1!Дата

Worksheets("Контракты ").Cells(j + 10, 4).Value = r1!Фирма

j = j + 1

r1.MoveNext

Loop

Worksheets("Контракты ").Activate

End Sub

Кнопка «Заполнить рекламу»

Private Sub CommandButton1_Click()

Set bd1 = OpenDatabase ("C:\kontr\kontr.mdb")

Set w1 = CreateObject ("Word.Application")

«Инициализация объекта Word»

w1.Documents.Open Filename:="C:\kontr\Реклама.doc"

«открытие документа Реклама.doc»

k = UserForm2.ComboBox1.Text

«Запись в переменную значения из списка»

s = "Select * from[Продукция] where[Наименование_продукта]=""" & k & """"

«SQL-запрос. Выбираем значения из таблицы «Продукция» из столбца «Наименование продукта» равное k»

Set r1 = bd1.OpenRecordset(s)

m = InputBox("Введите цену товара")

«сообщение с полем для ввода»

w1.Application.Visible = True

«Отобразить окно Word»

w1.WindowState = wdWindowStateMaximize

«Развернуть его»

w1.Documents("Реклама").TextBox1.Text=r1!Наименование_продукта «Заполнение полей ранее созданного шаблона в Word»

w1.Documents("Реклама ").TextBox2.Text = m

w1.Documents("Реклама ").TextBox3.Text = r1!Описание

End

End Sub

Кнопка «Принять заказ»

Private Sub CommandButton1_Click()

i = i + 1

«счётчик для нумерации счёт-фактур»

Sheets("Счёт-фактура").Range("k5")=i

«запись в ячейку номера счёт-фактуры»

tr = TextBox4.Text

«записываем значение из текстового поля в переменную»

tr1 = TextBox1.Text

If tr > tr1

«Then проверяем наличие продукции на предприятии»

MsgBox ("Недостаточно продукции на предприятии!")

Else

Sheets("Счёт-фактура").Range("c8") = ComboBox3.Value

«вписываем в ячейку с8 значение из списка (загружаем имя фирмы-заказчика)»

k2 = ComboBox3.Text

s2 = "Select * from[Заказчики] where[Фирма]=""" & k2 & """" «производим SQL-запрос в таблицу «Заказчики» базы данных, созданной в Access»

Set r3 = bd1.OpenRecordset(s2)

Set r2 = bd1.OpenRecordset(s2)

Sheets("Счёт-фактура").Range("c9") = r2!Адрес

«записываем значение из поля Адрес таблицы «Заказчики» в ячейку с9»

Sheets("Счёт-фактура").Range("c10") = r3!Контактный_телефон

Sheets("Счёт-фактура").Range("a13") = ComboBox1.Value

Sheets("Счёт-фактура").Range("b13") = TextBox3.Text

Sheets("Счёт-фактура").Range("c13") = TextBox4.Text

Sheets("Счёт-фактура").Range("d13") = TextBox2.Text

Sheets("Счёт-фактура").Range("e13") = (TextBox4.Text * TextBox2.Text) «запись и вычисление стоимость необходимой продукции»

Sheets("Счёт-фактура").Range("d18") = Date

«запись даты»

With r1

.Edit

!Количество_шт = !Количество_шт – Val(TextBox4.Text)

«работа с Access. Уменьшение количества продукции»

.Update

End With

Set bd1 = OpenDatabase("C:\kontr\kontr.mdb")

Set r4 = bd1.OpenRecordset("Контракты")

g = ComboBox1.Value

g1 = TextBox4.Text

g2 = ComboBox3.Value

With r4

.AddNew

«Добавление новых записей в таблицу «Контракты»»

'.Bookmark = .LastModified

!Наименование_продукта = g

!Количество = g1

!Дата = Date

!Фирма = g2

'.MoveNext

.Update

End With

End If

End Sub