akimotiblog

‘ActiveXにwebを表示させる
Private Sub

If Not IsNull([○○]) Or [○○] <> "" Then
    Me!オブジェクト名.Navigate [○○]
    Me!オブジェクト名 = True
Else
    Me!オブジェクト名.Navigate "http://akimoti-93.cheap.jp/"
End If

Exit Sub
Exception:
Me!オブジェクト名.Navigate “http://akimoti-93.cheap.jp/”
End Sub

Me!ctrlIE.Silent = True

これでACCESS内に表示させているwebのスクリプトエラーを回避することができます。