Op een formulier een hyperlink plaatsen naar een internetsite

[dirkdrent]

In access heb ik een klantenformulier gemaakt. Nu ik op het formulier elke keer de gegevens van de klant incl. het adres enz. Waar ik vaak gebruik van maak is www.google.nl om te kijken betreffend bedrijf een website heeft. Dit doe ik nog steeds door internet explorer te openen (www.google.nl) en hier ga ik dan zoeken.

Is het mogelijk om op het formulier standaard middels een knop of hyperlink het adres www.google.nl te plaatsen. Zodat ik niet constant explorer hoef te openen? Of wat nog mooier is dat de naam van het adres meteen wordt ingevuld in het zoekvenster van google?

Dit zelfde geldt wanneer wij een klant willen gaan bezoeken dan kopieëren wij de postcode en vullen dit in bij www.routenet.nl. Zou dit ook geautomatiseerd kunnen worden door een hyperlink?



Alvast bedankt, Dick

 

[LVT]

Hallo Dick,

plaats een knop op je formulier.

Bij de gebeurtenis Bij klikken geef je het volgende in.

Private Sub Knop0_Click()
FollowHyperlink "http://www.google.com/search?hl=en&ie=UTF-8&q=" & Me.Naamtekstvak
End Sub

Waarbij je nog de Naamtekstvak moet veranderen in het vakje die jij gebruikt met de te zoeken tekst.

 

[dirkdrent]

Dit werk super... heel erg bedankt. Ik heb dit ook geprobeerd bij www.routenet.nl maar dit werkte niet. Wat ik heb veranderd is het webadres, moet ik nog wat anders veranderen?

Groetjes Dirk

 

[LVT]

Hallo,

bij routenet krijg ik het niet voor elkaar een postnr, adres , ... mee te geven.
Maar je kan het wel openen met:

FollowHyperlink "http://www.routenet.nl"

 

[dirkdrent]

Als ik dit neer zet bij gebeurtenis klikken: FollowHyperlink "http://www.routenet.nl" werkt dit uitstekend.

Kan ik hier ook nog een code bij zetten die de postcode kopieert, zodat wanneer ik op routenet ben, ik alleen maar hoef te plakken???

 

[LVT]

Hallo,
Heb nog even gezocht,
met deze code kan je kopieren naar het klembord.

NaamPostcodevak.SetFocus
DoCmd.RunCommand acCmdCopy

Je verplaats de focus naar het Postcode tekstveld en kopieren.

Wanneer je nu bij routenet ctrl-v ingeeft zou je postcode moeten zijn gekopieert.

 

[dirkdrent]

Het lukt mij niet. Het volgende heb ik gedaan op het formulier (in ontwerpmodus) heb ik het postcode veld geselecteerd en heb bij gebeurtenis onder bij focus (opbouwfunctie voor programmacode geselecteerd) en heb

NaamPostcodevak.SetFocus
DoCmd.RunCommand acCmdCopy

hier geplakt. Uiteraard met de juiste naam van het postcode vak. Doe ik hier iets verkeerd want het lukt mij niet?

Groetjes Dick

 

[LVT]

Hallo,

plaats deze code Bij de Gebeurtenis "Bij klikken" van je knop.

Private Sub Knop0_Click()
NaamPostcodevak.SetFocus
Me.NaamPostcodevak.SelStart = 0
Me.NaamPostcodevak.SelLength = Len(Me.NaamPostcodevak.Text)
DoCmd.RunCommand acCmdCopy
FollowHyperlink "http://www.routenet.be"
End Sub

Bij het postcode veldje moet je niets ingeven.
Je moet dan wel nog de postcode plakken bij routenet.

Veel succes.

 

[dirkdrent]

Onderstaande code heb ik bij klikken neer gezet incl. juiste naam van het postcode veld.
Maar hij geeft de volgende foutmelding als ik op de knop klik

Opent venster Microsoft Visual Basic hierin staat

Compileerfout:
Kan de methode of het gegevenslid niet vinden

Dit is de geplaatste code

Private Sub Knop89_Click()
Postcode.SetFocus
Me.Postcode.SelStart = 0
Me.Postcode.SelLength = Len(Me.Postcode.Text)
DoCmd.RunCommand acCmdCopy
FollowHyperlink "http://www.routenet.nl"

End Sub







Ben ik wat vergeten?

 

[LVT]

Hoi,

staan de verwijzingen in de vba-editor wel goed ?

Ga naar de Visual Basic editor.

Kolom Extra -> Verwijzingen

Daar moet je een vinkje plaatsen bij:

- Visual Basic For Applications
- Microsoft Access 11.0 Object Library

Op OK klikken.

Succes,

 

[dirkdrent]

Beide staan ze aangevinkt... Werkt het bij jou wel goed zo ja, zou je een voorbeeldje hiervan willen sturen?

 

[LVT]

Bij deze:

 

[dirkdrent]

Heel erg bedankt voor het voorbeeld. Het voorbeeld werkt bij mij uitstekend, ook wanneer ik dit voorbeeld formulier plak in de database. Echter wanneer ik een knop aanmaak op mijn formulier dan blijft hij toch de compileerfout weergeven heel apart. De oplossing die jij hebt gegeven is goed, maar ik zal iets in hebben gesteld waardoor dit waarschijnlijk niet werkt.