Óäàëèòü Commandbars â Access
|
|
Ñðåäà, 28 Ñåíòÿáðÿ 2016 ã. 12:52
+ â öèòàòíèê
Ñîçäàë â Access íåñêîëüêî êîíòåêñòíûõ ìåíþ. Êîä ïðèìåðíî òàêîé:
Set cmdBar = CommandBars.Add(Name:=íàçâàíèå, Position:=msoBarPopup, Temporary:=False)
With cmdBar.Controls.Add(Type:=msoControlButton)
.Caption = "Èñòîðèÿ"
.OnAction = "Îòêðûòü_ôîðìó_Èñòîðèÿ"
End With
Íàñêîëüêî ÿ ïîíèìàþ, îíè ñîõðàíÿþòñÿ â ôàéëå. Åñëè ìíå íàäî óäàëèòü îäíî èç ñîçäàííûõ ìåíþ, ÿ ïèøó òàêîé êîä:
CommandBars(íàçâàíèå).Delete
Ïîäñêàæèòå, ïîæàëóéñòà: åñòü ëè êîìàíäà äëÿ óäàëåíèÿ âñåõ ìåíþ ñðàçó áåç óêàçàíèÿ êàæäîãî ïî-îòäåëüíîñòè?
http://www.sql.ru/forum/1232536/udalit-commandbars-v-access
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-