Hinzufügen / Anzeigen von Anhängen mit MS Access VBA

Ich versuche, diese Funktionen zu verwenden, um eine Anhangstabelle zu verwalten, ohne die In-Access-Schnittstelle zu verwenden, damit Benutzer keine Daten löschen oder auflösen können. Es werden jedoch immer dann Fehler angezeigt, wenn ich versuche, eine dieser Funktionen aufzurufen.

http://blogs.office.com/b/microsoft-access/archive/2007/08/24/adding-removing-and-aving-files-from-the-new-attachment-field-in-access-2007. aspx

im onclick-fall eines knopfes habe ich

Database.OpenRecordset tblAttach
Recordset.AddNew
Call AddAttachment
Recordset.Update

Ein weiteres Problem, das ich damit habe, ist, dass dieser Code nur zum Importieren aus einem direkten Pfad dient und ich wirklich eine Dateidialogmethode zur Dateiauswahl benötige, aber ich bin nicht sicher, was ich darüber hinaus setzen soll

Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
'*** not sure how to get the path to f to insert it into the table
f.Show

Antworten auf die Frage(2)

Ihre Antwort auf die Frage