Automatischer Import des Replikats

Question

Ich habe folgendes Problem.
Über einen VBA Code ist es mir gelungen ein Modul zu implementieren, welches automatisch den Designmaster mit dem Replikat synchonisiert. Allerdings geschiet dies im Export Import Verfahren, was bedeutet, dass auch das Replikat jegliche Änderungen übernimmt (Einschließlich VBA Syntax)... Das ist allerdings nicht mein Ziel.

Ich möchte lediglich Datensätze aus dem Replikat importieren.

Hier mein Code:

(CurrentDb.Synchronize "C:\Replikat von REWAP_Masterbasis V.3.mdb", dbRepImpExpChanges)


Wenn ich das "Exp" aus dem Quellcode nehme heißt es im Debugger "Ungültige Art der Synchronisation"....



Wäre super wenn mir einer helfen könnte!

Danke!

Answer 1

Hallo,
wenn du bloß einen Teil der Datensätze wieder herstellen willst,
dann importierst du dir eben aus dem Replikat anhand eines
eindeutigen Schlüssels, z.B. der ID, ungefähr so für den Datensatz
mit ID=3:

Sub rep()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = DBEngine.WorkSpaces(0).OpenDatabase _
("C:\Dokumente und Einstellungen\xyz\Eigene Dateien\Replikat von
db2.mdb", _
False, False, "MS Access;PWD=")
Set rst = db.OpenRecordset("SELECT Name FROM Person
WHERE ID=3", dbOpenDynaset)
If rst.RecordCount > 0 Then
rst.MoveLast
DoCmd.RunSQL ("UPDATE Person SET Name = " & rst!Name & _
", Eintrittsdatum = " & rst!Eintrittsdatum & _
", Austrittsdatum = " & rst!Austrittsdatum & _
"WHERE [id]=3;")

MsgBox rst!Name
End If
rst.Close
db.Close
End Sub