Module: AttachmentFields in Category Access/Jet Databases : Fields from Total Visual SourceBook

' Example of modAttachmentFields
'
' To use this example, create a new module and paste this code into it.
' Then run either of the procedures by putting the cursor in the procedure and pressing:
'    F5 to run it, or
'    F8 to step through it line-by-line (see the Debug menu for more options)

' This example assumes that this sample database exists, and contains the objects listed in the constants below.
Private Const mcstrSamplePath As String = "C:\Total Visual SourceBook 2013\Samples\"
Private Const mcstrSampleDB As String = mcstrSamplePath & "Sample.accdb"
Private Const mcstrSampleFile1 As String = "Test.txt"
Private Const mcstrSampleFile2 As String = "TestFile.txt"
Private Const mcstrTableName As String = "Customers-Complex"
Private Const mcstrAttachField As String = "Attachment"
Private Const mcstrIDField As String = "CustomerID"
Private Const mcstrFilter As String = "CustomerID = 'NWIND'"
Private Const mcstrFilterFMS As String = "CustomerID = 'FMS'"

Private Sub Example_modAttachmentFieldsInfo()
  ' Comments: Examples of using the modAttachmentFields module view (not modify) attachment fields in Microsoft Access ACCDB databases using VBA and VB6.
  '           See the results in the Immediate Window.

  Dim dbs As DAO.Database
  Dim rst As DAO.Recordset
  Dim fld As DAO.Field
  Dim astrFileNames() As String
  Dim intCount As Integer
  Dim intCounter As Integer
  Dim strInfo As String

  Set dbs = OpenDatabase(mcstrSampleDB, False, False)
  Set rst = dbs.OpenRecordset(mcstrTableName, dbOpenDynaset, dbSeeChanges)
  Set fld = rst.Fields(mcstrAttachField)

  ' Test IsFieldAttachment
  If IsFieldAttachment(dbs, mcstrTableName, mcstrAttachField) Then
    Debug.Print "Field [" & mcstrAttachField & "] is an Attachment field."
  Else
    Debug.Print "Field [" & mcstrAttachField & "] is NOT an Attachment field."
  End If

  If IsFieldAttachment(dbs, mcstrTableName, mcstrIDField) Then
    Debug.Print "Field [" & mcstrIDField & "] is an Attachment field."
  Else
    Debug.Print "Field [" & mcstrIDField & "] is NOT an Attachment field."
  End If
  Debug.Print

  ' Get all the file names for each record's attachment field with an array; and go through all the records
  rst.MoveFirst
  Do Until rst.EOF
    intCount = GetAttachmentFieldFileNames(fld, astrFileNames)
    Debug.Print "GetAttachmentFieldFileNames returned " & intCount & " file names where " & mcstrIDField & "=" & rst.Fields(mcstrIDField)
    For intCounter = 1 To intCount
      Debug.Print "    - " & astrFileNames(intCounter)
    Next intCounter
    rst.MoveNext
  Loop
  Set fld = Nothing
  Debug.Print

  ' List all the attachments of the specified attachment field in the first record of a table using this filter
  intCount = GetAttachmentTableFileNames(dbs, mcstrTableName, mcstrAttachField, mcstrFilter, astrFileNames)
  Debug.Print "GetAttachmentTableFileNames returned " & intCount & " file names where " & mcstrFilter & ": "
  For intCounter = 1 To intCount
    Debug.Print "    - " & astrFileNames(intCounter)
  Next intCounter
  Debug.Print

  ' Retrieve the attachment file info in a string for all the records
  ' No filter
  Debug.Print "GetAttachmentFileInfo without filter"
  strInfo = GetAttachmentFileInfo(dbs, mcstrTableName, mcstrAttachField)
  Debug.Print strInfo

  ' Filtered to just one record
  Debug.Print "GetAttachmentFileInfo using filter " & mcstrFilterFMS
  strInfo = GetAttachmentFileInfo(dbs, mcstrTableName, mcstrAttachField, ";", mcstrFilterFMS)
  Debug.Print strInfo

  ' Get information on all the files in an Attachment field for a filtered set of records
  Debug.Print "PrintAttachmentFileInfo returns these property values where " & mcstrFilterFMS & ":"
  PrintAttachmentFileInfo dbs, mcstrTableName, mcstrAttachField, mcstrFilterFMS

  rst.Close
  Set rst = Nothing

  dbs.Close
  Set dbs = Nothing

End Sub

