添付ファイルのデータを削除する

Question

添付ファイルのフィールドを持つローカルテーブルがあります。 vbaで手動で削除しようとしましたが、以前の添付ファイルは元に戻ります。私はレコードセットとSQLでそれを試した。 SQL

Let strSQL = "DELETE tblSpecsPics.PicID,tblSpecsPics.SpecID,tblSpecsPics.SpecDetailID,tblSpecsPics.PicNum,tblSpecsPics.Pic.FileData,tblSpecsPics.Pic.FileName,tblSpecsPics.Pic.FileType,tblSpecsPics.ImageDesc FROM tblSpecsPics;" 

db.Execute strSQL, dbSeeChanges 

レコード

Set rst = db.OpenRecordset("SELECT * FROM tblSpecsPics WHERE Not (tblSpecsPics.Pic.FileData) Is Null;", dbOpenDynaset, dbSeeChanges) 

If Not rst.BOF And Not rst.EOF Then 
rst.MoveFirst 
Do Until rst.EOF 
    rst.Edit 
    Set rsv = rst.Fields(4).Value 
    rsv.Delete 
    rst.Update 
    rst.MoveNext 
Loop 

エンド

私は新しいレコードを追加するとした場合、古い添付ファイルは必ず再表示されます。

Answer 1

MS Access Attachment Typeは実際にはメタデータ（filename、filedata、fileflag、filetype、など）のリンクテーブルであるため、これらの基礎となるリンクレコードを削除する必要があります。したがって、メインテーブルの添付フィールド値に別のレコードセットループを入れ子にすることを検討してください。

strSQL = "SELECT * FROM tblSpecsPics WHERE Not (tblSpecsPics.Pic.FileData) Is Null;" 

Set rst = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) 

If Not rst.BOF And Not rst.EOF Then 
    rst.MoveFirst 
End If 

Do Until rst.EOF 

    Set childrst = rst.Fields(4).Value 
    Do Until childrst.EOF 
     childrst.Delete 
     childrst.MoveNext 
    Loop 

    rst.MoveNext 
Loop