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に挑戦するいい機会でもありますので、教えていただけると幸いです。
よろしくお願いいたします。

タイトルRe: ACCESSで写真を添付(挿入?)する方法
記事No42930
投稿日: 2018/06/20(Wed) 17:03
投稿者克彦
Private Sub cmd写真取り込_Click()
Dim intRet As Integer 'ダイアログ用変数
Dim GetFileName As String 'フルパスの値

With Application.FileDialog(msoFileDialogOpen)
'ダイアログのタイトルを設定
.Title = "ファイルを開くダイアログ"
'ファイルの種類を設定
.Filters.Clear
.Filters.Add "Microsoft Office Excelファイル", "*.xls,*.csv,*.jpg"


.FilterIndex = 1
'複数ファイル選択を許可しない
.AllowMultiSelect = False
'初期パスを設定
' .InitialFileName = CurrentProject.Path
' .InitialFileName = "\\192.168.137.xxx\ホルダー名"
.InitialFileName = "\\192.168.137.xxx\cdsAccess\accdb\作業免許写真"
' \\Cbcl32\作業免許写真
'ダイアログを表示
intRet = .Show

If intRet <> 0 Then
'ファイルが選択されたとき
'そのフルパスを返り値に設定
GetFileName = Trim(.SelectedItems.Item(1))
Else
'ファイルが選択されなければブランク
GetFileName = ""
End If
End With
'選択されたフルパスをテキストボックスへ表示
Me.txt写真パス = GetFileName


上記を加工してください


> OS:
> Access Version:2016
>
>
> 現在、仕事にて図面の管理をしております。
> 具体的な流れとしては、
> @お客様より建物の構造図面・建築図面等をお預かりする
> Aお預かりした図面を確認し、「図面預り書」を作成する
> B建築の先生に貸出しするため預り書同様、「貸出し書」を作成する
> (内容は預かり書とほぼほぼ変わりません。)
> C返却された図面を確認し、預かり先・貸出先に「図面返却確認書」を作成する
>
> やりたいことは、A・Bで作成する「図面預かり書」と「貸出し書」に
> 図面写真を添付(挿入?)することです。
> 添付する写真は両方とも同じ写真で同じ枚数です。
>
> 1冊のみお借りする場合もあれば、数10冊お借りする場合もあるため、図面写真に番号を
> 振っていき(@、A、B・・・)、その写真を預かり書・貸出し書を印刷する際、
> ”別紙1”として提出&保管をしたいのです。
>
> また、写真の保管場所は作成する案件によって
> フォルダを分けていますので、作成するたび変わっていきます。
> 出来たらエクセルでも見るような【参照】ボタンをクリックしたらフォルダが出てきて
> 保存しているフォルダから複数枚選ぶ、といったことがしたいです。
>
> 上記のようなことがしたいのですが、どなたか分かる方
> いらっしゃいますでしょうか??
> エクセルで管理していたのですが、容量が重くなっていくばかりで
> ACESSに挑戦するいい機会でもありますので、教えていただけると幸いです。
> よろしくお願いいたします。

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

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