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

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