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

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

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

 

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

 -Ñòàòèñòèêà

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


ïîäâÿçêà áèáëèîòåê ADP â çàâèñèìîñòè îò âåðñèè OFFICE

Âòîðíèê, 14 ßíâàðÿ 2014 ã. 13:03 + â öèòàòíèê
åñòü ïðîåêò ïðèêðó÷åííûé ê MS SQL Server
åñòü ãëàâíàÿ ôîðìà êîòîðàÿ ðàáîòàåò íà àâòîçàïóñêå ïðè îòêðûòèè ïðîåêòà.
ïðîåêò ïèøó íà 2010ì.
Êðèòè÷íàÿ áèáëèîòåêà: Microsoft Excel 14.0 Object Library
ïðè îòêðûòèè â 2007ì è 2003ì ñîîòâåòñòâóþùèé Missing.
Ïðè îáíîâëåíèè ïðîåêòà ïðèõîäèòñÿ ãîíÿòü ïî êëèåíòñêèì ìàøèíàì, ñíèìàòü ãàëêó ñ Missing:Microsoft Excel 14.0 Object Library
è âûñòàâëÿòü Microsoft Excel 12.0 Object Library
Èáî ìîé êîä íà ôîðìå àâòîçàïóñêà íå ðàáîòàåò:
Private Sub Form_Load()
'ñêðûâàåì ëåíòó äëÿ îôô>=2007 è ïåðåïðîïèñûâàåì áèáëèîòåêè â çàâèñèìîñòè îò âåðñèè îôèñà
Select Case Application.Version
    Case "14.0" '2010
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
        On Error Resume Next
        Application.References.AddFromFile ("C:\Program Files\Microsoft Office\Office14\EXCEL.EXE")
        Application.References.AddFromFile ("C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL")
        On Error GoTo 0
    Case "12.0" '2007
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
        On Error Resume Next
        Application.References.AddFromFile ("C:\Program Files\Microsoft Office\Office12\EXCEL.EXE")
        Application.References.AddFromFile ("C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL")
        On Error GoTo 0
    Case Else
End Select
'ïîëó÷àåì þçåðà
Set MyObj = CreateObject("Wscript.shell")
Let strUser = MyObj.ExpandEnvironmentStrings("%username%")
Set MyObj = Nothing
'ïðåäâàðèòåëüíî ÷èñòèì áëîêèðîâêó ñàìèì æå ñîáîé (â ñëó÷àå åñëè ñåññèÿ áûëà îáîðâàíà ñåðâåðîì è â form_reserved âèñèò íåçàêðûòûé êîííåêò)
DoCmd.RunSQL "delete from form_reserved where username = '" & strUser & "'"
'áëîêèðóåì ïîëüçîâàòåëÿ
DoCmd.RunSQL " insert into form_reserved values ('" & strUser & "','" & Now & "')"
End Sub

Ïðîøó çíàþùèõ ïîìî÷ü

http://www.sql.ru/forum/1070761/podvyazka-bibliotek-adp-v-zavisimosti-ot-versii-office


 

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

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

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

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