Zugriff 2016 VBA Datensatz .addnew speichert auf vorherigen Datensatz

Question

Ich habe ein Formular verwendet, um Aktionen für meine Arbeit zu verfolgen. Das Formular behandelt auch Anhänge. Alles war in Ordnung, aber seit die IT mein System auf Windows 10 und gleichzeitig Office 13 umgestellt hat, dann 2016. Die Anhangsfunktion funktioniert nicht richtig. Beim Hinzufügen eines Anhangs zu einem neuen Datensatz wird der VBA ohne Fehler abgeschlossen, der Datensatz wird jedoch im vorherigen Datensatz gespeichert. Hat sich in späteren Versionen etwas geändert, was mir bewusst sein sollte. Ich verwende eine einfache genug rotine Dateien hinzuzufügen: -

Dim db As DAO.Database 
Dim rsParent As DAO.Recordset2 
Dim rsChild As DAO.Recordset2 
Set db = CurrentDb 
Set rsParent = Me.Recordset 
rsParent.OpenRecordset 
rsParent.Edit 

Set rsChild = rsParent.Fields("Attachments").Value 

rsChild.AddNew 
rsChild.Fields("FileData").LoadFromFile FilePath 
rsChild.Update 
rsParent.Update 

Answer 1

Ok fand eine Lösung. Nach dem Versuch, alle möglichen Methoden zu verwenden, um Anhänge im aktuellen Datensatz ohne Ergebnis speichern zu lassen. Ich hatte die Anlage auf die aktuelle Datensatzgruppe zu zwingen, den aktuellen ID.:-

Set db = CurrentDb 
strSQL = "SELECT * FROM ATS WHERE ID=" & ID 
Set rsParent = db.OpenRecordset(strSQL) 
Set rsChild = rsParent.Fields("Attachments").Value 
rsParent.Edit 
rsChild.AddNew 
rsChild.Fields("FileData").LoadFromFile FilePath 
rsChild.Update 
rsParent.Update 

mit