ïîäâÿçêà áèáëèîòåê ADP â çàâèñèìîñòè îò âåðñèè OFFICE |
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
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |