Создание информационной модели
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферат на тему язык, матершинные частушки
Добавил(а) на сайт: Ignat'ev.
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
Private Sub Кнопка18_Click()
On Error GoTo Err_Кнопка18_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Кнопка18_Click:
Exit Sub
Err_Кнопка18_Click:
MsgBox Err.Description
Resume Exit_Кнопка18_Click
End Sub
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
Dim stDocName As String
stDocName = "Запрос1"
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
Форма “ТОВАР”
Option Compare Database
Option Explicit
Sub ПолеСоСписком18_AfterUpdate()
' Поиск записи, соответствующей этому элементу управления.
Me.RecordsetClone.FindFirst "[Name_tovar] = '" & Me![ПолеСоСписком18] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Private Sub Кнопка25_Click()
On Error GoTo Err_Кнопка25_Click
DoCmd.Close
Exit_Кнопка25_Click:
Exit Sub
Err_Кнопка25_Click:
MsgBox Err.Description
Resume Exit_Кнопка25_Click
End Sub
Форма “О ПРОГРАММЕ”
Option Compare Database ' Сортировка базы данных для сравнения строк.
Option Explicit ' Обязательное описание переменных перед применением.
Private Sub Отмена_Click()
' Программа, созданная мастером кнопок.
Рекомендуем скачать другие рефераты по теме: сочинения по литературе, развитие россии реферат.
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата