実現したいこと
Access2016の単票フォームにデータを表示させ、「保存」ボタンを押下すると、新規レコードとして登録したいのですが、添付ファイルがエラーになって登録できませんでした。
添付ファイルはどのようにしたら良いのでしょうか?
よろしくお願い致します。
発生している問題・分からないこと
「顧客画像」が添付ファイルとなっています。
こちらがエラーで登録できない状態です。
「顧客画像」部分を削除すると登録できます。
該当のソースコード
Dim rst As New ADODB.Recordset rst.Open "顧客リスト", CurrentProject.Connection, , adLockOptimistic rst.AddNew rst!お名前 = Me!お名前 rst!電話番号 = Me!電話番号 rst!顧客画像 = Me!顧客画像 ←ここがエラー rst.Update rst.Close
試したこと・調べたこと
- teratailやGoogle等で検索した
- ソースコードを自分なりに変更した
- 知人に聞いた
- その他
上記の詳細・結果
下記を見つけましたが、実現したい事と異なり、応用もわからず困っていました。
Private Sub cmd保存_Click()
'[保存]ボタンクリック時
'商品写真フィールドのレコードセットに対する操作
With Me.Recordset!商品写真.Value
Do Until .EOF
If !FileName = Me!商品写真.FileName Then
'現在表示されている添付ファイルを保存
!FileData.SaveToFile "c:\Picture\data.jpg"
Exit Do
End If
.MoveNext
Loop
.Close
End With
End Sub
補足
特になし
![guest](/img/icon/icnUserSample.jpg)
回答3件
あなたの回答
tips
プレビュー