Knap med link til krak

Hej. Det er løst før se:
http://www.eksperten.dk/spm/318915
Vh Henrik13

Nu har jeg været nede og kopieret den til dig:
Du skal huske at sætte refrences for MS Internet Controls i VBA editor under tools.

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

Den kode har jeg set i spm. 318915, jeg har nu ændret den så den ser sådan hér ud:

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 Telefon As String
    DoCmd.RunCommand acCmdSaveRecord 'gem post hvis data er nye
    Telefon = Replace(Nz(Me!Telefon, ""), " ", "+") ' 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

og lagt den i et modul....Men hvad er det, som jeg skal ændre i references ? og hvad skal jeg rent praktisk gøre i min form ? - der mangler vel noget omkring telefonnummerfeltet som variabel i http-strengen eller ? og til sidst hvad mener du med "udskift mellemrum med +"

Det er sikkert helt basalt - men jeg er godt nok på bar bund

Lav en knap, til at kalde modulet. I hændellsen ved klik, skriver du:
Call CmdFindIKrak
Det er rigtigt at det stammer fra det pågældene spørgsmål, det skrev jeg jo i mit første svar. Derefter hentede jeg den pågældene setning.
Vh Henrik13

Så får jeg en melding om at den ikke kan finde makroen FindIKrak..... - jeg har lavet det som et modul som du tidligere har skrevet

Slet den knap, og lav en.
1. Gå i designvisning.
2. Klik med højre mouse tast på knappen.
3. Gå i egenskaber.
4. Gå til Ved klik.
5. Tryk på ...
6. Vælg Hændelsprocedyre
7. Indsæt der sætningen, Call CmdFindIKrak
Så skulle det være klaret.
:o)

Jeg får stadig samme fejl - når jeg opretter knappen, angiver jeg at den skal køre program, herter c:\.........ie...... er det ikke sådan?

Kan jeg evt. maile dig DB - ca. 700K i zip?

Ja.
Min email er:
oz1bua@wanadoo.dk
:o)

Så er den på vej :-|

/Kenneth

Jeg har ikke modtaget den enu.  :o)

Jeg har lige sendt den igen.....

Bedre sent end aldrig.........

Tak for poient.