на для виклику збереженої процедури, яка формує звіт, що містить інформацію про статті, які задовольняють критеріям пошуку. Критерій пошуку задається користувачем. Код обробки натиснення кнопки В«ЗнайтиВ»:
Private Sub Кнопка29_Click ()
Dim stDocName As Stringdbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСпіском ВІ 1. SetFocus = ПолеСоСпіском ВІ 1. Text = В«'В» + strdat + В«'В» = ChrW (100) & ChrW (98) & ChrW (111) & ChrW (95) & ChrW (1055) & ChrW (1077) & ChrW ( 1088) & ChrW (1080) & ChrW (1086) & ChrW (1076) & ChrW (1080) & ChrW (1095) & ChrW (1077) & ChrW (1089) & ChrW (1082) & ChrW (1080) & ChrW (1077) & ChrW (95) & ChrW (1080) & ChrW (1079) & ChrW (1076) & ChrW (1072) & ChrW (1085) & ChrW (1080) & ChrW (1103) = В«SELECT dbo_Періодіческіе_ізданія. Шіфр_періодікі, dbo_Періодіческіе_ізданія. Назва, dbo_Періодіческіе_ізданія. Дата_ізданія, dbo_Статьі. Номер_статьі, dbo_Статьі. Назва, dbo_Статьі. Тема, dbo_Статьі. Предметная_область FROM dbo_Статьі INNER JOIN dbo_Періодіческіе_ізданія ON dbo_Статьі. Шіфр_періодікі = dbo_Періодіческіе_ізданія. Шіфр_періодікі WHERE dbo_Статьі. Номер_статьі = В»+ strdate
dbs. QueryDefs. Delete (В«СтаттіВ»)
Set qdf = dbs. CreateQueryDef (В«СтаттіВ», strSQL)
DoCmd. OpenReport В«СтаттіВ», acPreview
Set dbs = NothingSub
Кнопка В«ЗнайтиВ» в розділі В«Пошук за ключовимиВ» призначена для виклику збереженої процедури, яка формує звіт про статті, які містять зазначені ключові слова. Код обробки натиснення кнопки В«ЗнайтиВ»:
Private Sub Кнопка38_Click ()
Dim stDocName As String
Dim dbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСпіском ВІ 5. SetFocus = ПолеСоСпіском ВІ 5. TextПереключатель36. Value = True Then = strdat + В»,% 'В» = В«SELECT dbo_Періодіческіе_ізданія. Шіфр_періодікі, dbo_Періодіческіе_ізданія. Назва, dbo_Періодіческіе_ізданія. Дата_ізданія, dbo_Статьі. Номер_статьі, dbo_Статьі. Назва, dbo_Статьі. Тема, dbo_Статьі. Предметная_область FROM dbo_Статьі INNER JOIN dbo_Періодіческіе_ізданія ON dbo_Статьі. Шіфр_періодікі = dbo_Періодіческіе_ізданія. Шіфр_періодікі WHERE dbo_Статьі. Тема LIKE '% В»+ strdate. QueryDefs. Delete (В«СтаттіВ») qdf = dbs. CreateQueryDef (В«СтаттіВ», strSQL). OpenReport В«СтаттіВ», acPreviewdbs = Nothing = strdat + В«% 'В»
strSQL = В«SELECT dbo_Періодіческіе...
