Save file from Attachment Access

Save file from Attachment Access code VBA

Private Sub SaveFile_Click()
' Khai bao bien
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim rsFiles As DAO.Recordset
Dim strSQL As String
' Bay loi
On Error GoTo ErrorHandler

Set dbs = CurrentDb
strSQL = "SELECT * FROM Table1"
Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)

Dim path_folder As String 'duong dan luu file
path_folder = "C:\"

With rst
    .FindFirst "ID=1" ' bang ghi chua file
    ''Set Col

    'Đưa biến file (danh sách các file) được xem như là Recordset gồm cột :FileName,FileData,FileType
     Set rsFiles = rst.Fields("DinhKem").Value

     Do Until rsFiles.EOF
        Dim path_file As String
        path_file = rsFiles.Fields("FileName").Value
        rsFiles.Fields("FileData").SaveToFile path_folder + path_file
        ' nếu lưu lần 2 sẽ báo lỗi vì file đã có dưới máy tính rồi
       ' phải dùng hàm kiểm tra file có hay chưa mới lưu
        rsFiles.MoveNext

     Loop

End With

' Clear var
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
Exit Sub
''''''''''''''''''''''''''''''''
ErrorHandler:
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Sub

Mục liên quan:

0935999617