Connecting Tech Pros Worldwide Forums | Help | Site Map

Grab HTML and display in form.

Nick J
Guest
 
Posts: n/a
#1: Nov 13 '05
Hi,

I am currently working on a parcel tracking facility. Currently I am using
Application.FollowHyperlink (see code below) but this means opening a new
Internet Explorer window. What I would like to do is for Access to access
the information from the webpage then only text from a certain part of the
webpage (eg ITEM DELIVERED on 12/04/05 at 12.30pm) be displayed in the form.

Am I looking at an easy solution or would this be quite complicated?

The current code I am using is...

Private Sub CheckRmStatus_Click()
Dim WebsiteRM As String

WebsiteRM = "http://afis.postoffice.co.uk:8080/RoyalMail/RMGTT?ITEMIN=" &
Me.RmTrackingNumber & "&DATEIN=12/12/03"

Application.FollowHyperlink WebsiteRM, , True
Exit Sub


--

Kind Regards...

Customer Services Team
Blue Bell Trading

+++ WHEN REPLYING PLEASE DO NOT DELETE ANY OF THE TEXT AS WE NEED IT FOR
REFERENCE +++

Blue Bell Trading



Ol!v!é
Guest
 
Posts: n/a
#2: Nov 13 '05

re: Grab HTML and display in form.


Nick J wrote:[color=blue]
> Hi,
>
> I am currently working on a parcel tracking facility. Currently I am using
> Application.FollowHyperlink (see code below) but this means opening a new
> Internet Explorer window. What I would like to do is for Access to access
> the information from the webpage then only text from a certain part of the
> webpage (eg ITEM DELIVERED on 12/04/05 at 12.30pm) be displayed in the form.
>
> Am I looking at an easy solution or would this be quite complicated?
>
> The current code I am using is...
>
> Private Sub CheckRmStatus_Click()
> Dim WebsiteRM As String
>
> WebsiteRM = "http://afis.postoffice.co.uk:8080/RoyalMail/RMGTT?ITEMIN=" &
> Me.RmTrackingNumber & "&DATEIN=12/12/03"
>
> Application.FollowHyperlink WebsiteRM, , True
> Exit Sub
>
>[/color]
You can open a socket to the webserver and download the contents to a
string. You can then use that string in your form.
MGFoster
Guest
 
Posts: n/a
#3: Nov 13 '05

re: Grab HTML and display in form.


-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

You can use the Microsoft Internet Transfer control. I have it as part
of a VB5 installation. It may also be in the Access (Office)
developer's edition of Access (Office). With it you can read a WEB page
like this:

Dim strPage As String
WebsiteRM = "http://afis.postoffice.co.uk:8080/" & _
"RoyalMail/RMGTT?ITEMIN=" & _
Me!RmTrackingNumber & "&DATEIN=12/12/03"
Inet1.AccessType = icUseDefault
strPage = Inet1.OpenURL WebsiteRM

strPage should hold the complete page from the URL.
--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQmKQzIechKqOuFEgEQKMgQCfTBn7c16WO3hbeg8UUved02 i8340AmQHK
XDjb+ujLbZHVm53/FWKa7qNb
=SBxf
-----END PGP SIGNATURE-----

Nick J wrote:[color=blue]
> Hi,
>
> I am currently working on a parcel tracking facility. Currently I am using
> Application.FollowHyperlink (see code below) but this means opening a new
> Internet Explorer window. What I would like to do is for Access to access
> the information from the webpage then only text from a certain part of the
> webpage (eg ITEM DELIVERED on 12/04/05 at 12.30pm) be displayed in the form.
>
> Am I looking at an easy solution or would this be quite complicated?
>
> The current code I am using is...
>
> Private Sub CheckRmStatus_Click()
> Dim WebsiteRM As String
>
> WebsiteRM = "http://afis.postoffice.co.uk:8080/RoyalMail/RMGTT?ITEMIN=" &
> Me.RmTrackingNumber & "&DATEIN=12/12/03"
>
> Application.FollowHyperlink WebsiteRM, , True
> Exit Sub
>
>[/color]
Nick J
Guest
 
Posts: n/a
#4: Nov 13 '05

re: Grab HTML and display in form.


Hi,

Thats a shame, I do not have the developer version of access :(

Maybe in the future I'll see about getting it.

--

Kind Regards...

Customer Services Team
Blue Bell Trading

+++ WHEN REPLYING PLEASE DO NOT DELETE ANY OF THE TEXT AS WE NEED IT FOR
REFERENCE +++

Blue Bell Trading
"MGFoster" <me@privacy.com> wrote in message
news:fhw8e.7658$yq6.2393@newsread3.news.pas.earthl ink.net...[color=blue]
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> You can use the Microsoft Internet Transfer control. I have it as part
> of a VB5 installation. It may also be in the Access (Office)
> developer's edition of Access (Office). With it you can read a WEB page
> like this:
>
> Dim strPage As String
> WebsiteRM = "http://afis.postoffice.co.uk:8080/" & _
> "RoyalMail/RMGTT?ITEMIN=" & _
> Me!RmTrackingNumber & "&DATEIN=12/12/03"
> Inet1.AccessType = icUseDefault
> strPage = Inet1.OpenURL WebsiteRM
>
> strPage should hold the complete page from the URL.
> --
> MGFoster:::mgf00 <at> earthlink <decimal-point> net
> Oakland, CA (USA)
>
> -----BEGIN PGP SIGNATURE-----
> Version: PGP for Personal Privacy 5.0
> Charset: noconv
>
> iQA/AwUBQmKQzIechKqOuFEgEQKMgQCfTBn7c16WO3hbeg8UUved02 i8340AmQHK
> XDjb+ujLbZHVm53/FWKa7qNb
> =SBxf
> -----END PGP SIGNATURE-----
>
> Nick J wrote:[color=green]
>> Hi,
>>
>> I am currently working on a parcel tracking facility. Currently I am
>> using Application.FollowHyperlink (see code below) but this means opening
>> a new Internet Explorer window. What I would like to do is for Access to
>> access the information from the webpage then only text from a certain
>> part of the webpage (eg ITEM DELIVERED on 12/04/05 at 12.30pm) be
>> displayed in the form.
>>
>> Am I looking at an easy solution or would this be quite complicated?
>>
>> The current code I am using is...
>>
>> Private Sub CheckRmStatus_Click()
>> Dim WebsiteRM As String
>>
>> WebsiteRM = "http://afis.postoffice.co.uk:8080/RoyalMail/RMGTT?ITEMIN=" &
>> Me.RmTrackingNumber & "&DATEIN=12/12/03"
>>
>> Application.FollowHyperlink WebsiteRM, , True
>> Exit Sub
>>[/color][/color]

rkc
Guest
 
Posts: n/a
#5: Nov 13 '05

re: Grab HTML and display in form.


Nick J wrote:
[color=blue]
> The current code I am using is...
>
> Private Sub CheckRmStatus_Click()
> Dim WebsiteRM As String
>
> WebsiteRM = "http://afis.postoffice.co.uk:8080/RoyalMail/RMGTT?ITEMIN=" &
> Me.RmTrackingNumber & "&DATEIN=12/12/03"
>
> Application.FollowHyperlink WebsiteRM, , True
> Exit Sub[/color]

Take a look at:

http://www.4guysfromrolla.com/webtech/110100-1.shtml
Closed Thread