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

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