-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Ðåôåðåíñ Îôèñà 2007 vs 2010

Ñðåäà, 06 Ìàÿ 2015 ã. 16:40 + â öèòàòíèê
Äîáðûé äåíü !
Ïîäñêàæèòå ðåøåíèå, ïîæàëóéñòà.

Ñîçäàë áàçó â Access 2003.
Íà ìîåé ìàøèíå ñòîèò Îôèñ 2010. Ññûëêà â ðåôåðåíñàõ - Microsoft Office 15.0 Object Library
Òàì ãäå áóäåò ðàáîòàòü - Îôèñ 2007. Ññûëêà â ðåôåðåíñàõ - Microsoft Office 12.0 Object Library

Ñ âîðäîì è ýêñåëåì ñïðàâèëñÿ ïîçäíèì ñâÿçûâàíèåì. À êàê áûòü ñ "Microsoft Office" ?!
Ó ìåíÿ ñ åãî ïîìîùüþ ñäåëàíû ìåíþ. Ñàìî ìåíþ ìåíÿåòñÿ ïðîãðàììíî.

Åñòü, êîíå÷íî, çàïàñíîé âàðèàíò: ìåíÿþ ññûëêó â ðåôåðåíñàõ íà ìàøèíå ñ 2003 îôèñîì, ïåðåñîõðàíÿþ ôàéë.
È òîãäà, ïðè çàïóñêå, íà ìàøèíå ñ áîëåå ïîçäíèì îôèñîì âñå ðàáîòàåò.
Íî õîòåëîñü áû êàê-òî óïðîñòèòü ïðîöåäóðó.

Âîò óðåçàííûé âàðèàíò ýòîãî ìåíþ.
Function Start()
Dim MyMenuBar As CommandBar
Dim Ctr_Pop As CommandBarPopup
Dim Ctr_Pop_but As CommandBarButton
'-------------
Set MyMenuBar = CommandBars.Add(Name:="MyMenu", Position:=msoBarTop, MenuBar:=True, Temporary:=True)
MyMenuBar.Visible = True
MyMenuBar.Protection = msoBarNoMove
'====================================================
Set Ctr_Pop_but = MyMenuBar.Controls.Add(msoControlButton)
With Ctr_Pop_but
    .Style = msoButtonCaption
    .Caption = "Kassets"
    .TooltipText = "Help text"
    .FaceId = 202
    .OnAction = "=Fnd()"
    .Parameter = "kass"
    .BeginGroup = True
End With
'====================================================
End Function

Function Fnd()
Dim MyMenu As CommandBar, pr As String
'------------------------------------
Set MyMenu = CommandBars("MyMenu")
'------------------------------------
' The ActionControl property of command bars returns the control
' whose OnAction property is running this procedure.
pr = CommandBars.ActionControl.Parameter
Select Case pr
    Case Is = "kass"
     MsgBox "Clic on Menu"

End Select
End Function

http://www.sql.ru/forum/1155356/referens-ofisa-2007-vs-2010


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó