Access　添付ファイルをテーブルに登録すると二重登録になってしまいます。

前提・実現したいこと

現在Accessでシステムを開発しています。(Access初心者です)

交渉履歴というフォームの登録ボタンを押下した際に
交渉履歴テーブルに新規レコードが作成されるような処理をしたいと考えております。

フォーム上にはテキストボックスのほかに添付ファイル型のものを置いていますが、
添付ファイルにExcelやWordなどを添付すると、0レコード目に添付ファイルが登録されてしまいます。

フォーム上にあるテキストボックスは正しくテーブルに登録されていますので、
2重登録になってることになります。

テキストボックスと同じレコードに添付ファイルも登録したいのですが、可能なのでしょうか？
(添付ファイルは形式は確定していません。txt,xlsx,pptx,logなど)

交渉履歴テーブルには添付ファイル型のカラムを設置しています。

これらのサイトを拝見しましたが、解決することが出来ませんでした。
https://docs.microsoft.com/ja-jp/office/vba/access/concepts/data-access-objects/work-with-attachments-in-dao

https://tsware.jp/tips/tips_490.htm

また、別フォームで交渉履歴テーブルに登録されているレコードを表示したいのですが、
添付ファイル型だけがうまく表示されません。
SQLで添付ファイルを取得することは可能なのでしょうか…？

ぜひ、ご教授いただければと思います。
よろしくお願いします。

試したこと

set RECで新規レコードを作成した際に、添付ファイルも登録する処理を
VBAに記入。(うまく行きませんでした）

補足情報（FW/ツールのバージョンなど）

Access 2016

hatena19

2020/03/11 09:55

> 添付ファイルにExcelやWordなどを添付すると、0レコード目に添付ファイルが登録されてしまいます。そのうまくいかない現状のVBAコードを提示してください。 > また、別フォームで交渉履歴テーブルに登録されているレコードを表示したいのですが、添付ファイル型だけがうまく表示されません。どのようにしてどのようにうまく表示できないのか具体的に説明してください。

one9999

2020/03/12 07:56 編集

hatena19様現在書いているVBAは下記になります。＜ Set REC = CurrentDb.OpenRecordset("交渉履歴", dbOpenDynaset, dbDenyRead, dbPessimistic) With REC .AddNew !交渉履歴ID =me.交渉履歴ID.Value !顧客番号 = me.顧客番号.Value !返済回 = me.返済回.Value !添付ファイル = me.添付ファイル.Value .Update .Close: Set REC = Nothing End With　＞また、添付ファイルの参照につきましては＜sql = "select 交渉履歴ID,顧客番号,返済回,添付ファイル from 交渉履歴 where 交渉履歴ID =”& me.交渉履歴ID ＞という風に書いています。 Access初心者で至らない点が多く、申し訳ございませんがよろしくお願いします。

hatena19

2020/03/12 07:21

質問は編集できますのて、このコードを質問に追記してください。また、コードはマークダウン書式のコードタグで囲んでください。あるいはコード部分を選択して、ツールバーの <code> ボタンをクリックしてもOKです。

hatena19

2020/03/12 07:26

「交渉履歴というフォーム」のレコードソースプロパティは「交渉履歴」と設定されてますか。それとも空欄になってますか。

one9999

2020/03/12 07:58

コードを質問に追記に関しては、後ほどさせていただきます。交渉履歴フォームのレコードソースは交渉履歴に設定しています。