Листинг разработанного программного обеспечения.

Форма Автомобили (в наличии)

Option Compare Database

 

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

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

 

DoCmd.GoToRecord , , acNewRec

 

Exit_Кнопка24_Click:

Exit Sub

 

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

 

End Sub

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

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

 

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

 

Exit_Кнопка25_Click:

Exit Sub

 

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

 

End Sub

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

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

 

DoCmd.Close

 

Exit_Кнопка26_Click:

Form_Форма1.Refresh

Exit Sub

 

Err_Кнопка26_Click:

MsgBox Err.Description

Resume Exit_Кнопка26_Click

 

End Sub

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

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

 

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

 

Exit_Кнопка27_Click:

Exit Sub

 

Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

 

End Sub

 

Форма Автосалон

Option Compare Database

 

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

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

 

Dim stDocName As String

Dim stLinkCriteria As String

 

stDocName = "Автомобили (в наличии)1"

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 = "Продажа1"

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

 

stDocName = "Продажа"

DoCmd.OpenReport stDocName, acPreview

 

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

 

stDocName = "Запрос на остаток машин1"

DoCmd.OpenReport stDocName, acPreview

 

Exit_Кнопка3_Click:

Exit Sub

 

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

 

End Sub

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

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

 

Dim stDocName As String

Dim stLinkCriteria As String

 

stDocName = "Форма1"

DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка4_Click:

Exit Sub

 

Err_Кнопка4_Click:

MsgBox Err.Description

Resume Exit_Кнопка4_Click

 

End Sub

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

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

 

Dim stDocName As String

Dim stLinkCriteria As String

 

stDocName = "Сотрудники"

DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка6_Click:

Exit Sub

 

Err_Кнопка6_Click:

MsgBox Err.Description

Resume Exit_Кнопка6_Click

 

End Sub

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

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

 

DoCmd.Quit

 

Exit_Кнопка8_Click:

Exit Sub

 

Err_Кнопка8_Click:

MsgBox Err.Description

Resume Exit_Кнопка8_Click

 

End Sub

 

Форма Должность

Option Compare Database

 

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

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

 

DoCmd.GoToRecord , , acNewRec

 

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

 

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

 

Exit_Кнопка3_Click:

Exit Sub

 

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

 

End Sub

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

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

 

DoCmd.ShowAllRecords

DoCmd.Close

 

Exit_Кнопка4_Click:

Form_Сотрудники.Refresh

Exit Sub

 

Err_Кнопка4_Click:

MsgBox Err.Description

Resume Exit_Кнопка4_Click

 

End Sub

 

Форма подчиненная Автомобили (в наличии)

Option Compare Database

 

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

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

 

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

 

Exit_Кнопка22_Click:

Exit Sub

 

Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

 

End Sub

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

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

 

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

 

Exit_Кнопка23_Click:

Exit Sub

 

Err_Кнопка23_Click:

MsgBox Err.Description

Resume Exit_Кнопка23_Click

 

End Sub

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

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

 

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

 

Exit_Кнопка24_Click:

Exit Sub

 

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

 

End Sub

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

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

 

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

 

Exit_Кнопка25_Click:

Exit Sub

 

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

 

End Sub

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

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

 

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

 

Exit_Кнопка26_Click:

Exit Sub

 

Err_Кнопка26_Click:

MsgBox Err.Description

Resume Exit_Кнопка26_Click

 

End Sub

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

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

 

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

 

Exit_Кнопка27_Click:

Exit Sub

 

Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

 

End Sub

 

Форма Продажа

ption Compare Database

 

Sub Form_Load()

On Error GoTo Form_Load_Err

 

If ParentFormIsOpen() Then Forms![Автомобили (в наличии)2]!ToggleLink = True

 

Form_Load_Exit:

Exit Sub

 

Form_Load_Err:

MsgBox Error$

Resume Form_Load_Exit

 

End Sub

Sub Form_Unload(Cancel As Integer)

On Error GoTo Form_Unload_Err

 

If ParentFormIsOpen() Then Forms![Автомобили (в наличии)2]!ToggleLink = False

 

Form_Unload_Exit:

Exit Sub

 

Form_Unload_Err:

MsgBox Error$

Resume Form_Unload_Exit

 

End Sub

Private Function ParentFormIsOpen()

 

ParentFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Автомобили (в наличии)2") And acObjStateOpen) <> False

 

End Function

 

Форма Продажа1

Option Compare Database

 

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

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

 

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

 

Exit_Кнопка20_Click:

Exit Sub

 

Err_Кнопка20_Click:

MsgBox Err.Description

Resume Exit_Кнопка20_Click

 

End Sub

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

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

 

DoCmd.Close

 

Exit_Кнопка22_Click:

