Разработка базы данных “Автосалон АЛМАЗ” с помощью программы Microsoft Access

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение  А

(обязательное)

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

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

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 

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