Søg
Avatar billede jaze Nybegynder
30. september 2003 - 13:49 Der er 9 kommentarer og
1 løsning

Hvordan laver jeg et link til et sted på vores server

Jeg har et ubundet felt i Access, hvor jeg har genereret et streng der svarer til en fil placering på vores server drev.

Men hvordan laver jeg feltet til et link, der åbner mappen i et nyt vinduet, når der klikkes i feltet. Der er ikke nok at sige feltet er et hyperlink ;o)

Hvis der er en der kan smide mig, noget VB kode, kvitterer jeg med 60 points


Haster lidt..

Jaze
Avatar billede henrik13 Nybegynder
30. september 2003 - 13:53 #1
Jeg har en demo til krak hvor du kan skrive en anden http adresse
Avatar billede jaze Nybegynder
30. september 2003 - 13:54 #2
lad mig se den engang, det er nu til en intern placering, men skidt pyt
Avatar billede henrik13 Nybegynder
30. september 2003 - 13:58 #3
'Du skal huske at sætte refrences for MS Internet Controls i VBA editor under tools.



Function CmdFindIKrak_Click()
    On Error GoTo Err_Hyperlink
    Dim IE As New InternetExplorer
    Dim Hyperlink As String
      Hyperlink = "http://www.krak.dk "
    IE.Visible = True
    IE.Navigate2 (Hyperlink)
    Exit Function
Err_Hyperlink:
    Exit Function
End Function
Avatar billede terry Ekspert
30. september 2003 - 14:00 #4
this is MUCH easier


  Application.FollowHyperlink "C:\"
Avatar billede jaze Nybegynder
30. september 2003 - 14:01 #5
Terry, hvordan filan overfører jeg den tekst jeg har i min ubundne boks ?????
Avatar billede jaze Nybegynder
30. september 2003 - 14:05 #6
min kode ser således ud:
Private Sub linkToServer_Click()
Dim hyperlink
hyperlink = "X:\"
Application.FollowHyperlink hyperlink
End Sub

Og det virker jo perfekt, men hvordan erstatter jeg X:\ med det indhold jeg har i feltet????
Avatar billede terry Ekspert
30. september 2003 - 14:07 #7
Application.FollowHyperlink me.YourUnboundField
Avatar billede jaze Nybegynder
30. september 2003 - 14:11 #8
Det spillede 1 million Terry, thanks
Avatar billede terry Ekspert
30. september 2003 - 14:12 #9
Just a note. If you enter the text and click then you will NOT get the correct value

use
Private Sub linkToServer_Click()
Dim hyperlink
hyperlink = me.YourUnboundText.text
Application.FollowHyperlink hyperlink
End Sub


Me.txtUnbound.Text
Avatar billede terry Ekspert
30. september 2003 - 14:14 #10
selv thanks
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
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
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
White papers
Flere white papers »