Ask the user for the file
Dim filepath As String
filepath = SelectFile()
' Check that the user selected something
If Len(filepath) = 0 Then
Debug.Assert "No file selected!"
Exit Sub
End If
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblAttach")
' Add a new row and an attachment
rst.AddNew
AddAttachment rst, "Files", filepath
rst.Update
Penso que ai vai-me ajudar...
Queria acabar isto para implementar... numa empresa da minha irmã e em outras...
A ideia é:
1. Imprimir o cabeçalho de cartas já numeradas de acordo com o login da pessoa, o ano e sequência.
2. Arquivar os dados referentes às cartas (nr, assunto, destinatário, obs, a carta digitalizada em attach, etc).
3. Permitir a pesquisa por nr, ano, assunto, tipo, etc..
4. Permitir relacionar cartas (tanto com outras enviadas como com as recebidas)
5. Graficos dinamicos, estatisticas, etc.
Eu fiz uma coisa para o BCP em que utilizava todos estes conceitos de programação mas para algo muito complexo na area de investimento, na altura demorou muitas semanas e nunca tinha trabalho no Access... mas agora estou muito esquecido e preciso disto para segunda-feira... Vamos lá ver...