Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
659 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10642】ﾊｲﾊﾟｰﾘﾝｸの編集→ﾌｧｲﾙを開くまでを自動化したい mari 08/10/30(木) 23:23 質問[未読]
【10650】Re:ハイパーリンクの編集→ファイルを開く... YU-TANG 08/11/1(土) 14:10 回答[未読]
【10658】Re:ハイパーリンクの編集→ファイルを開く... mari 08/11/1(土) 23:29 お礼[未読]
【10665】Re:ハイパーリンクの編集→ファイルを開く... YU-TANG 08/11/2(日) 21:32 発言[未読]
【10672】Re:ハイパーリンクの編集→ファイルを開く... mari 08/11/4(火) 23:08 お礼[未読]
【10642】ﾊｲﾊﾟｰﾘﾝｸの編集→ﾌｧｲﾙを開くまでを自動化...
質問  mari  - 08/10/30(木) 23:23 -
引用なし
パスワード
   お世話になります。初心者ですがよろしくお願いします。
ﾃｰﾌﾞﾙにﾊｲﾊﾟｰﾘﾝｸのﾌｨｰﾙﾄﾞを作り、ﾌｫｰﾑにﾌｨｰﾙﾄﾞに対応しているﾃｷｽﾄﾎﾞｯｸｽが
あります。いつもそのﾌｫｰﾑを開くとまず目的のﾃｷｽﾄﾎﾞｯｸｽでのところで
まず左ｸﾘｯｸし、次に右ｸﾘｯｸ、ﾊｲﾊﾟｰﾘﾝｸの所へ行き、ﾊｲﾊﾟｰﾘﾝｸの編集で左ｸﾘｯｸ、そして参照先ﾌｧｲﾙを左ｸﾘｯｸ、ﾌｧｲﾙの場所を左ｸﾘｯｸ、Dﾄﾞﾗｲﾌﾞを
左ｸﾘｯｸで、最後に目的のﾌｫﾙﾀﾞをﾀﾞﾌﾞﾙｸﾘｯｸでやっと目的のﾌｧｲﾙを
探すことが出来ます。いつも同じ事をするので目的のﾌｫﾙﾀﾞをﾀﾞﾌﾞﾙｸﾘｯｸまでを
ｺﾏﾝﾄﾞﾎﾞﾀﾝを押すなり、ﾃｷｽﾄﾎﾞｯｸｽをﾀﾞﾌﾞﾙｸﾘｯｸするなりで、
自動的に出来ないでしょうか、本を読んだり、過去ﾛｸﾞを見たりしたのですが、
わかりません。よろしくお願いします。mari
【10650】Re:ハイパーリンクの編集→ファイルを開...
回答  YU-TANG  - 08/11/1(土) 14:10 -
引用なし
パスワード
   mariさん、こんにちは。

ダブルクリックで [ハイパーリンクの挿入] ダイアログを出すところ
までなら、比較的簡単に自動化できると思います。

テキストボックスの [ダブルクリック時] イベントに、次のような
コードを記述するだけです。

Private Sub テキストボックス_DblClick(Cancel As Integer)
On Error Resume Next
　　RunCommand acCmdInsertHyperlink
End Sub

[ハイパーリンクの挿入] ダイアログを出した後のディレクトリ移動
まで自動化するのは、ちょっと難しいかと思います。
自分は API でゴリゴリやるくらいしか思いつきませんです。

それが大きな省力化につながるのでしたら、[ハイパーリンクの挿入]
ダイアログを使わずに自作ダイアログ フォームなりファイル選択
ダイアログなりを出すとよいのではないでしょうか。
そうすれば、比較的簡単にディレクトリ移動まで自動化可能だと
思います。

それでは。
【10658】Re:ハイパーリンクの編集→ファイルを開...
お礼  mari  - 08/11/1(土) 23:29 -
引用なし
パスワード
   YU-TANGさん回答ありがとうございます。
指導頂いたようにはできました。
APIは難しそうなのでとても私には出来そうもありません。
ダイアログ フォームなりファイル選択と言うのは出来ると思うのですが、
それをテキストにいれてハイパーリンクできる（..\..\ファイル名）に
なるのでしょうか。ダイヤログを出すまでいけば、けっこう手間がはぶけるので
とりあえずはそれかなと思っています。ありがとうございます。mari
【10665】Re:ハイパーリンクの編集→ファイルを開...
発言  YU-TANG  - 08/11/2(日) 21:32 -
引用なし
パスワード
   こんばんは、YU-TANG です。

> APIは難しそうなのでとても私には出来そうもありません。

自分もやりたくないです。(笑

> ダイアログ フォームなりファイル選択と言うのは出来ると思うのですが、
> それをテキストにいれてハイパーリンクできる（..\..\ファイル名）に
> なるのでしょうか。

ちょっと物言いが微妙になってしまいますが、基本的にはできます。
ファイル選択ダイアログを使うなら、選択したファイルのフルパスが
戻りますから、絶対参照で良ければそれをそのままハイパーリンク型
フィールドに突っ込めばよろしいと思います（テストしたわけでは
ありませんので、予想です）。
ただし [ハイパーリンクの挿入] ダイアログで設定されるパスは相対
参照パスのようですので、もしそこを互換にしたいとなると、
絶対参照を相対参照に変換する処理が必要になります。

API を使うなら「PathRelativePathTo」、ユーザー定義関数を作成する
なら「絶対パス 相対パス 変換 dim」あたりで検索すると参考情報を
得られると思います。

あと、[ハイパーリンクの挿入] ダイアログでは表示文字列や
ヒント設定などのオプションを設定できますが、そこまで
再現する必要があるとなると、けっこう大変になりますね。

> ダイヤログを出すまでいけば、けっこう手間がはぶけるので
> とりあえずはそれかなと思っています。

はい。
余裕ができたら、優先度にしたがって追い追い手をつけていけば
よろしいかと。

それでは。
【10672】Re:ハイパーリンクの編集→ファイルを開...
お礼  mari  - 08/11/4(火) 23:08 -
引用なし
パスワード
   YU-TANGさんありがとうございます。
おっしゃるように優先度を見計らって、いって頂いたことを、
やってみます。またよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
659 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080767
(SS)C-BOARD v3.8 is Free