Åpne en "samensatt" link gjennom VB! :)

[Crossy]

Heisan!

 

Jeg driver nå å lager et lite system i access

 

Men har kommet til et punkt der jeg ikke klarer finne ut hva jeg skal gjøre :/

 

Forklaring:

 

Jeg har fire felt:

"tittel"

"http"

"filnavn"

"filendelse"

 

tittel: tittelen for registreringen, for eksempel "Startsiden"

http: her vil det som standard stå "http://www."

filnavn: her skriver en inn for eksempel "sol"

filendelse: her skriver en inn for eksempel ".no"

 

 

http, filnavn og filendelse vil jeg skal bli samensatt til en link: "http://www.sol.no"

 

Jeg vil ha et felt, eller en knapp der det står en link: "Gå til "tittel"" (altså "Startsiden"). Men "bak" denne teksten skal altså linken "http://www.sol.no" ligge, sånn at en trykker på "gå til startsiden", og en kommer inn på sol.no

 

Håper dere forstår hva jeg mener

 

Legger til noen "prøvelser" fra meg slik at dere forstår det bedre:

 

Access:

 

="Gå til" (=[tittel] ; =[http]+[filnavn]+[filendelse])

 

 

VB (laget min første kode i programmet i dag)

 

Private Sub link_knapp_Click()

 

strhttp = [Form_S_Link].http

strfilnavn = [Form_S_Link].filnavn

strfilendelse = [Form_S_Link].filendelse

 

start "iexplorer.exe" " & strhttp & "" & strfilnavn & "" & strfilendelse & "

 

End sub

 

Håper dere kan hjelpe meg da jeg ikke kan fortsette med prosjektet før denne biten funker:)

 

Takk for tida ;D

[Jonas]

Fungerer dette?

 

Private Sub link_knapp_Click()
   Dim Url As String
   Url = http.Text & filnavn.Text & filendelse.Text
   
   MsgBox Url
   Shell "explorer " & Url
End Sub

[Crossy]

Private Sub knapp_Click()

 

strhttp = [Form_link].http

strfilnavn = [Form_link].filnavn

strfilendelse = [Form_link].filendelse

 

 

Dim Url As String

Url = ("" & http & "" & filnavn & "" & filendelse & "")

 

Shell "iexplore" & Url

End Sub

 

 

Har problemer med "Shell "iexplore" & Url"

Får "file not found

 

Noen ideer?

[Crossy]

Jeg fikk det til

 

 

 

Private Sub knapp_Click()

 

strhttp = [Form_link].http

strfilnavn = [Form_link].filnavn

strfilendelse = [Form_link].filendelse

 

 

Dim Url As String

Url = ("" & http & "" & filnavn & "" & filendelse & "")

 

Shell "explorer.exe " & Url & " "

End Sub

 

 

Trenger nå bare endre knappen en trykker på til å ha en variabel tittel (som avhenger av feltet "tittel"