e <> TextBox13.Value Or rs4.Fields ("Номер"). Value <> TextBox14.Value _rs4.Fields (" ; Дата_видачі "). Value <> TextBox15.Value Or _.Fields (" Головпоштамт "). Value <> TextBox16.Value Thenrs1.Fields (" дата "). Value <> TextBox1.Text Or _.Fields ("тип"). Value <> TextBox2.Text Or _.Fields ("Ідентіф_номер"). Value <> TextBox3.Text Or _.Fields ("початок"). Value <> TextBox4.Text Or _.Fields ("номер_подпісчіка"). Value <> TextBox5.Text Thenrs1.Fields ("підписки"). Value <> TextBox6.Text _rs1.Fields (" кліент_номер "). Value <> TextBox7.Text Or _.Fields (" Код_паспорта "). Value <> TextBox12.Text Thenrs1.Fields (" Код_паспорта_тр_ср "). Value <> TextBox8.Text _rs1 . Fields ("Код_владельца"). Value <> ComboBox1.Text ThenIfIfIfIfIf: Sub
Sub podtverzdenie () MsgBox ("Були внесені зміни. Зберегти зміни?", vbYesNo + vbQuestion) = vbYes Then
CommandButton2_ClickIfSub
Sub CommandButton2_Click () Error GoTo oshibkaTextBox1.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox8.Text = "" Or TextBox9.Text = "" Or TextBox10.Text = "" Or TextBox11.Text = "" Or TextBox12.Text = "" Or TextBox13.Text = "" Or TextBox14.Text = " ; "Or TextBox15.Text =" "Or TextBox16.Text =" "Or ComboBox1.Text =" "Then" Заповніть всі поля, відмічені * (обов'язкові поля) "
Exit SubIfIsNumeric (TextBox4.Text) = False Then "Поле 'початок передплати' заповнено неправильно"
Exit SubIf.Update.Update.Update = rs1.BookmarkTrue, True_znak.TextBox4 = Empty.MoveFirst.Bookmark = bm1 "Збережено" Sub: "Помилка при збереженні"
End Sub
Private Sub gos_znak (). TextBox2.Text = "". ComboBox1.Clear.Update.MoveFirstUntil rs1.EOF.ComboBox1.AddItem rs1.Fields ("Гос_рег_знак_авто"). Value.MoveNextSub
Sub CommandButton3_Click () _izmrs1.EOF = True And rs1.BOF = True Then.ComboBox1.Text = rs1.Fields ("номер передплати"). Value.ComboBox1_ChangeIf.HideSub
Sub CommandButton4_Click () flag4 <> True Then_izmIf
nom1 As Integernom2 As Integer
MsgBox ("Зареєструвати нове видання?", vbYesNo + vbQuestion) = vbYes Thenrs3.EOF = True And rs3.BOF = True Then = 1.MoveFirst = rs3.Fields ("Код_паспорта" ). ValueWhile Not rs3.EOFrs3.Fields ("Код_паспорта"). Value> nom1 Then = rs3.Fields ("Код_паспорта"). ValueIf.MoveNext = nom1 + 1If.Text = nom1rs4.EOF = True And rs4. BOF = True Then = 1.MoveFirst = rs4.Fields ("Код_паспорта"). ValueWhile Not rs4.EOFrs4.Fields ("Код_паспорта"). Value> nom2 Then = rs4.Fields ("Код_паспорта"). ValueIf . MoveNext = nom2 + 1If.Text = nom2.AddNew.AddNew.AddNewFalse, True.Enabled = Trueflas = True ThenFalse, True.Enabled = False.Enabled = False.Enabled = True.flag = FalseIfIfSub
Sub showemptyrecord (). Text = Empty.Text = Empty.Text = Empty.Text = Empty.Text = Emp...
