Link til filer fra accessdatabase

De fleste foretrækker at undgå hyperlinks i databasen, men det kræver, at du selv 'håndterer' funktionaliteten af dine links. Prøv at kigge her:
http://www.eksperten.dk/spm/234510
Du skal ligeledes selv håndtere, når der klick'es på dit link.

Jeg aner ikke hvordan du gør med lydfiler. Men jeg har det du søger blot med billeder. Billederne ligger i en særskilt mappe, og hver gang formularen skifter post, henter Access det tilhørende billede.
Det må være muligt at lave noget lignende med lyde.

Jeg har en lille testdb i Access97, fungerer også i 2000 ig XP. Blot læg din e-mail hvis du er interesseret.

Q)    How do I play a Wav/Midi/AVI file from Access?

(A)    Use the following sets of functions.  Note: Make sure you pass the complete file name including the extension.

'****************** Code Start *********************'
Public Const pcsSYNC = 0      ' wait until sound is finished playing
Public Const pcsASYNC = 1    ' don't wait for finish
Public Const pcsNODEFAULT = 2 ' play no default sound if sound doesn't exist
Public Const pcsLOOP = 8      ' play sound in an infinite loop (until next apiPlaySound)
Public Const pcsNOSTOP = 16  ' don't interrupt a playing sound

'Sound APIs
Private Declare Function apiPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'AVI APIs
Private Declare Function apimciSendString Lib "Winmm.dll" Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
    ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Declare Function apimciGetErrorString Lib "Winmm.dll" _
    Alias "mciGetErrorStringA" (ByVal dwError As Long, _
    ByVal lpstrBuffer As String, ByVal uLength As Long) As Long


Function fPlayStuff(ByVal strFilename As String, _
            Optional intPlayMode As Integer) As Long
'MUST pass a filename _with_ extension
'Supports Wav, AVI, MID type files
Dim lngRet As Long
Dim strTemp As String

    Select Case LCase(fGetFileExt(strFilename))
        Case "wav":
            If Not IsMissing(intPlayMode) Then
                lngRet = apiPlaySound(strFilename, intPlayMode)
            Else
                MsgBox "Must specify play mode."
                Exit Function
            End If
        Case "avi", "mid":
            strTemp = String$(256, 0)
            lngRet = apimciSendString("play " & strFilename, strTemp, 255, 0)
    End Select
    fPlayStuff = lngRet
End Function
Function fStopStuff(ByVal strFilename As String)
'Stops a multimedia playback
Dim lngRet As Long
Dim strTemp As String
    Select Case LCase(fGetFileExt(strFilename))
        Case "Wav":
            lngRet = apiPlaySound(0, pcsASYNC)
        Case "avi", "mid":
            strTemp = String$(256, 0)
            lngRet = apimciSendString("stop " & strFilename, strTemp, 255, 0)
    End Select
    fStopStuff = lngRet
End Function

Private Function fGetFileExt(ByVal strFullPath As String) As String
Dim intPos As Integer, intLen As Integer
    intLen = Len(strFullPath)
    If intLen Then
        For intPos = intLen To 1 Step -1
            'Find the last \
            If Mid$(strFullPath, intPos, 1) = "." Then
                fGetFileExt = Mid$(strFullPath, intPos + 1)
                Exit Function
            End If
        Next intPos
    End If
End Function

Function fGetError(ByVal lngErrNum As Long) As String
    ' Translate the error code to a string
    Dim lngx As Long
    Dim strErr As String

    strErr = String$(256, 0)
    lngx = apimciGetErrorString(lngErrNum, strErr, 255)
    strErr = Left$(strErr, Len(strErr) - 1)
    fGetError = strErr
End Function
Function fatest()
Dim a As Long
    a = fPlayStuff("C:\winnt\clock.avi")
    'a = fStopStuff("C:\winnt\clock.avi")
End Function

'****************** Code End *********************'

Jeg lader mugs og terry føre ordet:
http://www.eksperten.dk/spm/236567
:o)

Her lader jeg dog mesteren tale uden protester :o)

lasse>I was actually concidering a solution using Shellexecute but found this other one instead.

Just out of interest shellexecute can be used for opening any file type in the program which is associated with it.

Hej, først undskyld den lange svartid på indlægende.
Terry>> Den kode du forslår kan bruges til at bygge videre på ,der skal tilrettes en del, men jeg kan komme videre, derfor 100 points til dig.

mugs>> Jeg vil meget gerne have din eks db tilsendt derfor 90 points til dig, den kan sendes til anjdata@get2net.dk

lasse buck>> 10 points til dig for dit link til et spørgsmål som var relevant.

Til alle: Mange tak for indlægende.

mvh Anders.

mange tak :o)

Takker!

Tak for point. Eksempel er sendt.