Fix source path issue

This function was still using a constant instead of the passed parameter for the property name. Fixes #284
joyfullservice · Nov 29, 2021 · d916605 · d916605
1 parent 6b2112a
commit d916605
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 6 deletions.
diff --git a/Version Control.accda.src/dbs-properties.json b/Version Control.accda.src/dbs-properties.json
@@ -41,7 +41,7 @@
       "Type": 10
     },
     "AppVersion": {
-      "Value": "3.4.18",
+      "Value": "3.4.19",
       "Type": 10
     },
     "Auto Compact": {

diff --git a/Version Control.accda.src/modules/clsOptions.cls b/Version Control.accda.src/modules/clsOptions.cls
@@ -724,9 +724,12 @@ End Property
 Private Function GetPropertyByName(strName As String) As AccessObjectProperty
 
     Dim prp As AccessObjectProperty
+    Dim proj As CurrentProject
+
     If DatabaseOpen Then
-        For Each prp In CurrentProject.Properties
-            If prp.Name = cstrSourcePathProperty Then
+        Set proj = CurrentProject
+        For Each prp In proj.Properties
+            If prp.Name = strName Then
                 Set GetPropertyByName = prp
                 Exit For
             End If
@@ -735,4 +738,3 @@ Private Function GetPropertyByName(strName As String) As AccessObjectProperty
 
 End Function
 
-
diff --git a/Version Control.accda.src/vbe-project.json b/Version Control.accda.src/vbe-project.json
@@ -5,7 +5,7 @@
   },
   "Items": {
     "Name": "MSAccessVCS",
-    "Description": "Version 3.4.18 deployed on 11/9/2021",
+    "Description": "Version 3.4.19 deployed on 11/29/2021",
     "FileName": "Version Control.accda",
     "HelpFile": "",
     "HelpContextId": 0,

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.4.18",
+    "AddinVersion": "3.4.19",
     "AccessVersion": "14.0 32-bit"
   },
   "Options": {