Курсовая работа: База даних фільмотеки розробка проекту

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

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

DoCmd.Close

Exit_Кнопка16_Click:

Exit Sub

Err_Кнопка16_Click:

MsgBox Err.Description

Resume Exit_Êíîïêà16_Click

End Sub

Private Sub Код_Диска_BeforeUpdate(Cancel As Integer)

End Sub

Form_ Фильм

Option Compare Database

Private Sub Form_Load()

End Sub

Private Sub New_Producer_Click()

On Error GoTo Err_New_Producer_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1056) & ChrW(1077) & ChrW(1078) & ChrW(1080) & ChrW(1089) & ChrW(1089) & ChrW(1077) & ChrW(1088)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_New_Producer_Click:

Exit Sub

Err_New_Producer_Click:

MsgBox Err.Description

Resume Exit_New_Producer_Click

End Sub

Private Sub New_Actor_Click()

On Error GoTo Err_New_Actor_Click