Private Sub Связь7_Click()
If Me!Связь7 = "AND" Then
Me!Связь7 = "OR"
Else: Me!Связь7 = "AND"
End If
End Sub
Private Sub Связь8_Click()
If Me!Связь8 = "AND" Then
продолжение приложения 2
Me!Связь8 = "OR"
Else: Me!Связь8 = "AND"
Private Sub Связь9_Click()
If Me!Связь9 = "AND" Then
Me!Связь9 = "OR"
Else: Me!Связь9 = "AND"
Private Sub Связь10_Click()
If Me!Связь10 = "AND" Then
Me!Связь10 = "OR"
Else: Me!Связь10 = "AND"
Private Sub Поиск_Click()
Dim db As Database, rst As Recordset
Dim lngCount As Long, intRtn As Integer
Dim S As String, gstrWhereBook As String
'Очистка главной строки фильтра
gstrWhereBook = ""
DoCmd.Hourglass False
'Проверка поля ББК и создание условия
If Not IsNull(Me!ББК) Then
gstrWhereBook = "[ББК] Like " & Chr$(34) & Me!ББК
gstrWhereBook = gstrWhereBook & Chr$(34)
'Проверка поля Название и создание условия
If Not IsNull(Me!Название) Then
If gstrWhereBook = "" Then
gstrWhereBook = " [Название книги] LIKE " & Chr$(34) & Me!Название
Else: gstrWhereBook = gstrWhereBook & " " & Me![Связь3] & " [Название книги] LIKE " & Chr$(34) & Me!Название
If Right$(Me!Название, 1) = "*" Then
Else: gstrWhereBook = gstrWhereBook & "*" & Chr$(34)
'Проверка поля Автор и создание условия
If Not IsNull(Me!Автор) Then
gstrWhereBook = " [Автор] LIKE " & Chr$(34) & Me!Автор
Else: gstrWhereBook = gstrWhereBook & " " & Me![Связь4] & " [Автор] LIKE " & Chr$(34) & Me!Автор
If Right$(Me!Автор, 1) = "*" Then
'Проверка поля Другие авторы и создание условия
If Not IsNull(Me![Другие авторы]) Then
gstrWhereBook = " [Другие авторы] LIKE " & Chr$(34) & Me![Другие авторы]
Else: gstrWhereBook = gstrWhereBook & " " & Me![Связь5] & " [Другие авторы] LIKE " & _
Chr$(34) & Me![Другие авторы]
If Right$(Me![Другие авторы], 1) = "*" Then
'Проверка поля Ответственность и создание условия
If Not IsNull(Me![Ответственность]) Then
gstrWhereBook = " [Ответственность] LIKE " & Chr$(34) & Me![Ответственность]
Else: gstrWhereBook = gstrWhereBook & " " & Me![Связь6] & " [Ответственность] LIKE " & _
Chr$(34) & Me![Ответственность]
If Right$(Me![Ответственность], 1) = "*" Then
Построение строки IN для кода типа книги
If Not IsNull(Me![Материал]) Then
gstrWhereBook = " [ТипИздания] LIKE " & Chr$(34) & Me![Материал]
Else: gstrWhereBook = gstrWhereBook & " " & " AND [ТипИздания] LIKE " & _
Chr$(34) & Me![Материал]
If Right$(Me![Материал], 1) = "*" Then
'Проверка поля Номер тома и создание условия
If Not IsNull(Me![Номер тома]) Then
gstrWhereBook = " [Номер тома/книги] LIKE " & Chr$(34) & Me![Номер тома]
Else: gstrWhereBook = gstrWhereBook & " " & Me![Связь7] & " [Номер тома/книги] LIKE " & _
Chr$(34) & Me![Номер тома]
If Right$(Me![Номер тома], 1) = "*" Then
'Проверка поля Название тома и создание условия
If Not IsNull(Me![Название тома]) Then
gstrWhereBook = " [Название тома/книги] LIKE " & Chr$(34) & Me![Название тома]
Else: gstrWhereBook = gstrWhereBook & " " & Me![Связь8] & " [Название тома/книги] LIKE " & _
Chr$(34) & Me![Название тома]
If Right$(Me![Название тома], 1) = "*" Then
MsgBox "Условий не задано.", vbExclamation, "Фильтр"
'ExitSub
'Проверка поля Ответственность за том и создание условия
If Not IsNull(Me![Ответственность за том]) Then
gstrWhereBook = " [Ответственность за том] LIKE " & Chr$(34) & Me![Ответственность за том]
Else: gstrWhereBook = gstrWhereBook & " " & Me![Связь9] & " [Ответственность за том] LIKE " & _
Chr$(34) & Me![Ответственность за том]
If Right$(Me![Ответственность за том], 1) = "*" Then
'Проверка поля "Серия" и создание условия
If Not IsNull(Me![Название серии]) Then
gstrWhereBook = " [Название серии] LIKE " & Chr$(34) & Me![Название серии]
Else: gstrWhereBook = gstrWhereBook & " " & Me![Связь10] & " [Название серии] LIKE " & _
Chr$(34) & Me![Название серии]
If Right$(Me![Название серии], 1) = "*" Then
'Поиск на основе построенного запроса
Me.Visible = False
DoCmd.Hourglass True
If IsLoaded("Издание") Then
Forms![Издание].SetFocus
DoCmd.ApplyFilter , gstrWhereBook
If Forms![Издание].RecordsetClone.RecordCount = 0 Then
MsgBox "Нет книг, удовлетворяющих вашим условиям", vbExclamation, "Фильтр"
DoCmd.ShowAllRecords
'Forms![Форма ввода библиографического описания издания].Visiable = False
Me.Visible = True
Exit Sub
Else
Set db = CurrentDb
Set rst = db.OpenRecordset( _
"SELECT DISTINCTROW " & _
"ШИФРЫ.[Идентификатор издания] " & _
"FROM [Издание] " & _
"WHERE " & gstrWhereBook & ";")
If rst.RecordCount = 0 Then
rst.Close
'Переход к последней строке для получения числа записей
rst.MoveLast
lngCount = rst.RecordCount
Если найдено более 10 записей - запрос на просмотр только кратких сведений о книгах
If lngCount > 10 Then
intRtn = MsgBox("Найдено более 10 книг. " & _
"Нажмите Да для просмотра кратких сведений о " & lngCount & _
"найденных книгах," & _
" или Нет - для просмотра полных сведений об этих книгах." & _
" Нажав Отмена Вы предпримете новую попытку поиска", _
vbInformation + vbYesNoCancel, "Фильтр")
Select Case intRtn
Case vbCancel
Case vbYes
DoCmd.OpenForm _
FormName:="Краткие сведения о книгах", _
WhereCondition:=gstrWhereBook
DoCmd.Close acForm, Me.Name
Forms![Краткие сведения о книгах].SetFocus
End Select
'Если нажата кнопка Нет или найдено менее 10 книг,
' Отображаем полные данные
FormName:="Издание", _
'If Not IsNull(Автор) Then
' Forms![Издание]![Вкладка100] = 1
' End If
' Закрываем форму
Листинг программы формы “Читательский формуляр”
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:
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
On Error GoTo Err_Поиск_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Поиск_Click:
Err_Поиск_Click:
Resume Exit_Поиск_Click
Private Sub Формуляр_DblClick(Cancel As Integer)
'Фильтр по введенному номеру читательского формуляра
Dim strFilter As String
strFilter = Me![Формуляр]
Me.Filter = "[Номер читательского формуляра]= " & strFilter
Me.FilterOn = True
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:
Err_Добавление_Click:
Resume Exit_Добавление_Click
Листинг программы формы “Список литературы”
Private Sub Номер_формуляра_AfterUpdate()
Dim Cancel As Integer
strFilter = Me![Номер формуляра]
Me.Filter = "[Номер читательского формуляра]>= " & strFilter
Private Sub Формуляр_Click()
On Error GoTo Err_Формуляр_Click
Exit_Формуляр_Click:
Err_Формуляр_Click:
Resume Exit_Формуляр_Click
'Открываем форму "Сведения о читателях" для добавления новой записи
DoCmd.OpenForm stDocName
DoCmd.GoToRecord , , acNewRec
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
Exit_Кнопка15_Click:
Err_Кнопка15_Click:
Resume Exit_Кнопка15_Click
Private Sub Formular_Click()
On Error GoTo Err_Formular_Click
stDocName = "Читательский формуляр"
Exit_Formular_Click:
Err_Formular_Click:
Resume Exit_Formular_Click
Список литературы
“С компьютером на ты”: Методическое пособие для библиотек по информационным технологиям и Интернет. Вып. 3./ Ред.-сост. Л.А. Казаченкова. - М.: Либерея, 2000. -112 с.
Цветкова И.Б. Лингвистическое обеспечение библиотечных информационных ресурсов// Доклад, Всероссийское совещание директоров федеральных и региональных библиотек России. М., 1999.
Российский коммуникативный формат представления библиографических записей в машиночитаемой форме(Рос. вариант UNIMARC)/ И. Б. Цветкова и др.; М-во культуры PФ, Рос. библ. ассоц. - СПб.: Изд-во РНБ, 1998.
Вейскас Д. Эффективная работа с Microsoft Access 97. - СПб.: Издательство “Питер”, 2000. - 976 с.: ил.
Учебно-методическое пособие по курсу “Учебно-методическое пособие по курсу технико-экономическое проектирование”. Сост. Ю.В. Брусницын, А.Н. Гармаш. - Таганрог, ТРТУ, 1998 г. - 35 с.
Охрана труда в вычислительных центрах: Учебное пособие для учащихся средних специальных учебных заведений по специальности “Программирование для быстродействующих математических машин”/ Ю. Г. Сибаров, Н.Н. Нагинаев. - М.: Машиностроение, 1985. - 176 с., ил.
Белах Н.В., Петраков Н.Я., Русаков В. П. Доходы, предложения и цены -- проблема сбалансированности//Изв. АН СССР. Сер. экон. 1982. № 2. С. 71-77.
Охрана труда в радио- и электронной промышленности: Учебник для техникумов. - 2-е изд., перераб. и доп. / С.П. Павлов, Л.С. Виноградов, Н.Ф. Крылова и др.; Под ред. С.П. Павлова. - М.: Радио и связь, 1985. - 200 с., ил.
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
