Knap til at springe til evt. krak men tekst i et felt

altså - du kan jo låne linket inde fra kraks egen side

http://www.krak.dk/scripts/SOEGNING/krakdk_soegning_resultatside.asp?pub_id=KVWW&data=t&Formnavn=normal&navn=kim&soegeord=&vej=lundg%E6rdet&HUSNR=&POSTNR_FRA=&BY=&omraade=%280%29&tlf=

og så bare ændre "kim" og "lundgærdet" som det er i ovenstående tilfælde til dine variabler. Det kan lade sig gøre omend det kan give lidt problemer... og om man må skal jeg ikke kunne sige

Private Sub CmdFindIKrak_Click()
    On Error GoTo Err_Hyperlink
    Dim IE As New InternetExplorer
    Dim Hyperlink As String
    'Dim Vej As String
    'Dim Postnr As String
    'Dim Tlf As String
    Dim Navn As String
    DoCmd.RunCommand acCmdSaveRecord 'gem post hvis data er nye
    Navn = Replace(Nz(Me!Navn, ""), " ", "+") ' udskift mellemrum med +
Hyperlink="http://www.krak.dk/scripts/SOEGNING/krakdk_soegning_resultatside.asp?pub_id=KVWW&data=t&Formnavn=normal&navn=" Navn & "&vej=&HUSNR=&POSTNR_FRA=&BY=&omraade=%280%29&tlf=&person=Find+person"

    IE.Visible = True
    IE.Navigate2 (Hyperlink)
    Exit Sub
Err_Hyperlink:
    Exit Sub
End Sub

Glemte lige vej som du laver på samme måde. Husk at du skal angive husnr særskilt.

Hyperlink="http://www.krak.dk/scripts/SOEGNING/krakdk_soegning_resultatside.asp?pub_id=KVWW&data=t&Formnavn=normal&navn=" Navn & "&vej=" & Vej & "&HUSNR=&POSTNR_FRA=&BY=&omraade=%280%29&tlf=&person=Find+person"

Ok. Som det står har jeg et felt som hedder Hoved_nr. hvordan binder jeg det sammen??

http://www.krak.dk/scripts/SOEGNING/krakdk_soegning_resultatside.asp?pub_id=KVWW&data=k&Formnavn=normal&navn=&soegeord=&vej=&HUSNR=&POSTNR_FRA=&BY=&omraade=%280%29&tlf=&[Hoved_nr]&firma=Find+firma

Jeg får fejl allerede ved

Dim IE As New InternetExplorer

Du skal huske at sætte refrences for MS Internet Controls i VBA editor under tools.

Denne kode virker hos mig (har rettet en manglende " ved Navn)

Private Sub CmdFindIKrak_Click()
    On Error GoTo Err_Hyperlink
    Dim IE As New InternetExplorer
    Dim Hyperlink As String
    Dim vej As String
    'Dim Postnr As String
    'Dim Tlf As String
    Dim navn As String
    DoCmd.RunCommand acCmdSaveRecord 'gem post hvis data er nye
    navn = Replace(Nz(Me!navn, ""), " ", "+") ' udskift mellemrum med +
    vej = Replace(Nz(Me!vej, ""), " ", "+") ' udskift mellemrum med +
    Hyperlink = "http://www.krak.dk/scripts/SOEGNING/krakdk_soegning_resultatside.asp?pub_id=KVWW&data=t&Formnavn=normal&navn=" & navn & "&vej=" & vej & "&HUSNR=&POSTNR_FRA=&BY=&omraade=%280%29&tlf=&person=Find+person"

    IE.Visible = True
    IE.Navigate2 (Hyperlink)
    Exit Sub
Err_Hyperlink:
    Exit Sub
End Sub

Yes så virker det