当我想将word文件附加到我的表单时出错 [英] An error when I want to attache a word file to my Form

问题描述

我编写了一个代码，用于将我创建的word文件自动附加到记录（Form）。它适用于第一条记录，但在第二条记录中，我得到了更多错误。

我的代码如下：

 Private Sub cmdSaveWordDoc_Click（）
 Dim dbs As DAO.Database 
 Dim rst作为DAO.Recordset2 
 Dim rsA As DAO.Recordset2 
 Dim fld As DAO.Field2 
 Dim strPath As String 
 Dim strFile As String 
 
 
'获取数据库，记录集和附件字段
 
设置dbs = CurrentDb 
设置rst = dbs.OpenRecordset（" tblIndicatorBook"）
设置fld = rst（" ; LetterScan"）
 strPath =" Z：\ Virsa \ temp\temp.docx" 
 
'在表格中浏览附件字段
 Do While Not rst.EOF 
 
'获取附件字段的记录集
设置rsA = fld .Value 
 
'加载指定路径中的所有附件
 strFile = Dir（strPath）
 
 rst.Edit 
 
 Do While Len （strFile）> 0 
 rsA.AddNew 
 rsA（" FileData"）。LoadFromFile strPath 
 rsA.Update 
 
'增加添加的文件数
 LoadAttachments = LoadAttachments + 1 
 
 strFile = Dir 
 Loop 
 
 rsA.Close 
 rst.Update 
'下一条记录
 rst。 MoveNext 
循环
 
 
 rst.Close 
 dbs.Close 
设置fld = Nothing 
设置rsA =无
设置rst =没有
设置dbs = Nothing 
 
 MsgBox（"成功插入记录"）
 Kill（" Z：\ Virsa \\\ temp \ temp.docx"） 
 
 End Sub 

我的表格链接到此表格如下：

---

Karim Vaziri问候，

解决方案

你需要在每次插入后执行rst.Update我相信

这里我的函数哪个有效

函数AddAtt（）
 Dim db As DAO.Database 
 Dim rs As DAO.Recordset2 
 Dim rsAtt As DAO.Recordset2 
 Dim sSQL As String 
 
 Set db = CurrentDb（）
 sSQL =" SELECT * FROM tbl_Projects" 
设置rs = db.OpenRecordset（sSQL，dbOpenDynaset）
如果rs.RecordCount<> 0然后
'Do while not rs.EOF 
 rs.MoveFirst 
 rs.Edit 
 
设置rsAtt = rs！[AttFiles] .Value 
 rsAtt .AddNew 
 rsAtt.Fields（" FileData"）。LoadFromFile" C：\ Users \ Me\Desktop\10-30-2016 1-50-11 PM.jpg" 
 rsAtt.Update 
 rs.Update 
 
 rs.Edit 
设置rsAtt = rs！[AttFiles] .Value 
 rsAtt.AddNew 
 rsAtt.Fields（" FileData"）。LoadFromFile" C：\ Users \ Me\Desktop\10-30-2016 2-18-11 PM.jpg" 
 rsAtt.Update 
 rs.Update 
'rs.MoveNext 
'Loop 
 End if 
 
 Set rsAtt = Nothing 
 rs.Close 
设置rs = Nothing 
设置db = Nothing 
结束函数

I write a code for being able to automatically attach word file that I create to a record(Form).It works good for the first record but in second record and more I got this error.

my code is as follow:

Private Sub cmdSaveWordDoc_Click()
     Dim dbs As DAO.Database
            Dim rst As DAO.Recordset2
            Dim rsA As DAO.Recordset2
            Dim fld As DAO.Field2
            Dim strPath As String
            Dim strFile As String
            
            
           'Get the database,recordset,and attachment field
           
            Set dbs = CurrentDb
            Set rst = dbs.OpenRecordset("tblIndicatorBook")
            Set fld = rst("LetterScan")
            strPath = "Z:\Virsa\temp\temp.docx"
    
           'Navigate through table for the attachment field
           Do While Not rst.EOF
           
           'Get the recordset for the attachment field
            Set rsA = fld.Value
            
            'Load all attachment in the specified path
            strFile = Dir(strPath)
              
            rst.Edit
            
            Do While Len(strFile) > 0
             rsA.AddNew
             rsA("FileData").LoadFromFile strPath
             rsA.Update
             
             'Increment the number of files added
             LoadAttachments = LoadAttachments + 1
             
             strFile = Dir
             Loop
             
            rsA.Close
            rst.Update
            'Next record
            rst.MoveNext
            Loop
                  
       
            rst.Close
            dbs.Close
            Set fld = Nothing
            Set rsA = Nothing
            Set rst = Nothing
            Set dbs = Nothing
            
            MsgBox ("Record Inserted Successfully")
            Kill ("Z:\Virsa\temp\temp.docx")

End Sub

My table that is linked to this form is as follow:

---

Karim Vaziri Regards,

解决方案

You need to perform an rst.Update after each insert I believe

Here my function which works

Function AddAtt()
    Dim db                    As DAO.Database
    Dim rs                    As DAO.Recordset2
    Dim rsAtt                 As DAO.Recordset2
    Dim sSQL                  As String

    Set db = CurrentDb()
    sSQL = "SELECT * FROM tbl_Projects"
    Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
    If rs.RecordCount <> 0 Then
        '        Do While Not rs.EOF
        rs.MoveFirst
        rs.Edit
        
        Set rsAtt = rs![AttFiles].Value
        rsAtt.AddNew
        rsAtt.Fields("FileData").LoadFromFile "C:\Users\Me\Desktop\10-30-2016 1-50-11 PM.jpg"
        rsAtt.Update
        rs.Update

        rs.Edit
        Set rsAtt = rs![AttFiles].Value
        rsAtt.AddNew
        rsAtt.Fields("FileData").LoadFromFile "C:\Users\Me\Desktop\10-30-2016 2-18-11 PM.jpg"
        rsAtt.Update
        rs.Update
        '            rs.MoveNext
        '        Loop
    End If

    Set rsAtt = Nothing
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Function

这篇关于当我想将word文件附加到我的表单时出错的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！