Private Sub Example_modAttachmentFieldsModify()
  ' Comments: Examples of using the modAttachmentFields module to add, delete, and export files to/from attachment fields in Microsoft Access ACCDB databases.
  '           See the results in the Immediate Window.

  Dim dbs As DAO.Database
  Dim rst As DAO.Recordset
  Dim fld As DAO.Field
  Dim astrFileNames() As String
  Dim intCount As Integer

  Set dbs = OpenDatabase(mcstrSampleDB, False, False)
  Set rst = dbs.OpenRecordset(mcstrTableName, dbOpenDynaset, dbSeeChanges)
  Set fld = rst.Fields(mcstrAttachField)

  ' Save (export) the files in the current attachment field to files in a specified folder (directory)
  If ExportAttachmentsFromField(fld, mcstrSamplePath & "DestDir", True, "*.bmp") Then
    Debug.Print "Bitmap files exported from Record " & rst.Fields(mcstrIDField) & " to " & mcstrSamplePath & "DestDir"
  End If

  ' Export (save) the files in an attachment field for all the records to a specified folder (directory)
  If ExportAttachments(dbs, mcstrTableName, mcstrAttachField, mcstrSamplePath & "DestDir", True, mcstrFilter, "*.txt") Then
    Debug.Print "Text files exported to " & mcstrSamplePath & "DestDir where " & mcstrFilter & "."
  Else
    Debug.Print "Text files could not be exported to " & mcstrSamplePath & "DestDir"
  End If

  ' Add a file to an Attachment field
  rst.MoveFirst
  rst.Edit
  If AddAttachmentToField(fld, mcstrSamplePath & mcstrSampleFile1) Then
    Debug.Print mcstrSampleFile1 & " added to the first record."
  Else
    Debug.Print mcstrSampleFile1 & " could not be added to the first record."
  End If
  rst.Update

  ' Delete files from an Attachment field
  rst.MoveFirst
  rst.Edit
  If DeleteAttachmentsFromField(fld, mcstrSampleFile1) Then
    Debug.Print mcstrSampleFile1 & " removed from the first record."
  Else
    Debug.Print mcstrSampleFile1 & " could not be removed from the first record."
  End If
  rst.Update

  ' Add multiple files to an Attachment field
  Erase astrFileNames
  ReDim astrFileNames(0 To 1)
  astrFileNames(0) = mcstrSamplePath & mcstrSampleFile1
  astrFileNames(1) = mcstrSamplePath & mcstrSampleFile2
  If AddAttachmentsToRecords(astrFileNames, dbs, mcstrTableName, mcstrAttachField, mcstrFilter) Then
    Debug.Print "2 attachments added where " & mcstrFilter & "."
  Else
    Debug.Print "Attachments could not be added where " & mcstrFilter & "."
  End If

  ' Delete Attachments
  If DeleteAttachments(dbs, mcstrTableName, mcstrAttachField, mcstrFilter, mcstrSampleFile1) Then
    Debug.Print "Attachment '" & mcstrSampleFile1 & "' deleted where " & mcstrFilter & "."
  Else
    Debug.Print "Attachment '" & mcstrSampleFile1 & "' could not be deleted where " & mcstrFilter & "."
  End If

  rst.MoveFirst
  Do Until rst.EOF
    ' Delete (remove) the specified attachment file name from a field in the record
    If DeleteAttachmentsFromField(fld, mcstrSampleFile2) Then
      Debug.Print "Attachment '" & mcstrSampleFile2 & "' deleted."
    End If
    rst.MoveNext
  Loop
  Set fld = Nothing

  ' Import all files in a folder (directory) into an Attachment field.
  rst.AddNew
  rst.Fields(mcstrIDField) = "zzzzz"
  rst.Update
  intCount = AddAttachmentsFromFolder(mcstrSamplePath & "DestDir", dbs, mcstrTableName, mcstrAttachField, mcstrIDField & " = 'zzzzz'", "*.*")
  Debug.Print intCount & " attachemnts added where " & mcstrIDField & " = 'zzzzz'."

  ' Clean up by deleting the record
  rst.MoveLast
  rst.Delete

  rst.Close
  Set rst = Nothing

  dbs.Close
  Set dbs = Nothing

End Sub

The source code in Total Visual Sourcebook includes modules and classes for Microsoft Access, Visual Basic 6 (VB6), and Visual Basic for Applications (VBA) developers. Easily add this professionally written, tested, and documented royalty-free code into your applications to simplify your application development efforts.

Total Visual SourceBook is written for the needs of a developer using a source code library covering the many challenges you face. Countless developers over the years have told us they learned some or much of their development skills and tricks from our code. You can too!

Additional Resources

• List of All Modules in Total Visual SourceBook
• List of All Code Categories in Total Visual SourceBook
• Sample Module Code from Total Visual SourceBook (Example of Date, Time and Age Calculations)