I am calling tabs in "ms access". IE is more or less a shot in the dark for me but I got the following code to work for years until now. At first the second tab hung. I could manually click through the code and the tabs loaded fine. I'm trying to load converted pdf reports from access from my hard drive. I then tried changed the tabs to web addresses and the hex variant to H since 2048 didn't work. This worked (so I thought) so, I gradually added the pdf files and one at a time except for the initial tab and the second tab. This worked a few times but then the second tab and all subsequent tabs flashed for a second and disappeared. I changed the links to web addresses again but they still flashed for a second and disappeared. I re-registered all the dll's to no avail. Any help is much appreciated. Alan
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
Dim H As Variant
H = CInt(&H800)
Call VariantChangeType(H, H, 0, vbLong)
Call ie.navigate("www.bing.com")
While ie.busy
DoEvents
Wend
If assrst.RecordCount > 0 Then
Call ie.navigate("C:\clinicians mind\clients folder\Assessment.pdf", 2048)
Do While ie.ReadyState <> 4 Or ie.busy
DoEvents
Loop
iewait
End If
If actRst.RecordCount > 0 Then
Call ie.navigate("C:\clinicians mind\clients folder\Action Plan.pdf", 2048)' CHANGED 2048 TO H
Do While ie.ReadyState <> 4 Or ie.busy
DoEvents
Loop
iewait
End If
If sessRst.RecordCount > 0 Then
Call ie.navigate("C:\clinicians mind\clients folder\Session Note.pdf", 2048) CHANGED 2048 TO H
Do While ie.ReadyState <> 4 Or ie.busy
DoEvents
Loop
iewait
End If
Call ie.navigate("C:\clinicians mind\clients folder\Demographics.pdf", 2048) CHANGED 2048 TO H
While ie.busy
DoEvents
Wend
iewait
ie.Navigate2 "about:Tabs", 2048 ' CHANGED 2048 TO H
Do While ie.ReadyState <> 4 Or ie.busy
DoEvents
Loop
iewait
ie.Quit