Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル指定ファイルを開きたい
記事No42917
投稿日: 2018/04/09(Mon) 16:23
投稿者あいかんな
OS:7
Access Version:2016

お教え下さい。

顧客資料一式をサーバー内の指定フォルダ「顧客F」に顧客IDごとに保存しています。
顧客フォーム内の「リンクボタン」を押した場合、顧客IDとリンクした上記ファイルを開きたいのですが、
その場合のコードはどのように記述すればよろしいでしょうか。

タイトルRe: 指定ファイルを開きたい
記事No42918
投稿日: 2018/04/09(Mon) 17:14
投稿者ナバ
こんにちは。

> 顧客フォーム内の「リンクボタン」を押した場合、顧客IDとリンクした上記ファイルを開きたいのですが、
> その場合のコードはどのように記述すればよろしいでしょうか。

コマンドボタンのクリックイベントで、
コマンドボタンのHyperlinkAddressプロパティに顧客IDを組み込んだ文字列をセットすればいいでしょう。

タイトルRe^2: 指定ファイルを開きたい
記事No42919
投稿日: 2018/04/10(Tue) 09:11
投稿者あいかんな
> こんにちは。
>
> > 顧客フォーム内の「リンクボタン」を押した場合、顧客IDとリンクした上記ファイルを開きたいのですが、
> > その場合のコードはどのように記述すればよろしいでしょうか。
>
> コマンドボタンのクリックイベントで、
> コマンドボタンのHyperlinkAddressプロパティに顧客IDを組み込んだ文字列をセットすればいいでしょう。

ナバさま

ご返信ありがとうございます。
HyperlinkAddressプロパティを使ったコードを調べたのですが、参考になるコード記述例がありません。
お教えいただけるとありがたいです。

タイトルRe^3: 指定ファイルを開きたい
記事No42920
投稿日: 2018/04/10(Tue) 09:30
投稿者ナバ
> HyperlinkAddressプロパティを使ったコードを調べたのですが、参考になるコード記述例がありません。

参考と言っても、そのままですよ。

コマンドボタン:リンクボタン
顧客IDのコントロール:顧客ID
開きたいフォルダ:\\sv1\顧客F
開きたいファイル:顧客資料一式.xlsx

リンクボタン.HyperlinkAddress = "\\sv1\顧客F\" & Me!顧客ID & "\顧客資料一式.xlsx"

「顧客資料一式」が1つのファイルではなく、複数のファイルだったり、
固定のファイル名でない場合は、また別のやり方が必要です。

タイトルRe^4: 指定ファイルを開きたい
記事No42921
投稿日: 2018/04/10(Tue) 18:03
投稿者あいかんな
このように記述しております。
顧客F内にある、顧客IDと同じ名前のフォルダをリンクで開きたいのですが、
どこがダメなんでしょうか。

Private Sub cmdリンクボタン_Click()
On Error GoTo Exception

Dim strPath As String

strPath = DLookup("[ファイル保管場所]", "環境設定") & "\顧客F"
If Dir(strPath, vbDirectory) = "" Then
MsgBox "ファイル保管場所に「顧客F」フォルダーがありません!"

ElseIf Dir(strPath & "\" & [顧客ID] & ".Folder") = "" Then
MsgBox "ファイルがありません。" & vbCrLf & _
"保存先フォルダーを開きます。"
Call Shell("explorer """ & strPath & """", vbNormalFocus)
Else
Call Shell("explorer """ & strPath & "\" & [顧客ID] & ".Folder""", vbMaximizedFocus)
End If

Exit Sub
End Sub

タイトルRe^5: 指定ファイルを開きたい
記事No42922
投稿日: 2018/04/11(Wed) 09:25
投稿者ナバ
HyperLinkではなくShellでやることにしたのですね。

> どこがダメなんでしょうか。
1.
まずは「ダメ」を説明してください。
このコードでいずれかのエラーメッセージが出るのか、
メッセージが出ないがファイルが開かないのか。

2.
[顧客ID] を Me![顧客ID] にしてみてください。

3.
Debug.Print "explorer """ & strPath & "\" & Me![顧客ID] & ".Folder"""
として、どういう文字列ができているのか確認してください。

タイトルRe^6: 指定ファイルを開きたい
記事No42923
投稿日: 2018/04/11(Wed) 14:34
投稿者あいかんな
ナバさま

ご返信ありがとうございます。

> 1.
> まずは「ダメ」を説明してください。
> このコードでいずれかのエラーメッセージが出るのか、
> メッセージが出ないがファイルが開かないのか。


@顧客Fの中に顧客IDと同じ名前のフォルダはある
Aファイルがありません。保存先フォルダーを開きます と表記
B顧客Fが開きます。

> 2.
> [顧客ID] を Me![顧客ID] にしてみてください。

上記と同じく、顧客Fが開きます

> 3.
> Debug.Print "explorer """ & strPath & "\" & Me![顧客ID] & ".Folder"""
> として、どういう文字列ができているのか確認してください。

置き換えてみましたが、顧客Fが開きます

タイトルRe^7: 指定ファイルを開きたい
記事No42924
投稿日: 2018/04/11(Wed) 15:11
投稿者ナバ
> > 3.
> > Debug.Print "explorer """ & strPath & "\" & Me![顧客ID] & ".Folder"""
> > として、どういう文字列ができているのか確認してください。
>
> 置き換えてみましたが、顧客Fが開きます

Debug.Print で動作は変わりません。
イミディエイトウィンドに結果が表示されますので、
それをコピペしてください。

タイトルRe^8: 指定ファイルを開きたい
記事No42925
投稿日: 2018/04/11(Wed) 16:52
投稿者あいかんな
> > > 3.
> > > Debug.Print "explorer """ & strPath & "\" & Me![顧客ID] & ".Folder"""
> > > として、どういう文字列ができているのか確認してください。
> >
> > 置き換えてみましたが、顧客Fが開きます
>
> Debug.Print で動作は変わりません。
> イミディエイトウィンドに結果が表示されますので、
> それをコピペしてください。

タイトルRe^9: 指定ファイルを開きたい
記事No42926
投稿日: 2018/04/12(Thu) 09:48
投稿者ナバ
投稿を間違えましたか?

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る