Управление базами данных Access на VBA - eDrive

33
With новаяПанель.Controls
.Add Type:=msoControlEdit
.Add Type:=msoControlButton , Id:=4
.Add Type:=msoControlButton , Id:=21
.Add Type:=msoControlDropdown
.Add Type:=msoControlComboBox
End With
новаяПанель.Controls (1).OnAction = "мойМакрос"
новаяПанель.Visible = True
номерПанели = CommandBars.Count
MsgBox "Перед вами панель " & новаяПанель.Name _
& " номер " & номерПанели
ошибка:
CommandBars ("Игры").Delete
End Sub
Sub НовыйЭлемент ()
On Error GoTo ошибка
Dim панель As CommandBar
Dim элемент As CommandBarComboBox
Set панель = CommandBars (3)
Set элемент = панель.Controls.Add (Type:=msoControlDropdown)
With элемент
.AddItem "Кофе", 1
.AddItem "Чай", 2
.AddItem "Сок", 3
.DropDownWidth = 75
.DropDownLines = 3
.ListIndex = 3
End With
панель.Visible = True
ошибка:
элемент.Delete
End Sub
Sub ПанелиИнструментов ()
For Each панель In CommandBars
If панель.Index > 2 And панель.Index < 19 Then панель.Visible = False
Next панель
MsgBox "Все панели инструментов скрыты." & Chr (13) & _
"Сейчас они будут последовательно возвращаться"
For Each панель In CommandBars
If панель.Index > 2 And панель.Index < 19 Then
панель.Visible = True
MsgBox "Это панель " & панель.Name
End If
Next панель
If MsgBox ("Убрать лишние ", vbYesNo) = vbYes Then
For счетчик = 18 To 5 Step -1
CommandBars (счетчик).Visible = False
Next счетчик