Søg
Avatar billede rosco Novice
09. juli 2003 - 10:48 Der er 16 kommentarer og
1 løsning

Åbne html-fil med knap

Jeg bruger følgende sti til at åbne hjælp.htm med.
Men det kræver at brugeren placerer programmet samme sted.
Derfor prøvede jeg at bruge "CurrentProject.Path & ", men uden held.

stAppName = "C:\Programmer\Internet Explorer\iexplore.exe C:\Programmer\Videokartotek\Hjælp.htm"

Knappen skulle gerne kunne fungere uanset hvor programmet placeres af brugeren.( Hyperlink kan gøre det, men jeg vil helst bruge en knap).

Er der en der har et godt forslag
Avatar billede overchord Nybegynder
09. juli 2003 - 10:51 #1
Det nemmeste er bare at foelge et hyperlink naar du klikker paa knappen:

sub Knap1_click()

Docmd.Followhyperlink ("../help/hjaelp.html")

end sub
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
09. juli 2003 - 10:54 #2
Lav en reference til Microsoft Internet Controls
Herefter skriver du noget i stil med:

Dim IE as New InternetExplorer
IE.Navigate2 "C:\Programmer\Videokartotek\Hjælp.htm"
Avatar billede rosco Novice
09. juli 2003 - 10:59 #3
Vil ikke kendes ved Docmd.Followhyperlink
Bruger Access 2000 , Win XP
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
09. juli 2003 - 11:00 #4
Followhyperlink er vist også ny i XP
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
09. juli 2003 - 11:04 #5
Du skal forøvrigt nok lige have en line mere på min kode:
IE.Visible = True
Avatar billede rosco Novice
09. juli 2003 - 11:06 #6
Thomas det virker godt nok men jeg bruger stadig en præcis sti til filen.
Avatar billede riversen Nybegynder
09. juli 2003 - 11:11 #7
du bør måske bruge %programfiles% istedet for c:\programmer
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
09. juli 2003 - 11:13 #8
Du burde kunne databasen sti:

Dim IE as New InternetExplorer
IE.Navigate2 CurrentProject.Path & "\Hjælp.htm"
IE.Visible = True
Avatar billede rosco Novice
09. juli 2003 - 11:16 #9
Virker stadig ikke
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
09. juli 2003 - 11:19 #10
Kan du prøve at debugge (sætte breakpoint på linien:
IE.Navigate2 CurrentProject.Path & "\Hjælp.htm"

Marker CurrentProject.Path & "\Hjælp.htm" og tryk Shift+F9

Er stien korrekt?
Avatar billede rosco Novice
09. juli 2003 - 11:22 #11
Hele linien markeres
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
09. juli 2003 - 11:24 #12
Yes, så kør formularen og tryk på knappen.
Når linien markeres med gult, skal du - med musen - markere: CurrentProject.Path & "\Hjælp.htm"
og derefter trykke Shift+F9
Avatar billede rosco Novice
09. juli 2003 - 11:27 #13
Det lykkedes nu jeg manglede error funktionen.

Private Sub Kommandoknap69_Click()
On Error GoTo Err_Kommandoknap69_Click

    Dim IE As New InternetExplorer
   
    IE.Navigate2 CurrentProject.Path & "\Hjælp.htm"
    IE.Visible = True

Exit_Kommandoknap69_Click:
    Exit Sub

Err_Kommandoknap69_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap69_Click
   
End Sub

Tak for hjælpen
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
09. juli 2003 - 11:28 #14
anytime :o)
Avatar billede overchord Nybegynder
09. juli 2003 - 13:19 #15
jeg kan da lige naevne at jeg har brugt followhyperlink i Access 97.....
Men jeg skrev godt nok at det var en docmd. Istedet er det bare en
application.followhyperlink

Har altid virket for mig :-)
Avatar billede rosco Novice
10. juli 2003 - 00:37 #16
Overchord > jeg fik også din til at virke.
Den kom til at se sådan ud.

Private Sub bntHjælp_Click()
On Error GoTo Err_bntHjælp_Click

    Application.FollowHyperlink ("../Videokartotek/hjælp.htm")

Exit_bntHjælp_Click:
    Exit Sub

Err_bntHjælp_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap82_Click
   
End Sub

Jeg lægger et spørgmål, så er der også point til dig
Der skal være retfærdighed til. :o)
Avatar billede rosco Novice
10. juli 2003 - 00:41 #17
så er der lidt forskelligt at vælge imellem

End Sub
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
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access 9 16/04/202620:11 21/04/202615:43
AI integreret i Access Af per2edb i Access 3 06/04/202610:42 06/04/202612:58
Autonummerering Af hlnviv i Access 2 06/03/202606:24 06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access 6 03/03/202613:18 04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access 8 18/11/202500:24 18/11/202510:25
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:35 Bruger på Win11 Af lurup i Browsere
07/1022:52 Google beskeder har/havde en bug, så den sendte tilfældige gamle beskeder gemt indeni nye beskeder efter skifte til ny Samsungtelefon via Samsung Smart Switch Af KennethLykke i Apps til Android
05/1010:31 Min IPAD vil ikke oplade. Af Nørdnot i Mac
04/1018:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
White papers
Flere white papers »