-

   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


: [1] []
 

:
: 

: ( )

:

  URL