46695 (588433), страница 12
Текст из файла (страница 12)
"FROM [Издание] " & _
"WHERE " & gstrWhereBook & ";")
If rst.RecordCount = 0 Then
DoCmd.Hourglass False
MsgBox "Нет книг, удовлетворяющих вашим условиям", vbExclamation, "Фильтр"
gstrWhereBook = ""
Me.Visible = True
rst.Close
Exit Sub
End If
'Переход к последней строке для получения числа записей
rst.MoveLast
lngCount = rst.RecordCount
DoCmd.Hourglass False
Если найдено более 10 записей - запрос на просмотр только кратких сведений о книгах
If lngCount > 10 Then
intRtn = MsgBox("Найдено более 10 книг. " & _
"Нажмите Да для просмотра кратких сведений о " & lngCount & _
"найденных книгах," & _
" или Нет - для просмотра полных сведений об этих книгах." & _
" Нажав Отмена Вы предпримете новую попытку поиска", _
vbInformation + vbYesNoCancel, "Фильтр")
Select Case intRtn
Case vbCancel
Me.Visible = True
Exit Sub
Case vbYes
DoCmd.OpenForm _
FormName:="Краткие сведения о книгах", _
WhereCondition:=gstrWhereBook
DoCmd.Close acForm, Me.Name
Forms![Краткие сведения о книгах].SetFocus
Exit Sub
End Select
End If
'Если нажата кнопка Нет или найдено менее 10 книг,
' Отображаем полные данные
DoCmd.OpenForm _
FormName:="Издание", _
WhereCondition:=gstrWhereBook
'If Not IsNull(Автор) Then
' Forms![Издание]![Вкладка100] = 1
' End If
продолжение приложения 2
End If
' Закрываем форму
DoCmd.Close acForm, Me.Name
End Sub
Листинг программы формы “Читательский формуляр”
Option Compare Database
Option Explicit
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
'Просмотр сведений о читателях
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Сведения о читателях"
stLinkCriteria = "[Номер читательского формуляра]=" & Me![Номер читательского формуляра]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Private Sub Поиск_Click()
On Error GoTo Err_Поиск_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
продолжение приложения 2
Exit_Поиск_Click:
Exit Sub
Err_Поиск_Click:
MsgBox Err.Description
Resume Exit_Поиск_Click
End Sub
Private Sub Формуляр_DblClick(Cancel As Integer)
'Фильтр по введенному номеру читательского формуляра
Dim strFilter As String
strFilter = Me![Формуляр]
Me.Filter = "[Номер читательского формуляра]= " & strFilter
Me.FilterOn = True
End Sub
Private Sub Добавление_Click()
On Error GoTo Err_Добавление_Click
Dim frm As Form
'Открытие формы как скрытой
DoCmd.OpenForm "Ввод записи в формуляр читателя", acNormal, , , , acHidden
'Присвоение переменной ссылки на форму
Set frm = Forms![Ввод записи в формуляр читателя]
'Копирование данных в форму
frm![Номер читательского формуляра] = Me![Номер читательского формуляра]
frm![Инвентарный номер книги].SetFocus
'вывод скрытой формы
frm.Visible = True
Exit_Добавление_Click:
Exit Sub
Err_Добавление_Click:
MsgBox Err.Description
Resume Exit_Добавление_Click
End Sub
Листинг программы формы “Список литературы”
Option Compare Database
Option Explicit
Private Sub Номер_формуляра_AfterUpdate()
Dim Cancel As Integer
Dim strFilter As String
strFilter = Me![Номер формуляра]
Me.Filter = "[Номер читательского формуляра]>= " & strFilter
Me.FilterOn = True
End Sub
Private Sub Формуляр_Click()
On Error GoTo Err_Формуляр_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Сведения о читателях"
stLinkCriteria = "[Номер читательского формуляра]=" & Me![Номер читательского формуляра]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Формуляр_Click:
продолжение приложения 2
Exit Sub
Err_Формуляр_Click:
MsgBox Err.Description
Resume Exit_Формуляр_Click
End Sub
Private Sub Добавление_Click()
On Error GoTo Err_Добавление_Click
Dim stDocName As String
stDocName = "Сведения о читателях"
'Открываем форму "Сведения о читателях" для добавления новой записи
DoCmd.OpenForm stDocName
DoCmd.GoToRecord , , acNewRec
Exit_Добавление_Click:
Exit Sub
Err_Добавление_Click:
MsgBox Err.Description
Resume Exit_Добавление_Click
End Sub
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
Private Sub Поиск_Click()
On Error GoTo Err_Поиск_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Поиск_Click:
Exit Sub
Err_Поиск_Click:
MsgBox Err.Description
Resume Exit_Поиск_Click
End Sub
Private Sub Formular_Click()
On Error GoTo Err_Formular_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Читательский формуляр"
stLinkCriteria = "[Номер читательского формуляра]=" & Me![Номер читательского формуляра]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Formular_Click:
Exit Sub
Err_Formular_Click:
MsgBox Err.Description
Resume Exit_Formular_Click
End Sub
Список литературы
-
“С компьютером на ты”: Методическое пособие для библиотек по информационным технологиям и Интернет. Вып. 3./ Ред.-сост. Л.А. Казаченкова. – М.: Либерея, 2000. –112 с.
-
Цветкова И.Б. Лингвистическое обеспечение библиотечных информационных ресурсов// Доклад, Всероссийское совещание директоров федеральных и региональных библиотек России. М., 1999.
-
Российский коммуникативный формат представления библиографических записей в машиночитаемой форме(Рос. вариант UNIMARC)/ И. Б. Цветкова и др.; М-во культуры PФ, Рос. библ. ассоц. – СПб.: Изд-во РНБ, 1998.
-
Вейскас Д. Эффективная работа с Microsoft Access 97. – СПб.: Издательство “Питер”, 2000. – 976 с.: ил.
-
Учебно-методическое пособие по курсу “Учебно-методическое пособие по курсу технико-экономическое проектирование”. Сост. Ю.В. Брусницын, А.Н. Гармаш. – Таганрог, ТРТУ, 1998 г. - 35 с.
-
Охрана труда в вычислительных центрах: Учебное пособие для учащихся средних специальных учебных заведений по специальности “Программирование для быстродействующих математических машин”/ Ю. Г. Сибаров, Н.Н. Нагинаев. – М.: Машиностроение, 1985. – 176 с., ил.
-
Белах Н.В., Петраков Н.Я., Русаков В. П. Доходы, предложения и цены — проблема сбалансированности//Изв. АН СССР. Сер. экон. 1982. № 2. С. 71-77.
-
Охрана труда в радио- и электронной промышленности: Учебник для техникумов. – 2-е изд., перераб. и доп. / С.П. Павлов, Л.С. Виноградов, Н.Ф. Крылова и др.; Под ред. С.П. Павлова. – М.: Радио и связь, 1985. – 200 с., ил.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
