Slimme truuk gevraagd

[brwga000]

Beste meedenkers.

Ik heb een bibliotheeksysteem voor een school gemaakt.
Werkt prima.
Moeders registreren successievelijk ISBN-nummers,
auteurs en titels.
Ik heb gemerkt dat ik bv via Google middels het simpel opzoeken van het ISBN-nummer altijd wel de titel en auteur kan ophalen.
Het volgende lijkt me geweldig :
Het ISBN-nummer wordt ingevoerd en met één druk op de knop bij auteur (of een extra button) wordt Google met ISBN-nummer als argument opgestart en indien de auteur wordt gevonden deze geselecteerd.
Het geselecteerde wordt vervolgens in het auteur-veldje gepasted.
Hetzelfde proces met de titel.

Wie weet hoe ik zoiets zou kunnen realiseren ?
Bij voorbaat dank !

Groets, Jas.

 

[Bartuls]

Simpel, gebruik de FollowHyperlink methode.

Public Sub CallGoogle()
Dim strISBNnr As String
strISBNnr = "1572319763"
Application.FollowHyperlink "http://www.google.com/search?q=ISBN+" & strISBNnr & "&ie=UTF-8&oe=UTF-8&hl=nl&lr=", , True
End Sub

 

[brwga000]

Dank je,

Ga ik meteen uitproberen !!
(Ik wist wel dat jij daar wel weer iets voor had......)


okokokokok, ik zal je naam niet meer oneerbiedig gebruiken.

Bedankt, groets Jas.

 

[brwga000]

Nog effe honourable Bartuls,
Kan ik het volgende :

strISBNnr = "1572319763"

aldus vervangen door :
strISBNnr = :FORM.FIELD ????????

(Inhoud van het currentfield)
De dames voeren nl allereerst het ISBNnr in in het veld.


Groets, Jas.

 

[Bartuls]

forms![frmJouwFormulier]![frmJouwVeld]

Wat je ook kun doen is er een functie van maken en het ISBN nummer als parameter meegeven.

Public Function CallGoogle(mstrISBNnr as String) as boolean
Application.FollowHyperlink "http://www.google.com/search?q=ISBN+" & mstrISBNnr & "&ie=UTF-8&oe=UTF-8&hl=nl&lr=", , True
End Function

Deze kun je als volgt aanroepen:

CallGoogle "98798987"
of
CallGoogle forms![frmJouwFormulier]![frmJouwVeld]