Solved

Access VBA:  Click link for webbrowser naviation

Posted on 2010-09-17
10
875 Views
Last Modified: 2012-05-10
I can't seem to get the syntax to work to InvokeMember click a link on a web page within the ActiveX WebBrowser object.

The WebBrowser is linking to a page that lists a series of records.  My program searches the body of the page, performs some actions, and then I want it to click the "Next" link at the bottom and start over again on the next page.  The title of the link is "Next Page".

Can you please provide syntax, including any necessary references, to click the "Next Page" link?

Thanks.
0
Comment
Question by:Phish_Head
  • 5
  • 2
  • 2
10 Comments
 
LVL 5

Expert Comment

by:rajaamirapu
ID: 33703663
Get the document from webbrower. Include html library and iterate throgh all the links. In the links you will get your link. Navigate to that link by calling the Browser.navigate
Hope this helps
0
 

Author Comment

by:Phish_Head
ID: 33704557
I'm unable to find full syntax to loop through the available links.  Can you please provide the code?
0
 
LVL 65

Expert Comment

by:rockiroads
ID: 33705956
Another way possibly is to embed the datasheet view of a query in a form (datasheet view of a form essentially with the form's recordsource being the query). The form has properties like allowedits etc.
0
Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

 
LVL 65

Expert Comment

by:rockiroads
ID: 33705958
My bad, wrong thread! doh!
0
 
LVL 65

Accepted Solution

by:
rockiroads earned 250 total points
ID: 33706120
Ok, now I am on your thread.

From my understanding you have a webbrowser control
This has many links to it but the one you are interested in is titled Next Page
You want to find this and navigate to whatever that is?

Right assuming you had a control called webie. We get the list of links, find Next Page and navigate to that url



Dim htmldoc As HTMLDocument
    Dim htmllinks As HTMLAnchorElement
    
    Set htmldoc = webIE.Document
    For Each htmllinks In htmldoc.Links
        If htmllinks.innerText = "Next Page" Then
            webIE.Navigate2 htmllinks.href
            Exit For
        End If
    Next

Open in new window

0
 
LVL 5

Expert Comment

by:rajaamirapu
ID: 33706213
Here webIE is the webbrowser control
0
 

Author Comment

by:Phish_Head
ID: 33716377
I meant to allocate the points to rockiroads
0
 
LVL 65

Expert Comment

by:rockiroads
ID: 33717291
I did wonder about the accepted solution until I saw your last post. You can post a question in community support to get this corrected. For PAQness sake it would be good to show the accepted solution.
0
 
LVL 65

Expert Comment

by:rockiroads
ID: 33721964
sorry, forgot to give you the link read this when things go wrong http://www.experts-exchange.com/help.jsp#hs=29&hi=409
0

Featured Post

Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question