In einer MS Access
Tabelle habe ich einige Anhänge zu jedem Artikel.3265: Artikel nicht in dieser Sammlung gefunden
Ich möchte jeden Anhang in einem temporären Verzeichnis über einen VBA
Code speichern.
Die VBA-Code, ich versuche https://www.youtube.com/watch?v=Gm5fch0xaI4&t=306s
in diesem Tutorial zu replizierenDas Problem ist, dass ich die error '3265' item not found in this collection
schon, wenn ich einen Wert in ein DAO.Recordset2
Objekt zuweisen versuchen.
Hier mein Code.
Private Sub Carica_Dati()
Dim rsParent As DAO.Recordset
Dim rsAttachment As DAO.Recordset2
Dim SQL As String
SQL = " SELECT [Data Processing List].Department" & _
" FROM [Data Processing List]" & _
" WHERE ((([Data Processing List].Treatment)=""HR-002""))"
Set rsParent = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
If rsParent.RecordCount = 0 Then
MsgBox "no"
Else
Set rsAttachment = rsParent!Document.Value
End If
End Sub