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