Запросы

Запрос (запрос на выборку)

SELECT [Выдача заявок].[Номер заявки], [Выдача заявок].[Оплата наличными], [Выдача заявок].[Дата оплаты], [Выдача заявок].[Документ выдан], [Выдача заявок].Примечания, [Выдача заявок].[Оплаченная сумма]

FROM [Выдача заявок]

WHERE ((([Выдача заявок].[Дата оплаты])=[Введите дату оплаты]));

Отчеты

Отчет по заявкам

Данный отчет служит для получения детальной информации по всем заявкам, находящимся в рассмотрении. А так же суммарные итоги по стоимостям изготовления

Отчет по выданным заявкам

Данный отчет служит для получения детальной информации по всем выданным заявкам, а так же суммарные итоги по оплаченным суммам.

Отчет по банковским данным заказчиков

Данный отчет служит для получения детальной информации обо всех данных на заказчиков и их банков.

Отчет про сотрудников работающих над заявками

Данный отчет служит для получения детальной информации про сотрудников работающих над заявками.

Листинг модулей и обработчиков событий

Option Compare Database

Private Sub Form_Load()

End Sub

Private Sub Кнопка0_Click()

On Error GoTo Err_Кнопка0_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1041) & ChrW(1072) & ChrW(1085) & ChrW(1082) & ChrW(1086) & ChrW(1074) & ChrW(1089) & ChrW(1082) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082) & ChrW(1072)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err.Description

Resume Exit_Кнопка0_Click

End Sub

Private Sub Кнопка1_Click()

On Error GoTo Err_Кнопка1_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1042) & ChrW(1099) & ChrW(1076) & ChrW(1072) & ChrW(1095) & ChrW(1072) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1103) & ChrW(1074) & ChrW(1086) & ChrW(1082)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка1_Click:

Exit Sub

Err_Кнопка1_Click:

MsgBox Err.Description

Resume Exit_Кнопка1_Click

End Sub

Private Sub Кнопка2_Click()

On Error GoTo Err_Кнопка2_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1103) & ChrW(1074) & ChrW(1082) & ChrW(1080)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_Click

End Sub

Private Sub Кнопка3_Click()

On Error GoTo Err_Кнопка3_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1057) & ChrW(1086) & ChrW(1090) & ChrW(1088) & ChrW(1091) & ChrW(1076) & ChrW(1085) & ChrW(1080) & ChrW(1082) & ChrW(1080) & ChrW(32) & ChrW(1088) & ChrW(1072) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1072) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(1076) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1103) & ChrW(1074) & ChrW(1082) & ChrW(1086) & ChrW(1081)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

End Sub

Private Sub Кнопка9_Click()

On Error GoTo Err_Кнопка9_Click

stDocName = ChrW(1041) & ChrW(1072) & ChrW(1085) & ChrW(1082) & ChrW(1086) & ChrW(1074) & ChrW(1089) & ChrW(1082) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1077) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082) & ChrW(1072)

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

End Sub

Private Sub Кнопка10_Click()

On Error GoTo Err_Кнопка10_Click

stDocName = ChrW(1042) & ChrW(1099) & ChrW(1076) & ChrW(1072) & ChrW(1095) & ChrW(1072) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1103) & ChrW(1074) & ChrW(1086) & ChrW(1082)

Exit_Кнопка10_Click:

Exit Sub

Err_Кнопка10_Click:

MsgBox Err.Description

Resume Exit_Кнопка10_Click

End Sub

Private Sub Кнопка11_Click()

On Error GoTo Err_Кнопка11_Click

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1103) & ChrW(1074) & ChrW(1082) & ChrW(1080)

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err.Description

Resume Exit_Кнопка11_Click

End Sub

Private Sub Кнопка12_Click()

On Error GoTo Err_Кнопка12_Click

stDocName = ChrW(1057) & ChrW(1086) & ChrW(1090) & ChrW(1088) & ChrW(1091) & ChrW(1076) & ChrW(1085) & ChrW(1080) & ChrW(1082) & ChrW(1080) & ChrW(32) & ChrW(1088) & ChrW(1072) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1072) & ChrW(1102) & ChrW(1097) & ChrW(1080) & ChrW(1077) & ChrW(32) & ChrW(1085) & ChrW(1072) & ChrW(1076) & ChrW(32) & ChrW(1079) & ChrW(1072) & ChrW(1103) & ChrW(1074) & ChrW(1082) & ChrW(1086) & ChrW(1081)

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub

Private Sub Кнопка13_Click()

On Error GoTo Err_Кнопка13_Click

If Me.Dirty Then Me.Dirty = False

DoCmd.Close

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

End Sub