Solved

VBA to check if an IE tag class exists

Posted on 2012-12-21

1 solution

Medium Priority

2,839 Views

Last Modified: 2013-11-19

I've created code in MS Access that reads and stores various data elements from a web page.

But, sometimes, that page (result from filling out a form) does not have any data. In which case, a message shows up.

Here's a portion of the HTML:

<body onLoad="onLoad()">
<div id="wrap">
  <!--header start -->
  <div id="custom_header">
        <div style="width:370px; text-align:left; margin:auto 0px; padding-top:10px; padding-left:10px;">
      <p style="font-size:24pt; font-weight:bold; color: #fff; text-align:center; font-family: Tahoma, Geneva, sans-serif; line-height:24pt">
        My First Line      </p>
      <p style="font-size:18pt; font-weight:700; color: #fff; text-align:center; font-family: Tahoma, Geneva, sans-serif; padding-top:5px">
        My Second Line        <br />
        <br/>
      </p>
      <br />
    </div>
      </div>
  <!--header end --> 


<div id="main">

<div id="maincontent">
<div class="ui-corner-all warning">
	<h3>Your Business Phone Number <u>8005551212</u> is not being found!</h3>
</div><br />

Open in new window

This tag: <div class="ui-corner-all warning">

ONLY shows up in the document when the form returns no data.

what vba can I use to search the IE DOM to see if that tag/class exists?)

I feel like it should be something like one of these...

.getElementByID
.getElementsByTagName
.getElementsByClassName

But, I'm stumped.

Any help?

Comment

Question by:Kaprice

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

2 Comments

LVL 29

Accepted Solution

by:IrogSinta

IrogSinta earned 2000 total points

ID: 387149662012-12-21

I found something that maybe you could incorporate:

Dim html As Object ' MSHTML.HTMLDocument
Dim resultClasses As Object 
Dim resultClass As Object 

Set html = CreateObject("htmlfile") ' New MSHTML.HTMLDocument
html.body.innerHTML = ' String variable containing your result

Set resultClasses = html.getElementsByTagName("div") 
For Each resultClass In resultClasses 
    If resultClass.getAttribute("class") = "ui-corner-all warning" Then 
        Msgbox "Found"
        Exit For 
    End If 
Next resultClass

Open in new window

Author Closing Comment

by:Kaprice

ID: 387149742012-12-21

That's the ticket. Thanks!

Featured Post

Question has a verified solution.

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

5 Most Important Things You Need to Know About DevOps

Article by: Anush

Originally, this post was published on Monitis Blog, you can check it here . It goes without saying that technology has transformed society and the very nature of how we live, work, and communicate in ways that would’ve been incomprehensible 5 ye…

Show pictures directly from URLs in Access forms and reports

Article by: Gustav

Traditionally, the method to display pictures in Access forms and reports is to first download them from URLs to a folder, record the path in a table and then let the form or report pull the pictures from that folder. But why not let Windows retr…

Microsoft Access

Adding an Experts Exchange site search to the Firefox browser

Video by: Lucas

How to create a custom search shortcut to site-search Experts Exchange using Google in the Firefox browser. This eliminates the need to type out site:experts-exchange.com whenever you want to search the site. Launch your Bookmark Menu: Press 'Ctrl +…