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

Dim stLinkCriteria As String

stDocName = ChrW(1040) & ChrW(1082) & ChrW(1090) & ChrW(1105) & ChrW(1088)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_New_Actor_Click:

Exit Sub

Err_New_Actor_Click:

MsgBox Err.Description

Resume Exit_New_Actor_Click

End Sub

Private Sub Êíîïêà23_Click()

On Error GoTo Err_Êíîïêà23_Click

DoCmd.Close

Exit_Êíîïêà23_Click:

Exit Sub

Err_Êíîïêà23_Click:

MsgBox Err.Description

Resume Exit_Êíîïêà23_Click

End Sub

Private Sub Êíîïêà25_Click()

On Error GoTo Err_Êíîïêà25_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1046) & ChrW(1072) & ChrW(1085) & ChrW(1088)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Êíîïêà25_Click:

Exit Sub

Err_Êíîïêà25_Click:

MsgBox Err.Description

Resume Exit_Êíîïêà25_Click