Åbne fil via knap i form

Her er en mulig løsning:

Private Sub Kommandoknap49_Click()
    Dim a As Variant
    If Me!adresse = "adresse1" Then
        a = Shell("c:\programmer\adobe\acrobat 6.0\reader\acrord32.exe c:\ejendomme\pdf\adresse1.pdf", vbMaximizedFocus)
    ElseIf Me!adresse = "adresse2" Then
        a = Shell("c:\programmer\adobe\acrobat 6.0\reader\acrord32.exe c:\ejendomme\pdf\adresse2.pdf", vbMaximizedFocus)
    End If
End Sub

Denne funktion åbner adreese1.pdf hvis der står Adresse1 i formularen. Står der Adresse2 åbnes adresse2.pdf. Står der ingen af delene åbnes ingenting.

Stien til acroreader skalændres til det, der passer til din installtion.

jkrons (og meiland)-> Shell er lidt primitiv, da den kræver en eksakt sti til værtsprogrammet. Brug i stedet funktionen fHandleFile og ShellExecute.

Put nedenstående kode i et modul.

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:    ?fHandleFile("C:\TEMP\",WIN_NORMAL)
'Call Email app:    ?fHandleFile("mailto:dash10@hotmail.com",WIN_NORMAL)
'Open URL:          ?fHandleFile("http://home.att.net/~dashish", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
'                  ?fHandleFile("C:\TEMP\TestThis",Win_Normal)
'Start Access instance:
'                  ?fHandleFile("I:\mdbs\CodeNStuff.mdb", Win_NORMAL)
'****************************************************

Function fHandleFile(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
    fHandleFile = lRet & _
                IIf(stRet = "", vbNullString, ", " & stRet)
End Function


På formularens knap lægger du så bare denne kode:
call fHandleFile(Me!Adresse, WIN_NORMAL)

jkrons: Desværre kan jeg ikke bruge dit forslag af flere grunde. Det største problem er af jeg har over 500 adresser i databasen.

Thomasjepsen: Det vil jeg prøve når jeg komme på arbejde.