натисканні на В«Прийняти книгиВ».
В«dbo_Платние послугиВ» при натисканні на В«Платні послугиВ».
На формі В«СтудентиВ» розташовується кнопка з зображенням стрілки, яка викликає стандартну процедуру додавання записів у таблицю В«З туденти В».
На формі В«dbo_Пользованіе_бібліотекой2В» розташовується кнопка з зображенням стрілки, яка викликає стандартну процедуру додавання записів у таблицю В«dbo_Пользованіе_бібліотекой2В».
На формі В«Прийняти книгиВ» розташовується кнопка з зображенням стрілки, яка викликає стандартну процедуру додавання записів у таблицю В«dbo_Пользованіе_бібліотекой2В».
На формі В«dbo_Платние_услугіВ» розташовується кнопка з зображенням стрілки, яка викликає процедуру додавання записів у таблицю В«Платние_услугіВ», і дві кнопки В«Показати звітВ». Вони призначена для виклику збереженої процедури, яка формує звіт, що містить інформацію про платні послуги бібліотеки, які були надані у звітному місяці чи році. Номер акта заміни вводиться в полі поруч з кнопкою. Код обробки натиснення кнопки В«Показать_отчетВ» (за рік):
Private Sub Кнопка53_Click () stDocName As Stringdbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Integer, strdate As Stringdbs = CurrentDb
Поле29. SetFocus = Поле29. Text
'strdate = «» + strdat + В«" В»=В« SELECT dbo_Платние_услугі. табельний_номер, dbo_Платние_услугі. Сума, dbo_Платние_услугі. чітательскій_номер, dbo_Платние_услугі. Дата_услугі FROM dbo_Платние_услугі WHERE Year (dbo_Платние_услугі. Дата_услугі) = В»+ strdate. QueryDefs. Delete (В«послугиВ») qdf = dbs. CreateQueryDef (В«послугиВ», strSQL)
DoCmd. OpenReport В«послугиВ», acPreview
Set dbs = NothingSub
За місяць: Sub Кнопка27_Click () stDocName As Stringdbs As Database, qdf As QueryDef, strSQL As Stringstrdat As Integerstrdate As Stringdbs = CurrentDb
ПолеСоСпіском ВІ 5. SetFocus = ПолеСоСпіском ВІ 5. Text
strSQL = В«SELECT dbo_Платние_услугі. табельний_номер, dbo_Платние_услугі. Сума, dbo_Платние_услугі. чітательскій_номер, dbo_Платние_услугі. Дата_услугі FROM dbo_Платние_услугі WHERE Month (dbo_Платние_услугі. Дата_услугі) = В»+ strdate
dbs. QueryDefs. Delete (В«послугиВ»)
Set qdf = dbs. CreateQueryDef (В«послугиВ», strSQL)
DoCmd. OpenReport В«послугиВ», acPreviewdbs = Nothing
End Sub
Форма В«ПошукВ» є спільною для користувача В«БібліотекарВ» і «³двідувачВ» і з'являється відповідно або при натисканні на формі В«ВибірВ» кнопки В«Пошук літерату...
