Access Attachment File vào table link Sharepoint (1 người xem)

[ngoctuyen1995]

Thân chào cả nhà GPEX!

Hiện tại em muốn dùng code VBA để Attachment File lên table đã được Link Sharepoint vào access như hình, em có tìm cả tuần nay trên các mạng xã hội nhưng đa số kết quả đều không dùng được.
Vậy có cách nào mình Attachment File được bằng code vào không ạ?

Mong cả nhà giúp đỡ. Em chân thành cảm ơn ạ..!

 

[ongke0711]

Hiện tại em muốn dùng code VBA để Attachment File lên table đã được Link Sharepoint vào access như hình, em có tìm cả tuần nay trên các mạng xã hội nhưng đa số kết quả đều không dùng được.
Vậy có cách nào mình Attachment File được bằng code vào không ạ?

Bạn dùng code này xem sao:

- Tham số strFieldName ở đây là: [Contract Attachement]. Khi không đặt tên Field có khoảng trắng chi cho rắc rối sự đời.
- strFilePath là đường dẫn file muốn Attach.
- Bạn tự sửa câu lệnh SQL để lấy ra đúng record cần cập nhật file Attachment.

Sub AddAttFile(strFilePath As String, strFieldName As String)

    Dim rs As DAO.Recordset, rsFile As DAO.Recordset
    Dim strSQL As String

    strSQL = "SELECT * FROM F_Agreements WHERE [ID] =" & Me.ID
    Set rs = DBEngine(0)(0).OpenRecordset(strSQL, dbOpenDynaset)
    rs.Edit

        ' Khoi tao recordset con cua field 'Attachment'.
        Set rsFile = rs.Fields(strFieldName).Value
        rsFile.AddNew  ' Them moi attachment.
        rsFile.Fields("FileData").LoadFromFile strFilePath
        rsFile.Update

        rsFile.Close
        Set rsFile = Nothing
   
    rs.Update
    rs.Close
    Set rs = Nothing

End Sub

 

[ngoctuyen1995]

Bạn dùng code này xem sao:

- Tham số strFieldName ở đây là: [Contract Attachement]. Khi không đặt tên Field có khoảng trắng chi cho rắc rối sự đời.
- strFilePath là đường dẫn file muốn Attach.
- Bạn tự sửa câu lệnh SQL để lấy ra đúng record cần cập nhật file Attachment.

Sub AddAttFile(strFilePath As String, strFieldName As String)

    Dim rs As DAO.Recordset, rsFile As DAO.Recordset
    Dim strSQL As String

    strSQL = "SELECT * FROM F_Agreements WHERE [ID] =" & Me.ID
    Set rs = DBEngine(0)(0).OpenRecordset(strSQL, dbOpenDynaset)
    rs.Edit

        ' Khoi tao recordset con cua field 'Attachment'.
        Set rsFile = rs.Fields(strFieldName).Value
        rsFile.AddNew  ' Them moi attachment.
        rsFile.Fields("FileData").LoadFromFile strFilePath
        rsFile.Update

        rsFile.Close
        Set rsFile = Nothing
  
    rs.Update
    rs.Close
    Set rs = Nothing

End Sub

Em cảm ơn anh đã giúp đỡ, nhờ code này mà em đã làm được rồi ạ.
Chúc anh sức khỏe và thành công ạ.