Ignore replication properties in Relations

We are not attempting to support the export and build of replicated databases. 😄 No need to work with these properties, especially if they cause errors in some cases. Closes #29
joyfullservice · May 25, 2020 · 496d93e · 496d93e
1 parent f9859d7
commit 496d93e
Show file tree

Hide file tree

Showing 7 changed files with 8 additions and 18 deletions.
diff --git a/Version Control.accda.src/dbs-properties.json b/Version Control.accda.src/dbs-properties.json
@@ -2,7 +2,7 @@
   "Info": {
     "Class": "clsDbProperty",
     "Description": "Database Properties (DAO)",
-    "VCS Version": "3.1.5"
+    "VCS Version": "3.1.8"
   },
   "Items": {
     "AccessVersion": {
@@ -42,7 +42,7 @@
       "Type": 10
     },
     "AppVersion": {
-      "Value": "3.1.5",
+      "Value": "3.1.8",
       "Type": 10
     },
     "Auto Compact": {
@@ -85,14 +85,6 @@
       "Value": 70,
       "Type": 3
     },
-    "Last VCS Export": {
-      "Value": "5/22/2020 5:07:37 PM",
-      "Type": 10
-    },
-    "Last VCS Version": {
-      "Value": "3.1.5",
-      "Type": 10
-    },
     "Name": {
       "Value": "rel:Version Control.accda",
       "Type": 12

diff --git a/Version Control.accda.src/documents.json b/Version Control.accda.src/documents.json
@@ -2,7 +2,7 @@
   "Info": {
     "Class": "clsDbDocument",
     "Description": "Database Documents Properties (DAO)",
-    "VCS Version": "3.1.5"
+    "VCS Version": "3.1.8"
   },
   "Items": {
     "Databases": {

diff --git a/Version Control.accda.src/modules/clsDbRelation.bas b/Version Control.accda.src/modules/clsDbRelation.bas
@@ -57,7 +57,6 @@ Private Sub IDbComponent_Export()
         .Add "Attributes", m_Relation.Attributes
         .Add "Table", m_Relation.Table
         .Add "ForeignTable", m_Relation.ForeignTable
-        .Add "PartialReplica", m_Relation.PartialReplica
     End With
 
     ' Fields
@@ -103,7 +102,6 @@ Private Sub IDbComponent_Import(strFile As String)
         Set dItem = dFile("Items")
         Set rel = dbs.CreateRelation(dItem("Name"), dItem("Table"), dItem("ForeignTable"))
         rel.Attributes = dItem("Attributes")
-        'rel.PartialReplica = dItem("PartialReplica")
 
         ' Add fields, and append to relation
         For Each dField In dItem("Fields")

diff --git a/Version Control.accda.src/nav-pane-groups.json b/Version Control.accda.src/nav-pane-groups.json
@@ -2,7 +2,7 @@
   "Info": {
     "Class": "clsDbNavPaneGroup",
     "Description": "Navigation Pane Custom Groups",
-    "VCS Version": "3.1.5"
+    "VCS Version": "3.1.8"
   },
   "Items": {
     "Groups": [

diff --git a/Version Control.accda.src/vbe-project.json b/Version Control.accda.src/vbe-project.json
@@ -2,11 +2,11 @@
   "Info": {
     "Class": "clsDbVbeProject",
     "Description": "VBE Project",
-    "VCS Version": "3.1.5"
+    "VCS Version": "3.1.8"
   },
   "Items": {
     "Name": "MSAccessVCS",
-    "Description": "Version 3.1.5 deployed on 5/22/2020",
+    "Description": "Version 3.1.8 deployed on 5/25/2020",
     "FileName": "rel:Version Control.accda",
     "HelpContextId": 0,
     "HelpFile": "",

diff --git a/Version Control.accda.src/vbe-references.json b/Version Control.accda.src/vbe-references.json
@@ -2,7 +2,7 @@
   "Info": {
     "Class": "clsDbVbeReference",
     "Description": "VBE References",
-    "VCS Version": "3.1.5"
+    "VCS Version": "3.1.8"
   },
   "Items": {
     "stdole": {

diff --git a/Version Control.accda.src/vcs-options.json b/Version Control.accda.src/vcs-options.json
@@ -1,6 +1,6 @@
 {
   "Info": {
-    "AddinVersion": "3.1.5",
+    "AddinVersion": "3.1.8",
     "AccessVersion": "14.0 32-bit",
     "Hash": "@{7206d6328b5c80f8ceae447eb65c6abd23260569ff1ffc94}"
   },