ACCESS２０１６で入力フォームで登録した添付ファイルを登録したい。

Question

前提・実現したいこと

入力フォームで複数追加した添付ファイルを登録ボタン押下時にレコードに登録したい。

ここに質問の内容を詳しく書いてください。
単票型の入力フォームを作成しています。
添付ファイルを複数県追加しレコードに登録した際に指定した場所にファイルを
登録したい。

■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

前提として保存先のテーブルには複数件、レコードが登録されている状態です。
1件目のレコードには添付ファイル、A.pdf、B.pdf、C.pdfが登録されています。

新規にデータを登録(例：添付ファイルD.pdf、E.pdf、F.pdf)しようとすると
A.pdf、B.pdf、C.pdfが再度登録されてしまう。

エラーメッセージ
実行時エラー 3839
指定したファイルは既に存在しています。

該当のソースコード

ソースコード
Private Sub btn入力_Click()
Dim Rst As DAO.Recordset
  Set Rst = CurrentDb.OpenRecordset("仕入管理", dbOpenTable)
  
  Set rsPictures = Rst.Fields("添付").Value
  
  While Not rsPictures.EOF
      
    rsPictures.Fields("FileData").SaveToFile _
      "C:\AccessPicture"
    rsPictures.MoveNext
  Wend
  
  With Rst
    .AddNew
      .Fields("商品名") = Me!商品名
      .Fields("仕入先名") = Me!仕入先名
      .Fields("発注日") = Me!発注日
      .Fields("仕入日") = Me!仕入日
      .Fields("単位") = Me!単位
      .Fields("数量") = Me!数量
      .Fields("単価") = Me!単価
'      .Fields("合計_税抜") = Me!合計_税抜
'      .Fields("合計_税込") = Me!合計_税込
      .Fields("備考") = Me!備考
      .Fields("発注者") = Me!発注者
      .Update
  End With


Rst.Close
Set Rst = Nothing
    
End Sub

試したこと

MoveLastメソッドを使用して最終のレコードをとってみたり等試したのですが
うまくいきませんでした。

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

登録済のファイルを削除すると登録可能です。
登録されるファイルは1件目のレコード、A.pdf、B.pdf、C.pdfです。

Answer 1

SaveToFileは、添付ファイル型フィールドのデータをファイルとして指定のフォルダーに保存するメソッドです。
呈示のコードでやっていることは、"仕入管理"テーブルの先頭レコードの添付ファイルをフォルダーに保存しようとしています。フェルダーにはすでに同名のファイルが存在しているのでそのようなエラーになるのでしょう。

Field2.SaveToFile メソッド (DAO) | Microsoft Docs

やりたいことは、テーブルの新規レコードの添付ファイル型フィールドにファイルを登録したいということですよね。その場合は、LoadFromFileメソッドを使ってください。

LoadFromFile メソッド (DAO) | Microsoft Docs

ちなみに確認したいのですが、

単票型の入力フォームを作成しています。

入力フォームは連結フォームか、非連結フォームのどちらですか。

呈示のコードは非連結フォーム用のコードになりますが、この要件で非連結にするメリットはないと思いますので。

Comments

[MON456]

早々のご対応ありがとうございます。
説明不足ですみません。
やりたいことは、「テーブルの新規レコードの添付ファイル型フィールドにファイルを登録したい」ではなく、新規レコードの添付ファイルを指定した場所へ保存が目標です。

accessを始めたばかりで違いがよくわかっていませんが、非連結フォームになります。

[hatena19]

> 新規レコードの添付ファイルを指定した場所へ保存が目標です。

あ、そういうことね。
非連結フォームだと、添付ファイルの登録もコードでする必要がありますが、それはどのようにしているのですか。その時にファイルは取得できているはずですので、それを指定フォルダーにコピーすればいいだけだと思いますが。

> accessを始めたばかりで違いがよくわかっていませんが、非連結フォームになります。

まずは連結フォームでの操作を覚えてから、それで不足するなら非連結フォームへというように学習をすすめることをお勧めします。非連結フォームではAccessを使うメリットの大部分が失われますので。

[MON456]

少し調べました、連結フォームでレコードと連携で対応したいと思います。
ご対応ありがとうございました。