Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Access VBA and I.E.

Posted on 2014-03-27
14
Medium Priority
?
310 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
[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
  • 8
  • 5
14 Comments
 
LVL 27

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
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

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

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 27

Expert Comment

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

Author Comment

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

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 27

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

Nothing ever in the clear!

This technical paper will help you implement VMware’s VM encryption as well as implement Veeam encryption which together will achieve the nothing ever in the clear goal. If a bad guy steals VMs, backups or traffic they get nothing.

Question has a verified solution.

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

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

705 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