VBA i Access; brug af Shell kommando til at åbne program

retVal = Shell("C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE " & Chr(34) & DialogPresentation & Chr(34))

Eller

retVal = Shell("C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE """ & DialogPresentation & """")

Med andre ord: Du skal putte "-tegn uden om stien.. altså, ikke så det bliver en streng, men putte "-tegn i selve strengen..

Uden ekstra "" eller Chr(34), ser kommandoen sådan ud:

"C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE " C:\Documents and
Settings\MS\Desktop\Test.ppt

Med ekstra "" eller Chr(34), ser kommandoen sådan ud:

"C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE " "C:\Documents and
Settings\MS\Desktop\Test.ppt"

- Svar.

Hejsa,

Nedestående eks. åbner en fil i det korrekte værtsprogram. Hvis du feks. har et tekstfelt på din formular som indeholder hele stien til en fil (dette kunne sagtens være en .ppt-fil. Hvis du har mod på er alt kode med forklaring posten herunder:

1. Opret et nyt modul og paste nedenstående kode ind, gem modulet on navngiv modulet Shell Execute

'Kode start'
Private Declare Function apiShellExecute Lib "Shell32.dll" _
    Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) _
    As Long

'***App Window Constants***
Public Const WIN_NORMAL = 1        'Open Normal
Public Const WIN_MAX = 3            'Open Maximized
Public Const WIN_MIN = 2            'Open Minimized

'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&


Shell Execute

Call ShellExecute(Me!Filnavn, WIN_NORMAL)

'***************Usage Examples***********************
'Open a folder:    ?ShellExecute("C:\TEMP\",WIN_NORMAL)
'Call Email app:    ?ShellExecute("mailto:dash10@hotmail.com",WIN_NORMAL)
'Open URL:          ?ShellExecute("http://home.att.net/~dashish", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
'                  ?ShellExecute("C:\TEMP\TestThis",Win_Normal)
'Start Access instance:
'                  ?ShellExecute("I:\mdbs\CodeNStuff.mdb", Win_NORMAL)
'****************************************************

Function ShellExecute(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
    'First try ShellExecute
    lRet = apiShellExecute(hWndAccessApp, vbNullString, _
            stFile, vbNullString, vbNullString, lShowHow)
           
    If lRet > ERROR_SUCCESS Then
        stRet = vbNullString
        lRet = -1
    Else
        Select Case lRet
            Case ERROR_NO_ASSOC:
                'Try the OpenWith dialog
                varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
                        & stFile, WIN_NORMAL)
                lRet = (varTaskID <> 0)
            Case ERROR_OUT_OF_MEM:
                stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
            Case ERROR_FILE_NOT_FOUND:
                stRet = "Error: File not found.  Couldn't Execute!"
            Case ERROR_PATH_NOT_FOUND:
                stRet = "Error: Path not found. Couldn't Execute!"
            Case ERROR_BAD_FORMAT:
                stRet = "Error:  Bad File Format. Couldn't Execute!"
            Case Else:
        End Select
    End If
    ShellExecute = lRet & _
                IIf(stRet = "", vbNullString, ", " & stRet)
End Function

2. Ved klik på din formular skal du blot skrive nedenstående kode, hvor Me!Feltnavn skal skiftes ud med dit eget feltnavn:

Call ShellExecute(Me!Feltnavn, WIN_NORMAL)

Nu åbnes din i værtsprogrammet.

Hilsen Anders

"Nu åbnes din i værtsprogrammet" = Nu åbnes din fil i værtsprogrammet.

Sorry, fik pastet noget vrøvl, nednestående skal pastet ind i modulet:

Private Declare Function apiShellExecute Lib "Shell32.dll" _
    Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) _
    As Long

'***App Window Constants***
Public Const WIN_NORMAL = 1        'Open Normal
Public Const WIN_MAX = 3            'Open Maximized
Public Const WIN_MIN = 2            'Open Minimized

'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&

'***************Usage Examples***********************
'Open a folder:    ?ShellExecute("C:\TEMP\",WIN_NORMAL)
'Call Email app:    ?ShellExecute("mailto:dash10@hotmail.com",WIN_NORMAL)
'Open URL:          ?ShellExecute("http://home.att.net/~dashish", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
'                  ?ShellExecute("C:\TEMP\TestThis",Win_Normal)
'Start Access instance:
'                  ?ShellExecute("I:\mdbs\CodeNStuff.mdb", Win_NORMAL)
'****************************************************

Function ShellExecute(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
    'First try ShellExecute
    lRet = apiShellExecute(hWndAccessApp, vbNullString, _
            stFile, vbNullString, vbNullString, lShowHow)
           
    If lRet > ERROR_SUCCESS Then
        stRet = vbNullString
        lRet = -1
    Else
        Select Case lRet
            Case ERROR_NO_ASSOC:
                'Try the OpenWith dialog
                varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
                        & stFile, WIN_NORMAL)
                lRet = (varTaskID <> 0)
            Case ERROR_OUT_OF_MEM:
                stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
            Case ERROR_FILE_NOT_FOUND:
                stRet = "Error: File not found.  Couldn't Execute!"
            Case ERROR_PATH_NOT_FOUND:
                stRet = "Error: Path not found. Couldn't Execute!"
            Case ERROR_BAD_FORMAT:
                stRet = "Error:  Bad File Format. Couldn't Execute!"
            Case Else:
        End Select
    End If
    ShellExecute = lRet & _
                IIf(stRet = "", vbNullString, ", " & stRet)
End Function

Tak for jeres svar - thesurfers svar lå tæt op ad min oprindelige kode og virkede perfekt, så derfor gik hovedparten af pointene denne vej...

Selv tak, og tak for point :o)

På denne hjemmeside www.makeiteasy.dk under menuen download er der et eks. der frit kan downloades, eks. hedder "Åbn Fil-dialogboks og åbning af vilkårlig fil fra Access"

Som inspiration er det bestemt et kik værd.

Man kunne vel også bare bruge START..

Dvs:

retVal = Shell("start " & Chr(34) & DialogPresentation & Chr(34))

Hvis man ikke kan bruge "start", kan man prøv med "explorer" (ikke Internet Explorer):

retVal = Shell("explorer " & Chr(34) & DialogPresentation & Chr(34))

Så åbnes filen i DialogPresentation automatisk med det program, som man har valgt i operativsystemet.

Det betyder, at hvis brugeren bruger et andet program, til at åbne PowerPoint filer, eller f.eks. PDF filer (end lige Acrobat Reader), vil det foretrukne program blive startet.