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

rapText = True

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

Range ("A3: J3"). Select

With Selection.Font

. Name = "Arial"

. Size = 14

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlUnderlineStyleNone

. ColorIndex = xlAutomatic

End With

Selection.Font.Bold = True

Selection.Font.Italic = True

ActiveCell.FormulaR1C1 = "Путівки"

Range ("A3: J3"). Select

Range ("B3"). Activate

With Selection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = False

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

Selection.Merge

Module1.CreateTable

Range ("A6"). Select

ActiveWindow.FreezePanes = True

Range ("A5"). Name = "Beg" & Worksheets (ActiveSheet.Name). Index

Range ("A6"). Name = "End" & Worksheets (ActiveSheet.Name). Index

Worksheets (Worksheets.Count). Name = txtNaim

Me.Hide

Range ("E1"). Select

Selection.Hyperlinks.Add Anchor: = Selection, Address: = "<" & txtSite.Text

Columns ("A: J"). Select

Selection.ColumnWidth = 15.5

Range ("A1"). Select

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

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

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

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

ActiveSheet.Unprotect Password: = "list"

lblNaim.ControlTipText = _

"Ім'я повинно бути не більше 31 знака. І не містити символів:/? * [] "p> txtNaim = ""

txtAdr = ""

txtTel1 = ""

txtTel2 = ""

txtSite = "" Sub

// Workbook (Firms.xls) Форма SubMain

Private Sub CommandButton11_Click ()

Me.Hide

ex = 1

listFirm.Show

If ex = 0 Then Exit Sub

ex = 1

EditFirm

If ex = 0 Then Exit SubSubSub CommandButton12_Click ()

Me.Hide

ex = 1

listFirm.Show

If ex = 0 Then Exit Sub

ex = 1

EditPut

If ex = 0 Then Exit SubSubSub CommandButton14_Click ()

Me.Hide

ex = 1

listFirm.Show

If ex = 0 Then Exit Sub

ex = 1

DeleteFirm

If ex = 0 Then Exit SubSubSub CommandButton15_Click ()

Me.Hide

ex = 1

listFirm.Show

If ex ...