Grab HTML and display in form.

[Nick J]

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!é]

Nick J wrote:

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

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]

-----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:

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

[Nick J]

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" <[e-mail]> wrote in message
news:fh*****************@newsread3.news.pas.earthl ink.net...

-----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:

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

[rkc]

Nick J wrote:

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

Take a look at:

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