Реферат Автоматизація заповнення передплати на газети та журнали

ty.Text = Empty.Text = Empty.Text = Empty.Text = Empty.Text = Empty.Text = Empty.Text = Empty.Text = Empty.Text = Empty.Text = Empty.Text = Empty.Text = EmptySub

Sub CommandButton5_Click () = "[Марка_Модель] = '" & TextBox17.Text & "'" = 0 = adSearchForward = rs1.Bookmark.MoveFirst.Find criteria, skiprecord, direction

rs1.EOF Then

MsgBox "Запис не знайдено"

Beep.Bookmark = bmark.Enabled = False: MsgBox "Запис знайдена". Enabled = TrueIfSub

Sub CommandButton6_Click () = rs1.Bookmark = 1 = adSearchForward.Find criteria, skiprecord, direction, bmark rs1.EOF Then

MsgBox "Запис не знайдено"

Beep.Bookmark = bmark.Enabled = False "запис знайдений" IfSub

Sub CommandButton7_Click () _izmrs1.EOF = True And rs1.BOF = True Then.MoveLastIfSubSub CommandButton8_Click () _izmrs1.EOF = True And rs1.BOF = True Then.MoveFirstIfSub

Sub CommandButton9_Click () _izmNot rs1.BOF Then.MovePreviousNot rs1.BOF Then.MoveFirstIfIfSub

Sub ShowRecord (). Text = rs1.Fields ("ід_газети"). Value.Text = rs1.Fields ("ід_журнала"). Value.Text = rs1.Fields ("Ідентіф_номер" ;). Value.Text = rs1.Fields ("дата_начала"). Value.Text = rs1.Fields ("кліент_номер"). Value.Text = rs1.Fields ("подпіска_номер"). Value.Text = rs1 . Fields ("газета_номер"). Value

. Text = rs1.Fields ("Код_паспорта"). Value.Text = rs1.Fields ("Код_паспорта"). Value

. MoveFirstUntil rs3.EOFTextBox8.Text = rs3.Fields ("Код_паспорта"). Value Then.Text = rs3.Fields ("ном_газети"). Value.Text = rs3.Fields ( "Ном_журнала"). Value.Text = rs3.Fields ("головпоштамт"). ValueDoIf.MoveNext

. MoveFirstUntil rs4.EOFTextBox12.Text = rs4.Fields ("Код_паспорта"). Value Then.Text = rs4.Fields ("ном_газети"). Value.Text = rs4.Fields ( "Ном_журнала"). Value.Text = rs4.Fields ("Дата_видачі"). Value.Text = rs4.Fields ("головпоштамт"). ValueDoIf.MoveNext

. Text = rs1.Fields ("Код_кліента"). Value

Sub

Sub TextBox10_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger) Case KeyAscii32 = 0SelectSub

Sub TextBox13_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger) Case KeyAscii32 = 0SelectSub

Sub TextBox14_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger) Case KeyAscii32 = 0SelectSub

Sub TextBox17_Change (). Enabled = FalseSub

Sub TextBox3_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger) Case KeyAscii32 = 0SelectSub

Sub TextBox4_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger) Case KeyAscii32 = 0SelectSub

Sub TextBox5_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger) Case KeyAscii32 = 0Se...