Avatar billede Slettet bruger
16. december 2004 - 05:20 Der er 5 kommentarer og
2 løsninger

Åbne eksterne filer fra formular

Hej

Jeg har en tabel der hedder Links, her i er der 5 felter.

ID = Primær nøgle
Navn = Navn på knap
Filnavn = Navnet på filen.
Sti = Stien til den pågældende fil
Filtype = Typen på filen (.doc, .xls., .pdf, osv...)

Jeg vil så lave en formular hvor der er nogle knapper, der ved tryk åbner hver deres fil.

Grunden til at jeg har en tabel der indholder oplysninger på hvor de forskellige filer ligger, er at andre en mig skal kunne rette stien eller filnavnet, uden at skulle igennem 17 kilometer kode for at rette noget der kan tage et split sekund.
16. december 2004 - 07:21 #1
Jeg har et eksempel liggende her: http://www.makeiteasy.dk/eksempler/Downloads.htm

Det hedder "Åbn Fil-dialogboks og åbning af vilkårlig fil fra Access"

Måske det kan bruges?
Avatar billede terry Ekspert
16. december 2004 - 09:04 #2
You can use shellexec to open a file of a specific type using the associated program

Public 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

Public Const WIN_NORMAL = 1

Dim lRet As Long
lRet = apiShellExecute(hWndAccessApp, vbNullString, "C:\DocFileName.doc", vbNullString, vbNullString, WIN_NORMAL)
22. december 2004 - 15:13 #3
Netmejer, har du afprøvt mit eksempel?
Avatar billede Slettet bruger
22. december 2004 - 19:35 #4
Jeg har endnu ikke fået afprøvet det ene eller andet.

Thomasjepsen: Jeg glemte at skrive at det var til Access 97, så jeg skal først have konverteret .mdb filen om til 97 før jeg kan bruge den.

Terry: Your solution is also great, except from that the link to the document is in the code, and not from a cell in af table.

God jul og godt nytår
Avatar billede terry Ekspert
22. december 2004 - 20:19 #5
lRet = apiShellExecute(hWndAccessApp, vbNullString, Dlookup("SomeField" "SomeTable"), vbNullString, vbNullString, WIN_NORMAL)

Thanks and a Merry Xmas and a good New Year to you too
22. december 2004 - 21:01 #6
tak og God jul og godt nytår til Jer begge :o)
Avatar billede terry Ekspert
22. december 2004 - 21:59 #7
same to you Thomas
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester