Приложение 4. Программное обеспечение формы формирования квитанции выдачи товара” (Kvit_Out / Kvit_Out_f)

Option Compare Database

Dim bs As Database ' База данных

Dim tab_01, tab_02, tab_03, tab_04 As Recordset ' Таблица базы данных

' Добавить товар в квитанцию выдачи

Private Sub Add_Tov_Click()

Call B_Add_Out_Click ' Добавить отпущенный товар

Call B_Rec_Out_Click ' Изменить количество товара и его стоимость в таблицах БД

End Sub

' Закрытие формы

Private Sub B_Close_Click()

On Error GoTo Err_B_Close_Click

DoCmd.Close

Exit_B_Close_Click:

Exit Sub

Err_B_Close_Click:

MsgBox Err.Description

Resume Exit_B_Close_Click

End Sub

' Открытие формы

Private Sub Form_Open(Cancel As Integer)

Set bs = CurrentDb ' bs := текущую базу данных ("Sklad")

Set tab_01 = bs.OpenRecordset("Kvit_Out") ' tab_01 связать с таблицей "Kvit_Out"

tab_01.MoveLast ' Встать на последнюю запись таблицы "Kvit_Out"

tab_01.AddNew ' Добавить запись в таблицу "Kvit_Out"

' tab_01.Edit

tab_01.Fields(1).Value = Date + Time ' Вставить текущую дату/время

tab_01.Fields(2).Value = 1 ' Вставить в запись 1-го кладовщика (по умолчанию)

tab_01.Fields(3).Value = 0 ' Обнулить поле Itogo

tab_01.Update ' Обновить результаты редактирования таблицы "Kvit_Out"

Sel_Tov.SetFocus

Refresh ' Отобразить на форме результаты редактирования

DoCmd.GoToRecord , "", acLast ' Отобразить на форме последнюю запись

End Sub

' Печать отчета

Private Sub B_Pr_Kvit_Out_Click()

On Error GoTo Err_B_Pr_Kvit_Out_Click

Dim stDocName As String

Sel_Kladov.SetFocus ' Установка фокуса на списке кладовщиков

stDocName = "Kvit_Tovar_Out_F"

DoCmd.OpenReport stDocName, acNormal

B_Pr_Kvit_Out.SetFocus ' Установка фокуса на кнопке печати отчета

Exit_B_Pr_Kvit_Out_Click:

Exit Sub

Err_B_Pr_Kvit_Out_Click:

MsgBox Err.Description

Resume Exit_B_Pr_Kvit_Out_Click

End Sub

' Просмотр отчета

Private Sub B_Kvit_Out_F_Click()

On Error GoTo Err_B_Kvit_Out_F_Click

Dim stDocName As String

Sel_Kladov.SetFocus ' Установка фокуса на списке кладовщиков

stDocName = "Kvit_Tovar_Out_F"

DoCmd.OpenReport stDocName, acPreview

B_Kvit_Out_F.SetFocus ' Установка фокуса на кнопке просмотра отчета

Exit_B_Kvit_Out_F_Click:

Exit Sub

Err_B_Kvit_Out_F_Click:

MsgBox Err.Description

Resume Exit_B_Kvit_Out_F_Click

End Sub

' Изменение в списке товаров

Private Sub Sel_Tov_Change()

Sel_Tov.SetFocus

Refresh

B_Add_Kvit.SetFocus

End Sub

' Добавить запись в таблицу Output

Private Sub B_Add_Out_Click()

On Error GoTo Err_B_Add_Out_Click

Dim stDocName As String

stDocName = "Add_Out"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_B_Add_Out_Click:

Exit Sub

Err_B_Add_Out_Click:

MsgBox Err.Description

Resume Exit_B_Add_Out_Click

End Sub

' Обновить в таблицах БД количество товара и его стоимость в табл. Kvit_Out

Private Sub B_Rec_Out_Click()

On Error GoTo Err_B_Rec_Out_Click

Dim stDocName As String

stDocName = "Obn_Kol_TO"

Sel_Tov.SetFocus ' Установить фокус на списке товаров

DoCmd.OpenQuery stDocName, acNormal, acEdit

B_Add_Out.SetFocus ' Установить фокус на кнопке "Добавить выданный товар"

Exit_B_Rec_Out_Click:

Refresh

Exit Sub

Err_B_Rec_Out_Click:

MsgBox Err.Description

Resume Exit_B_Rec_Out_Click

End Sub