Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Access VBA and I.E.

Posted on 2014-03-27
14
Medium Priority
?
313 Views
Last Modified: 2014-04-10
I can open I.E. with the code below, bit I then want to refresh it from other forms.  Each form has a button that when clicked, creates a new preview.html page.




 Sub OpenBrowser()

    Public webBrowser1 As WebBrowser
    Set webBrowser1 = New WebBrowser
    Set webBrowser1 = CreateObject("InternetExplorer.Application")
    With webBrowser1
        .Navigate CurrentProject.Path & "\Preview.html"
        .Visible = True
    End With

End Sub
0
Comment
Question by:rrhandle8
  • 8
  • 5
13 Comments
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39960912
Put this in a regular module:
Public oIE As Object

Open in new window


This will launch IE:
Sub OpenBrowser()

    Set oIE = CreateObject("InternetExplorer.Application")
    With oIE
        .Navigate CurrentProject.Path & "\Preview.html"
        .Visible = True
    End With

End Sub

Open in new window


This will refresh it, regardless of the form it's ran from:
oIE.Refresh

Open in new window

0
 

Author Comment

by:rrhandle8
ID: 39961896
Wonderful!!!
0
 

Author Comment

by:rrhandle8
ID: 39961899
Oops!  It keeps opening new browser windows.
0
Veeam and MySQL: How to Perform Backup & Recovery

MySQL and the MariaDB variant are among the most used databases in Linux environments, and many critical applications support their data on them. Watch this recorded webinar to find out how Veeam Backup & Replication allows you to get consistent backups of MySQL databases.

 

Author Comment

by:rrhandle8
ID: 39961910
Getting an "Application unknown error".
0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39964184
What exactly is the problem? I just tried it and it works as expected.
0
 

Author Comment

by:rrhandle8
ID: 39992301
I had to add the following to avoid the error message.

Public Sub RefreshBrowser()

    Dim i As Long
    Dim SWs As New SHDocVw.ShellWindows
    
    For i = 0 To SWs.Count - 1
        'Debug.Print Now() & SWs(i).Document.Title
        'If InStr(1, SWs(i).Document.Title, "Preview") > 0 Then
            Debug.Print "Refresh"
            SWs(i).Refresh
            'Exit For
        'End If
    Next i
    
    Debug.Print Err.Description

End Sub

Open in new window

0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39992316
What was the error message?
0
 

Author Comment

by:rrhandle8
ID: 39992710
oIE.Refresh
0
 
LVL 28

Expert Comment

by:MacroShadow
ID: 39992739
I didn't ask on what line the error occurred, I asked what the error message was!

The reason I'm asking is because I couldn't duplicate the error, it worked fine for me.
0
 

Author Comment

by:rrhandle8
ID: 39993058
I already posted that.
Getting an "Application unknown error".
It is losing track of the IE object.
0
 

Author Comment

by:rrhandle8
ID: 39993064
If it helps, I am using Office 2010 on Windows 7
0
 
LVL 28

Accepted Solution

by:
MacroShadow earned 2000 total points
ID: 39993320
Strange. I can't replicate the error.
0
 

Author Closing Comment

by:rrhandle8
ID: 39993363
The solution did not work on my PC.  I had to add some additional code.
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

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

If you need a simple but flexible process for maintaining an audit trail of who created, edited, or deleted data from a table, or multiple tables, and you can do all of your work from within a form, this simple Audit Log will work for you.
This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
The Relationships Diagram is a good way to get an overall view of what a database is keeping track of. It is also where relationships are defined. A relationship specifies how two tables connect to each other. As you build tables in Microsoft Ac…

578 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