Ich habe auf einen SP-Server umfangreiche Listen erstellt. Mit MS-Access2007 sind diese Listen verbunden. Klappt wirklich gut und ist super schnell. Nun habe ich 2 Probleme:
1. die Anlagen-Felder möchte ich mittels VBA mit Dateien füllen; das funktioniert auch, aber nur mit den Access-internen Funktionen, nicht mittels VBA-Code; es wird ein DLL-Fehler gemeldet;
Funktion:
Private Sub test()
Rem funktioniert
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs_A As DAO.Recordset2
Set db = CurrentDb
Set rs = db.OpenRecordset("test", dbOpenDynaset)
Debug.Print rs!texter
rs.Edit
Set rs_A = rs.Fields("Anlagen").Value
rs_A.AddNew
rs_A.Fields("FileData").LoadFromFile "C:\Ablage\Test.pdf" (hier tritt der Fehler 3001 auf)
rs_A.Update
rs.Update
End Sub
Was fuktioniert ist: Debug.Print rs_A!FileName oder die Funktion
Mit einer Access-Datenbank funktioniert diese Prozedure.
2. Ich möchte die verknüpfte SP-Liste mit der VBA-refreshLink-Funktion aktuallisieren aber auch die Verknüpfung per VBA trennen und wieder herstellen;
Wer kann mir helfen oder einen TIP geben...Vielen Dank schon mal..
1. die Anlagen-Felder möchte ich mittels VBA mit Dateien füllen; das funktioniert auch, aber nur mit den Access-internen Funktionen, nicht mittels VBA-Code; es wird ein DLL-Fehler gemeldet;
Funktion:
Private Sub test()
Rem funktioniert
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs_A As DAO.Recordset2
Set db = CurrentDb
Set rs = db.OpenRecordset("test", dbOpenDynaset)
Debug.Print rs!texter
rs.Edit
Set rs_A = rs.Fields("Anlagen").Value
rs_A.AddNew
rs_A.Fields("FileData").LoadFromFile "C:\Ablage\Test.pdf" (hier tritt der Fehler 3001 auf)
rs_A.Update
rs.Update
End Sub
Was fuktioniert ist: Debug.Print rs_A!FileName oder die Funktion
Mit einer Access-Datenbank funktioniert diese Prozedure.
2. Ich möchte die verknüpfte SP-Liste mit der VBA-refreshLink-Funktion aktuallisieren aber auch die Verknüpfung per VBA trennen und wieder herstellen;
Wer kann mir helfen oder einen TIP geben...Vielen Dank schon mal..