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

s (xlWorksheet). Menus ("Робота з фірмами"). MenuItems.AddMenu _

"Видалення"

MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems ("Видалення"). MenuItems.Add "Фірму з бази", OnAction: = "DeleteFirm"

MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems ("Видалення"). MenuItems.Add "Путівку з бази", OnAction: = "DeleteCoun" Sub

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

Private Sub ComboBox2_Change ()

k = 0

num = Worksheets (ActiveSheet.Name). Index

ie = Range ("End" & num). Row

ComboBox3.Clear

For ib = Range ("Beg" & num). Row + 1 To ie

If ComboBox2.Value = Cells (ib, 1). Value And Cells (ib, 1). MergeCells = True Then

k = Cells (ib, 1). Row

Exit For

End If

Next ib

k = k + 1

temp = k

Do While Cells (k, 1). MergeCells = False And k <> Range ("End" & num). Row

ComboBox3.AddItem Cells (k, 1). Value

k = k + 1

LoopSubSub CommandButton1_Click ()

num = ActiveSheet.Index

ie = Range ("End" & num). Row

If ie = 6 Then

MsgBox "Немає країн для видалення!", vbCritical, "Помилка"

Me.Hide

Exit Sub

End If

CommandButton1.Caption = "Видалити країну та її міста - вибрано"

ComboBox1.Enabled = True

CommandButton1.Enabled = False

CommandButton2.Enabled = False

CommandButton3.Enabled = True

ComboBox3.Enabled = False

ComboBox2.Enabled = False

CommandButton4.Enabled = False

num = ActiveSheet.Index

ie = Range ("End" & num). Row

В 

For ib = Range ("Beg" & num). Row + 1 To ie

If Cells (ib, 1). MergeCells = True Then

ComboBox1.AddItem Cells (ib, 1). Value

End If

Next ibSubSub CommandButton2_Click ()

num = ActiveSheet.Index

ie = Range ("End" & num). Row

If ie = 6 Then

MsgBox "Немає країн для видалення!", vbCritical, "Помилка"

Me.Hide

Exit Sub

End If

CommandButton2.Caption = "Видалити місто певної країни-вибрано"

CommandButton1.Enabled = False

CommandButton4.Enabled = True

ComboBox1.Enabled = False

ComboBox2.Enabled = True

ComboBox3.Enabled = True

CommandButton2.Enabled = False

For ib = Range ("Beg" & num). Row + 1 To ie

If Cells (ib, 1). MergeCells = True Then

ComboBox2.AddItem Cells (ib, 1). Value

End If

Next ibSubSub CommandButton3_Click ()

num = ActiveSheet.Index

ie = Range ("End" & num). Row

If ie = 6 Then

MsgBox "Немає країн для видалення!", vbCritical, "Помилка"

Me.Hide

Exit Sub

End If

If ComboBox1.Value = "" Then

MsgBox "Виберіть країну для видалення!", vbCritical, "Помилка!"

Exit Sub

End If

flag = 0