Kommandoknap til åbning af hyperlink

Kan du bruge denne:

Application.FollowHyperlink Me!DitFelt

Private Sub cmdFollowLink_Click()
On Error Resume Next

1    Dim strUrl As String
   
2    Me.WebAdresse.SetFocus
3    strUrl = Me.WebAdresse
   
4    If Not strUrl = "" Then
5        Application.FollowHyperlink Address:="http://" & strUrl, NewWindow:=True, AddHistory:=False
6    Else
7        MsgBox "Kan ikke finde et gyldigt link til emnet: '" & Me.WebAdresse.Text & "'." & _
            vbCrLf & "Du kan eventuelt selv prøve dig frem på Internettet."
8    End If

Exit Sub

End Sub

Eller:

Me.Kommandoknap28.HyperlinkAddress = Me.felt1

Hyperlinket bliver jo åbnet når du skifter post (formens Current), så er der nogen dybere mening med også at have en knap der åbner syperlinket?

--> thomasjepsen:

Jeg får en fejlmeddelelse når jeg bruger dit forslag. Min kode for knappen hedder bare:

Private Sub Kommandoknap755_Click()
Application.FollowHyperlink Me!Hyperlink

End Sub

Er det rigtigt?

Som Jensen også viser i sit eksempel, så kan det være, at du mangler "http://" foran.

Hvis der bare står www.adresse.dk, så skal du have "http://" foran.

Application.FollowHyperlink "http://" & Me!Hyperlink

Men hvis feltet allerede er gemt som hyperlink i tabellen, så plejer Access selv at indsætte http foran.

Hvilken fejl får du?

Hvilken fejlmeddelelse får du?

--> mugs:

Grunden til at jeg gerne vil have en knap er bare at stien til filen er så lang - det ville bare rent visuelt være pænere med en knap.

Men jeg kan heller ikke få dit forslag til at virke desværre. Er dette rigtigt:

Private Sub Kommandoknap755_Click()
Me.Kommandoknap755.HyperlinkAddress = Me.Hyperlink

End Sub

Fejlmeddelse med mugs eksempel:

...kan ikke følge hyperlinken til "den rigtige filplacering"

Ja koden er korrekt.

Mit forslag er afprøvet i en anden sammenhæng og fungerer fint.
Jeg tror det har noget at gøre med det programtype du prøver at åbne, eller som også jensen363 er inde på, hyperlunket ligger på internettet.

Prøv evt. at indsætte hyperlink til en normal wordfil på din harddisk.

Fejlmeddelse med thomasjepsens eksempel:

Runtime error 7971:

...kan ikke følge hyperlinken til "den rigtige filplacering"

Mugs:

Filtypen er .dwg - altså autocad-fil og placeringen af filen er på et lokalt fælles-drev.

Jeg har indsat min kode i en lille db, og det fungerer perfekt med de filtyper jeg har til rådighed. Hvis du lægger din e-mail, kan jeg sende dig filen og vi kan så se om den fungerer med .dwg filtyper.

Jeg tror forøvrigt heller ikke, at .FollowHyperlink kan håndtere fil-hyperlinks!

Jeg ville nok bruge ShellExecute i stedet:
Du kan finde ShellExecute-funktionen på min hjemmeside her: http://www.nyholm.dk/makeiteasy/Home.asp?ContentID=39


Denne funktion lægger du blot i et modul og derefter lægger du denne kode på knappen:

ShellExecute Me!Hyperlink, WIN_NORMAL

ok tak - du kan sende til:

jesper.risskov.pedersen@risoe.dk

Sendt.

Jeg har prøvet din db nu og det virker jo fint også med .dwg-filer. Bare ikke når jeg gør nøjagtig det samme i min db....! Mærkeligt. Den kommer med samme fejlmeddelelse. Jeg prøver lige at rode lidt mere med det....

Har fundet fejlen nu.. Dataene i min tabel var i formatet hyperlink og det må de åbenbart ikke være.

Tak for hjælpen :) Mugs og thomasjepsen i får begge lidt point.

takker :o)

Tak for point. Jeg sad netop og så lidt på dit tidligere spørgsmål, hvor vi talte om at lagre stien som en tekststreng, og det kunne jeg ikke rigtig få til at stemme overens med teksten i dit spørgsmål her.

Men ligegyldigt - Blot du har fået det til at fungere, så er alle vel glade.