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

     

リストへもどる

新着の投稿記事


タイトルACCESSで写真を添付(挿入?)する方法
記事No42929   [関連記事]
投稿日: 2018/05/16(Wed) 10:37
投稿者yp
OS:
Access Version:2016


現在、仕事にて図面の管理をしております。
具体的な流れとしては、
@お客様より建物の構造図面・建築図面等をお預かりする
Aお預かりした図面を確認し、「図面預り書」を作成する
B建築の先生に貸出しするため預り書同様、「貸出し書」を作成する
(内容は預かり書とほぼほぼ変わりません。)
C返却された図面を確認し、預かり先・貸出先に「図面返却確認書」を作成する

やりたいことは、A・Bで作成する「図面預かり書」と「貸出し書」に
図面写真を添付(挿入?)することです。
添付する写真は両方とも同じ写真で同じ枚数です。

1冊のみお借りする場合もあれば、数10冊お借りする場合もあるため、図面写真に番号を
振っていき(@、A、B・・・)、その写真を預かり書・貸出し書を印刷する際、
”別紙1”として提出&保管をしたいのです。

また、写真の保管場所は作成する案件によって
フォルダを分けていますので、作成するたび変わっていきます。
出来たらエクセルでも見るような【参照】ボタンをクリックしたらフォルダが出てきて
保存しているフォルダから複数枚選ぶ、といったことがしたいです。

上記のようなことがしたいのですが、どなたか分かる方
いらっしゃいますでしょうか??
エクセルで管理していたのですが、容量が重くなっていくばかりで
ACESSに挑戦するいい機会でもありますので、教えていただけると幸いです。
よろしくお願いいたします。

タイトルレポートのプレビューで右クリック出来たり出来なかったり
記事No42928   [関連記事]
投稿日: 2018/05/02(Wed) 17:13
投稿者ゆんゆん
OS:Windows7
Access Version:2007

掲題の通りなのですがプレビュー画面で右クリック出来たり出来なかったりするのは何が原因でしょうか?
常に右クリック出来るようにしたいのですが。。。

☆現状☆
@オプションの「既定のショートカット メニュー(W)」にはチェックを入れています。
Aレポートを始めその他プロジェクト内で
 CurrentDb.Properties("AllowShortcutMenus") = False は書いていません。

タイトルシャネル コピー 財布
記事No42927   [関連記事]
投稿日: 2018/04/17(Tue) 11:09
投稿者シャネル コピー 財布
入荷困難のシャネルの大人気カンボンラインの激安ブランドコピー2つ折財布です!スーパー コピー ブランド http://www.hxqiu.com/ ブラックボディ&エナメルブラックのココマークを施され、中がショッキングピンクのキュートしすぎる組み合わきめが細かく柔らかい上質なカーフスキンを使用し、CCマークがオシャレな作りです。シャネル コピー 財布 http://www.hxqiu.com/?brand-25.html 大きく開くお札入れに、お札は折りたたんで入れる機能のタイプです。

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

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

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

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

タイトル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^5: 指定ファイルを開きたい
記事No42922   [関連記事]
投稿日: 2018/04/11(Wed) 09:25
投稿者ナバ
HyperLinkではなくShellでやることにしたのですね。

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

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

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

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

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

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

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

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

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