орміSub SaveData () ( id_Book )=Me! cmb_kodknh ( date_issue )=Me! txt_vudacha ( date_return )=Me! txt_povern ( id_reader )=Me! cmb_readerSub
'Процедура для Надання Властивості LockedSub SetLocked (value As Boolean)
'Вкладка Книги! cmb_kodknh.Locked=value! txt_vudacha.Locked=value! txt_povern.Locked=value
'Вкладка читачі! cmb_reader.Locked=valueSub
Додаток В - Процедури форми frm_data
Compare DatabaseSub btn_ok_Click () IsNull (Me! txt_begin) Or Me! txt_begin= Then Невірно введені дані: Качан ПЕРІОДУ raquo ;, vbCritical, ErrorSubIfIsNull (Me! Txt_end) Or Me! Txt_end= Then Невірно введені дані: Кінець ПЕРІОДУ raquo ;, vbCritical, ErrorSubIf.OpenReport rpt_data raquo ;, acViewPreview.Close acForm, frm_data SubSub btn_otmena_Click (). Close acForm, frm_data Sub
Додаток Г- Додатковий модуль
Compare DatabasersBook As ADODB.Recordset Для табліці BookrsReader As ADODB.Recordset Для табліці ReaderrsOblik As ADODB.Recordset 'Для табліці OblikSub open_recordset (rst As ADODB.Recordset, Name As String) rst= New ADODB.Recordsetrst
. CursorType=adOpenKeyset
. LockType=adLockOptimistic
. Open Name, CurrentProject.Connection,, adCmdTableWithSub
