Objeto Attachment

[Kerouac]

Boa tarde a todos!

Bom, já há algum tempo estou quebrando a cabeça pra achar uma solução pra um problema e até agora nada!

Resumindo, o que eu preciso é adicionar arquivos (anexos) ao banco de dados sem utilizar vínculos, ou seja, tudo em VBA.

Como cada campo do tipo 'anexo' do banco de dados pode receber mais de um arquivo, estou tentando carregar os arquivos numa variável do tipo 'Attachment', para depois fazer o campo 'anexo' do BD receber esta variável.

Porém, não acho nenhum método desse objeto 'attachment' que carregue um arquivo, tipo um 'LoadFromFile'.

Alguém tem uma idéia de como fazer isso??? estou ficando louco já... rs

Obrigado!

[Kerouac]

Pessoal,

Consegui a solução adaptando o código abaixo (do próprio help do Access).

A quem possa interessar:

'  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