Реферат Розробка бази даних "Туризм та відпочинок"

> frmPInfo.TextBox4.Text = ""

frmPInfo.TextBox5.Text = ""

frmPInfo.TextBox6.Text = ""

frmPInfo.TextBox7.Text = ""

frmPInfo.TextBox8.Text = ""

frmPInfo.TextBox9.Text = ""

frmPInfo.OptionButton1 = False

frmPInfo.OptionButton2 = False

frmPInfo.OptionButton3 = False

frmPInfo.OptionButton4 = False

frmPInfo.OptionButton5 = False

frmPInfo.OptionButton6 = False

frmPInfo.OptionButton7 = False

frmPInfo.OptionButton8 = False

'ActiveSheet.Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _

AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True

'Workbooks ("Firms"). Protect Password: = "Firms1" SubDeleteCoun ()

Workbooks ("Firms"). Unprotect Password: = "Firms1"

ActiveSheet.Unprotect Password: = "list"

string1 = "Firms.xls"

If ActiveSheet.Name = "1" Or ActiveWorkbook.Name <> CStr (string1) Then

MsgBox "Виберіть (активуйте) аркуш у книзі/Firms /, в який потрібно внести зміни.", vbInformation, "Увага!"

Exit Sub

End If

num = Workbooks ("Firms.xls"). ActiveSheet.Index

ie = Workbooks ("Firms.xls"). ActiveSheet.Range ("End" & num). Row

If ie = 6 Then

MsgBox "У базі немає путівок - годі видаляти.", vbCritical, "Помилка!"

Exit Sub

End If

ex = 1

frmDelCoun.Show

If ex = 0 Then Exit Sub

'ActiveSheet.Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _

AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True

'Workbooks ("Firms"). Protect Password: = "Firms1"

Range ("A1"). SelectSubShowCountry ()

Workbooks ("Firms"). Unprotect Password: = "Firms1"

ActiveSheet.Unprotect Password: = "list"

string1 = "Firms.xls"

If ActiveSheet.Name = "1" Or ActiveWorkbook.Name <> CStr (string1) Then

MsgBox "Виберіть (активуйте) аркуш у книзі/Firms /, в який потрібно внести зміни.", vbInformation, "Увага!"

Exit Sub

End If

num = Workbooks ("Firms.xls"). ActiveSheet.Index

ie = Workbooks ("Firms.xls"). ActiveSheet.Range ("End" & num). Row

If ie = 6 Then

MsgBox "У базі немає путівок - годі шукати.", vbCritical, "Помилка!"

Exit Sub

End If

ex = 1

frmSelPut.Show

If ex = 0 Then Exit Sub

'ActiveSheet.Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _

AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True

'Workbooks ("Firms"). Protect Password: = "Firms1" SubSubMainS ()

Workbooks ("Firms.xls"). Worksheets ("1"). Activate

SubMain.Show