from_redag.Enabled=True
'----------- редагування окремо ------- IsNull (Me.OpenArgs) Then.Update_nast.Enabled=True_pop.Enabled=True_vidm.Enabled=False
'---------- Редагування з головної форми ----- (IsNumeric (Me.OpenArgs)) Then_recordset rsOblik, tabl_Oblik .Find id_issue= raquo ; amp; Me.OpenArgs,, adSearchForward, 1.Update.ClosersOblik=Nothing.Close acForm, frm_redag ?? raquo ;, acSaveYes
'--------- Додавання записів ------------- Me.OpenArgs= new Then_recordset rsOblik, tabl_Oblik .AddNew.Update.ClosersOblik=Nothing.Close acForm, frm_redag ?? raquo ;, acSaveYes_frm_main1.RequeryIfSubSub Form_Open (Cancel As Integer)
Відкриття набору запісів Recordset для головної табліці_recordset rsOblik, tabl_Oblik rsOblik.State lt; gt; adStateOpen Then если рекордсет НЕ Відкрився Can`t open recordset raquo ;, vbCritical, ErrorSubIf
'Перевірка режиму Відкриття форми
----------- Окремо ----------------------------------- IsNull (Me.OpenArgs) Then если openArgs НЕ визначеня завантужємо перший кортеж_nast.Enabled=True_pop.Enabled=True_vidm.Enabled=False_exit_from_redag.Enabled=True
'----------- З головної форми ------------------------ (IsNumeric ( Me.OpenArgs)) Then_nast.Enabled=False_pop.Enabled=False_exit_from_redag.Enabled=False_vidm.Enabled=True.Find id_issue= amp; Me.OpenArgs,, adSearchForward, 1.ClosersOblik=Nothing
'---------- У режімі ДОПОВНЕННЯ ----------------- Me.OpenArgs= new Then_nast.Enabled=False_pop.Enabled=False_zberehtu.Enabled=True_redag.Enabled=False_vidm.Enabled=True_exit_from_redag.Enabled=False (False) _vudacha=Date_povern=Date.Caption= Новий Запис .ClosersOblik=NothingIfSub
'Кнопка РЕДАГУВАТІSub btn_redag_Click () _ kodknh.SetFocus
'Кнопкі_redag.Enabled=False_nast.Enabled=False_pop.Enabled=False_vidm.Enabled=True_zberehtu.Enabled=True_exit_from_redag.Enabled=False (False) Sub
'Кнопка ВІДМІНІТІSub btn_vidm_Click () (True) _redag.Enabled=True_zberehtu.Enabled=False_redag.SetFocus_vidm.Enabled=False
'------- Если форма булу Відкрита автономно актівізуємо кнопки переходу по запису Та вихід --- (IsNull (Me.OpenArgs)) Then_nast.Enabled=True_pop.Enabled=True_exit_from_redag.Enabled =TrueIf
'------- Если форма булу Відкрита у режімі ДОПОВНЕННЯ або з якихось головної табліціNot IsNull (Me.OpenArgs) Then.Close acForm, frm_redag ?? raquo ;, acSaveNoIfSub
'Кнопка Попередній ЗАПИС Sub btn_pop_Click (). MovePreviousrsOblik.BOF lt; gt; True Then.MoveFirst Перший Запис raquo ;, vbExclamationIfSub
'Кнопка Наступний ЗАПИС Sub btn_nast_Click (). MoveNextNot rsOblik.EOF Then.MovePrevious Останній Запис raquo ;, vbExclamationIfSub
Процедура для віпадаючого списку BOOK Sub cmb_kodknh_AfterUpdate () Error GoTo ErrStr_recordset rsBook, tabl_Book .Find id_Book= amp; Me! Cmb_kodknh,, adSearchForward, 1! Txt_nasva=rsBook ( Title_B )! Txt_avtor=rsBook ( Author )! Txt_genre=rsBook ( Genre_B )! Txt_zina=rsBook ( Book_price )! Txt_vud =rsBook ( Publishing_house )! txt_mova=rsBook ( Language_P ). ClosersBook=NothingSub: Неправильно заповнений поле BOOK ' laquo ;, vbCritical, Помилка Sub
Процедура для віпадаючого списку READER Sub cmb_reader_AfterUpdate () Error GoTo ErrStr_recordset rsReader, tabl_Reader .Find id_reader= amp; Me! Cmb_reader,, adSearchForward, 1! Txt_pr=rsReader ( S_name )! Txt_im=rsReader ( Name )! Txt_pb=rsReader ( L_name )! Txt_domad=rsReader ( address )! Txt_nomtel =rsReader ( telefon )! txt_dnar=rsReader ( date_birth ). ClosersReader=NothingSub: Неправильно заповнений поле READER ' ,, Помилка SubSub loadData ()
'OBLIK! cmb_kodknh=rsOblik ( id_Book )! cmb_reader=rsOblik ( id_reader )! txt_vudknh=rsOblik ( id_issue )! txt_vudacha=rsOblik ( date_issue ) ! txt_povern=rsOblik ( date_return )
'BOOK_recordset rsBook, tabl_Book .Find id_Book= amp; Me! Cmb_kodknh, ,, 1! Txt_nasva=rsBook ( Title_B )! Txt_avtor=rsBook ( Author )! Txt_genre=rsBook ( Genre_B )! Txt_zina=rsBook ( Book_price )! Txt_vud= rsBook ( Publishing_house )! txt_mova=rsBook ( Language_P ). ClosersBook=Nothing
'READER_recordset rsReader, tabl_Reader .Find id_reader= amp; Me! Cmb_reader,,, 1! Txt_pr=rsReader ( S_name )! Txt_im=rsReader ( Name )! Txt_pb=rsReader ( L_name )! Txt_domad=rsReader ( address )! Txt_nomtel= rsReader ( telefon )! txt_dnar=rsReader ( date_birth ). ClosersReader=NothingSubSub btn_exit_from_redag_Click (). Close acForm, frm_redag ?? raquo ;, acSaveNoSub
'Процедура для запису в recordset даних з полів ф...
