|
|
 |
Свойства продукта |
|
'==============================================================
' Загружаем все панели в запрос
Private Sub Form_Open(Cancel As Integer)
Dim cbr As CommandBar, s As String, dbs As Database
On Error GoTo 999
Set dbs = CurrentDb 'Выбор базы данных
dbs.Execute "DELETE * FROM [Пример 03]" 'Удаляем все записи
For Each cbr In Application.CommandBars 'Просматриваем все меню
If cbr.RowIndex >= 0 Then 'Выбираем панели
'Составляем запрос на добавление
s = "INSERT INTO [Пример 03] ( Вкл, Имя, Перевод ) SELECT " & _
cbr.Visible & " AS Вкл, """ & _
cbr.Name & """ AS Имя,""" & _
cbr.NameLocal & """ AS Перевод;"
dbs.Execute s 'Добавляем в таблицу меню
End If
Next
Me.Requery 'Изменяем запрос
Exit Sub
999:
MsgBox Err.Description
Err.Clear
End Sub
'==============================================================
' Отображаем панель
Private Sub Вкл_Click()
If Me.Вкл = True Then
DoCmd.ShowToolbar Me.Перевод, acToolbarYes
Else
DoCmd.ShowToolbar Me.Перевод, acToolbarNo
End If
End Sub
|
|