By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
446,327 Members | 1,806 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 446,327 IT Pros & Developers. It's quick & easy.

Grab HTML and display in form.

P: n/a
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
Nov 13 '05 #1
Share this Question
Share on Google+
4 Replies


P: n/a
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.
Nov 13 '05 #2

P: n/a
-----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

Nov 13 '05 #3

P: n/a
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: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


Nov 13 '05 #4

P: n/a
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
Nov 13 '05 #5

This discussion thread is closed

Replies have been disabled for this discussion.