Problem adding attachments in Access 2007

[VoodooFrog]

I am trying to run the following code as a simple test of adding an attachment through access 2007:

    Dim rsJob As DAO.Recordset2
    Dim rsChild As DAO.Recordset2
    Dim field As Field2
 
    Set rsJob = Me.Recordset
    Set rsChild = rsJob.Fields("attachments").Value
    Set field = rsChild.Fields("filedata")
 
      rsJob.Edit
      rsChild.AddNew
        field.LoadFromFile ("c:\temp\1.bmp")
      rsChild.Update
      rsJob.Close
 
    Set fld = Nothing
    Set rsChild = Nothing
    Set rsJob = Nothing

I simply want to add an attachment to the currently open form's record.

When it gets to the line field.LoadFromFile ("c:\temp\1.bmp") I get an invalid argument error. Can anyone see what I am doing wrong here?

[MMcCarthy]

What is the data type of the field 'filedata'? Is it an ole object?

Mary

[VoodooFrog]

the "filedata" field is a built in field to manage attachments in Access 2007.

[nico5038]

Did you try:

field.LoadFromFile "c:\temp\1.bmp"
or
rsChild.Fields("filedata").LoadFromFile "c:\temp\1.bmp"

This is the code from the helpfile:

' Instantiate the parent recordset.
Set rsEmployees = db.OpenRecordset("Employees")

… Code to move to desired employee

' Activate edit mode.
rsEmployees.Edit

' Instantiate the child recordset.
Set rsPictures = rsEmployees.Fields("Pictures").Value

' Add a new attachment.
rsPictures.AddNew
rsPictures.Fields("FileData").LoadFromFile "EmpPhoto39392.jpg"
rsPictures.Update

' Update the parent record
rsEmployees.Update

Nic;o)

[NeoPa]

As Nico says, you need to lose the parentheses () from the procedure call

        field.LoadFromFile "c:\temp\1.bmp"