Private Sub cmd0_Click()
    'メニューバーの「挿入(I)」→「ハイパ−リンク(I)」と等価
    '「acCmdInsertHyperlink TEST」をクリックするとハイパ−リンクの挿入のダイアローグが表示されます。
    'リンク先を入力し「OK」を押すとform2のフォーム上にリンク先が挿入されます。
    Dim fm As Form
    On Error Resume Next
    
    DoCmd.OpenForm "form2", acDesign
    Set fm = Forms!form2
    'コントロールにフォーカスを当ててもフォーム上にリンク先が挿入されます。
    fm!cmd0.SetFocus
    DoCmd.RunCommand acCmdInsertHyperlink
    Err.Clear
    DoCmd.Close acForm, "form2", acSaveYes
End Sub