４章 カスタマイズ ／４-9その他

ヘルプ画面をIEに変更する

ヘルプ画面をインターネットのブラウザに変更できます。
データベースの［モジュール］を修正します。

＜手順＞
  1. ［モジュール］mdlApOpen（オープン処理）を開きます。
    データベース画面の［モジュール］タブをクリックします。
    mdlApOpen（オープン処理）をダブルクリックします。
  2. apTecMnlOpn関数を編集します。
    apTecMnlOpn関数の下記内容を編集します。
    '○apTecMnlOpn *********************************************************
'テクニカルマニュアルを開く（各部）
Public Function apTecMnlOpn(prmSel As String) As String
'apPushDbgStack ("apTecMnlOpn")   'エラー情報１（スタック登録）
On Error GoTo Err_apTecMnlOpn
    DoCmd.OpenForm "Ap00Help", acNormal, , , acFormReadOnly, acWindowNormal, prmSel
    
'    FollowHyperlink apKnkInfo.strApTecDir & "\" & prmSel, , True  'ヘルプページ設定
'    DoCmd.ShowToolbar "Web", acToolbarNo    'Web
Exit_apTecMnlOpn:
    下記内容をコメントにします。（行の先頭に”'”を入力します。）
        DoCmd.OpenForm "Ap00Help", acNormal, , , acFormReadOnly, acWindowNormal, prmSel
    下記内容のコメント記述をはずします。（行の先頭の”'”を削除します。）
    '    FollowHyperlink apKnkInfo.strApTecDir & "\" & prmSel, , True  'ヘルプページ設定
'    DoCmd.ShowToolbar "Web", acToolbarNo    'Web
Exit_apTecMnlOpn:
    編集後は下記のようになります。
    '○apTecMnlOpn *********************************************************
'テクニカルマニュアルを開く（各部）
Public Function apTecMnlOpn(prmSel As String) As String
'apPushDbgStack ("apTecMnlOpn")   'エラー情報１（スタック登録）
On Error GoTo Err_apTecMnlOpn
'    DoCmd.OpenForm "Ap00Help", acNormal, , , acFormReadOnly, acWindowNormal, prmSel
    
    FollowHyperlink apKnkInfo.strApTecDir & "\" & prmSel, , True  'ヘルプページ設定
    DoCmd.ShowToolbar "Web", acToolbarNo    'Web
Exit_apTecMnlOpn:
    以上です。