アクセスvbaでieブラウザを開くと、最後に必ずア

質問

アクセスvbaでieブラウザを開くと、最後に必ずアクセスがアクティブになるのですが
原因が不明です。

コードは

Private Sub URL_Click()
myURL = Me.ActiveControl.Value
Call リンクを開く(myURL)
End Sub
----------------------------
Sub リンクを開く(myURL As String)

Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Top = 0
objIE.Left = 0
objIE.Width = 1000
objIE.Navigate myURL

Call IE操作_表示されるまで待つ

' AppActivate objIE

Set objIE = Nothing
End Sub

です。

AppActivate objIEはあってもなくても、コードが最後まで終わったら、必ずアクセス画面がアクティブになり、ＩＥは後ろになります。

アクセスファイルを開き直してもパソコンを再起動しても毎回同じです。
コードに原因はありますか？

回答No.1

kmetu · ベストアンサー

単純に

stWebpage_address = Me![WebPage]
stAppName = Environ("ProgramFiles") & "\Internet Explorer\iexplore.exe " + stWebpage_address
Call Shell(stAppName, 1)

こんなので開くというのはいかがですか

お礼

ご回答ありがとうございます。