lectSub
Sub TextBox6_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger) Case KeyAscii32 = 0SelectSub
Sub TextBox7_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger) Case KeyAscii32 = 0SelectSub
Sub TextBox9_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger) Case KeyAscii32 = 0SelectSub
Sub UserForm_Initialize () = False.Enabled = False
'встановлюємо з'єднання з БДcn = New ADODB.Connection.Provider = "Microsoft.Jet.OLEDB.4.0". ConnectionString = "C: База_для_практікі.mdb". Open
'заголовок вікна
Me.Caption = "головпоштамт"
'перший набір записів
rs1.CursorType = adOpenStatic
rs1.Source = "SELECT Газети. [ІД газети], Газети.Названіе, Газети. [Термін підписки], Подпісчікі.Фамілія, Подпісчікі.Адрес
FROM Газети INNER JOIN Передплатники ON Газети. [ІД газети] = Передплатники. [ІД газети] "
Set rs1.ActiveConnection = cn.LockType = adLockOptimistic.Open
'Другий набір запісей.CursorType = adOpenStatic2.Source = "SELECT Подпісчікі.Фамілія, Подпісчікі.Імя, Подпісчікі.Отчество
FROM Журнали INNER JOIN Передплатники ON Журнали. [ІД журналу] = Передплатники. [ІД журналу] "
Set rs2.ActiveConnection = cn.LockType = adLockOptimistic.Open
'Третій набір запісей.CursorType = adOpenStatic3.Source = "SELECT Газети. [ІД газети], Газети.Названіе, Газети. [Термін підписки], Подпісчікі.Фамілія, Подпісчікі.Адрес
FROM Газети INNER JOIN Передплатники ON Газети. [ІД газети] = Передплатники. [ІД газети] "
Set rs3.ActiveConnection = cn.LockType = adLockOptimistic.Openrs1.EOF = True And rs1.BOF = True Then "Даних в базі не виявлено"
flas = TrueFalse, True.Enabled = False.Enabled = False.Enabled = True.flag = False_Click = False.MoveFirst.Enabled = FalseIfSub
Sub userform_Activate () UserForm1.flag = True Then_ClickIfSub
Sub vladeletc () rs2.EOF = True And rs2.BOF = True Then.Clear.ClearError GoTo next11.Open:. Requery.MoveFirstUntil rs2.EOF.AddItem rs2.Fields ("Код_кліента" ). Value.MoveNextIf.CloseSub
Sub SetEnable (isupdateOn As Boolean, isOthersOn As Boolean). Enabled = isupdateOn.Enabled = isOthersOn.Enabled = isupdateOn.Enabled = isupdateOn.Enabled = isupdateOn.Enabled = isupdateOn.Enabled = isupdateOn.Enabled = isupdateOn.Enabled = isupdateOn.Enabled = isupdateOnSub
Sub UserForm2_Terminate (). Closecn = NothingSubSub FillRecord (). Fields ("Код_паспорта"). Value = TextBox8.Value.Fields ("Серія"). Value = TextBox9.Value.Fields ("Номер"). V...