Exit Sub

 

Err_Кнопка22_Click:

MsgBox Err.Description

Resume Exit_Кнопка22_Click

 

End Sub

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

Код_автомобиля.SetFocus

 

'DoCmd.RunSQL "INSERT INTO Продажа (Код_автомобиля,Дата_продажи,Фамилия_покупателя,Имя_покупателя,Отчество_покупателя,Город,Адрес,Паспортные_данные,Телефон) VALUES (Val(" + Код_автомобиля + "),CDate(" + Дата_продажи + ")," + Фамилия_покупателя + "," + Имя_покупателя + "," + Отчество_покупателя + "," + Город + "," + Адрес + ",Val(" + Паспортные_данные + "),Val(" + Телефон + "))"

 

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

 

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Dim stDocName As String

 

stDocName = "Продажа"

DoCmd.OpenReport stDocName, acPreview

DoCmd.RunSQL "DELETE FROM [Автомобили (в наличии)] WHERE Код_автомобиля=Val(" + Код_автомобиля.Text + ")"

 

Exit_Кнопка23_Click:

Exit Sub

 

Err_Кнопка23_Click:

MsgBox Err.Description

Resume Exit_Кнопка23_Click

 

End Sub

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

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

 

DoCmd.GoToRecord , , acNewRec

 

Exit_Кнопка24_Click:

Exit Sub

 

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

 

End Sub

 

Private Sub подчиненная_форма_Автомобили__в_наличии_1_Enter()

 

End Sub

 

Форма Производитель

Option Compare Database

 

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

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

 

DoCmd.GoToRecord , , acNewRec

 

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

 

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

 

Exit_Кнопка3_Click:

Exit Sub

 

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

 

End Sub

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

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

 

DoCmd.Close

DoCmd.ShowAllRecords

 

Exit_Кнопка4_Click:

Form_Форма1.Refresh

Exit Sub

 

Err_Кнопка4_Click:

MsgBox Err.Description

Resume Exit_Кнопка4_Click

 

End Sub

 

Форма Сотрудники

Option Compare Database

 

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

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

 

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

 

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

 

DoCmd.GoToRecord , , acNewRec

 

Exit_Кнопка13_Click:

Exit Sub

 

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

 

End Sub

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

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

 

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

 

Exit_Кнопка14_Click:

Exit Sub

 

Err_Кнопка14_Click:

MsgBox Err.Description

Resume Exit_Кнопка14_Click

 

End Sub

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

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

 

DoCmd.Close

 

Exit_Кнопка15_Click:

Exit Sub

 

Err_Кнопка15_Click:

MsgBox Err.Description

Resume Exit_Кнопка15_Click

 

End Sub

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

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

 

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

 

Exit_Кнопка16_Click:

Exit Sub

 

Err_Кнопка16_Click:

MsgBox Err.Description

Resume Exit_Кнопка16_Click

 

End Sub

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

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

 

Dim stDocName As String

Dim stLinkCriteria As String

 

DoCmd.ShowAllRecords

 

stDocName = "Должность"

DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка17_Click:

Exit Sub

 

Err_Кнопка17_Click:

MsgBox Err.Description

Resume Exit_Кнопка17_Click

 

End Sub

 

Форма Форма1

Option Compare Database

 

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

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

 

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

 

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

 

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

 

Exit_Кнопка3_Click:

Exit Sub

 

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

 

End Sub

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

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

 

Dim stDocName As String

Dim stLinkCriteria As String

 

DoCmd.ShowAllRecords

 

stDocName = "Автомобили (в наличии)1"

DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка5_Click:

Exit Sub

 

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

 

End Sub

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

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

 

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

 

Exit_Кнопка6_Click:

Exit Sub

 

Err_Кнопка6_Click:

MsgBox Err.Description

Resume Exit_Кнопка6_Click

 

End Sub

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

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

 

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

 

Exit_Кнопка7_Click:

Exit Sub

 

Err_Кнопка7_Click:

MsgBox Err.Description

Resume Exit_Кнопка7_Click

 

End Sub

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

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

 

DoCmd.Close

 

Exit_Кнопка8_Click:

Exit Sub

 

Err_Кнопка8_Click:

MsgBox Err.Description

Resume Exit_Кнопка8_Click

 

End Sub

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

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

 

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

 

Exit_Кнопка9_Click:

Exit Sub

 

Err_Кнопка9_Click:

MsgBox Err.Description

Resume Exit_Кнопка9_Click

 

End Sub

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

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

 

Dim stDocName As String

Dim stLinkCriteria As String

 

stDocName = "Производитель"

DoCmd.OpenForm stDocName, , , stLinkCriteria

 

Exit_Кнопка13_Click:

Exit Sub

 

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

 

End Sub