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

' Формирование таблиц списания

Private Sub B_Tab_Akt_Click()

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

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

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

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

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

tab_01.AddNew

tab_01.Fields(1).Value = Date

tab_01.Fields(2).Value = ind_Kladov.Value

tab_01.Update

' Добавить таблицу просроченных товаров (Prosrotch)

Call B_Add_Tov_Click

' Удалить из таблиц Input, Mesto_Cran, Tovar просроченные товары

Call B_Del_Tov_Click

End Sub

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

Private Sub Form_Open(Cancel As Integer)

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

Sel_Kladov.ListIndex = 0 ' Выбрать 1-го кладовщика из списка

B_Prosro.SetFocus ' Установить фокус на кнопке "Обновить на контрольную дату"

End Sub

' Просмотреть Акт списания просроченных товаров

Private Sub B_Akt_Spis_Click()

On Error GoTo Err_B_Akt_Spis_Click

Dim stDocName As String

stDocName = "Akt_Spis"

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

DoCmd.OpenReport stDocName, acPreview

Exit_B_Akt_Spis_Click:

Refresh ' Обновить форму

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

Exit Sub

Err_B_Akt_Spis_Click:

MsgBox Err.Description

Resume Exit_B_Akt_Spis_Click

End Sub

' Напечатать отчет о просроченных товарах

Private Sub B_Prin_Prosr_Click()

On Error GoTo Err_B_Prin_Prosr_Click

Dim stDocName As String

stDocName = "Prosr_Tov"

DoCmd.OpenReport stDocName, acNormal

Exit_B_Prin_Prosr_Click:

Exit Sub

Err_B_Prin_Prosr_Click:

MsgBox Err.Description

Resume Exit_B_Prin_Prosr_Click

End Sub

' Напечатать Акт списания

Private Sub B_Prin_Akt_Click()

On Error GoTo Err_B_Prin_Akt_Click

Dim stDocName As String

stDocName = "Akt_Spis"

DoCmd.OpenReport stDocName, acNormal

Exit_B_Prin_Akt_Click:

Exit Sub

Err_B_Prin_Akt_Click:

MsgBox Err.Description

Resume Exit_B_Prin_Akt_Click

End Sub

' Добавить таблицу просроченных товаров (Prosrotch)

Private Sub B_Add_Tov_Click()

On Error GoTo Err_B_Add_Tov_Click

Dim stDocName As String

stDocName = "Add_Prosrotch"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_B_Add_Tov_Click:

Exit Sub

Err_B_Add_Tov_Click:

MsgBox Err.Description

Resume Exit_B_Add_Tov_Click

End Sub

' Удалить списанный товар из таблиц БД

Private Sub B_Del_Tov_Click()

On Error GoTo Err_B_Del_Tov_Click

Dim stDocName As String

stDocName = "Del_Tov"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_B_Del_Tov_Click:

Refresh

Exit Sub

Err_B_Del_Tov_Click:

MsgBox Err.Description

Resume Exit_B_Del_Tov_Click

End Sub

' Удалить списанный товар из таблиц БД

Private Sub B_Prosr_Tov_Click()

On Error GoTo Err_B_Prosr_Tov_Click

Dim stDocName As String

stDocName = "Prosr_Tov"

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

DoCmd.OpenReport stDocName, acPreview

Exit_B_Prosr_Tov_Click:

Refresh ' Обновить форму

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

Exit Sub

Err_B_Prosr_Tov_Click:

MsgBox Err.Description

Resume Exit_B_Prosr_Tov_Click

End Sub

' Обновить на контрольную дату

Private Sub B_Prosro_Click()

On Error GoTo Err_B_Prosro_Click

Dim stDocName As String

stDocName = "Prosr_Tov"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_B_Prosro_Click:

Refresh ' Обновить форму под контрольную дату

DoCmd.Close ' Закрыть окно таблицы запроса

Exit Sub

Err_B_Prosro_Click:

MsgBox Err.Description

Resume Exit_B_Prosro_Click

End Sub