Export serialized design for VBE Forms

Add functionality to export class. #297
joyfullservice · Jan 26, 2022 · 117499e · 117499e
1 parent 0d66a86
commit 117499e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Version Control.accda.src/modules/clsDbVbeForm.cls b/Version Control.accda.src/modules/clsDbVbeForm.cls
@@ -39,6 +39,7 @@ Implements IDbComponent
 Private Sub IDbComponent_Export()
     VerifyPath IDbComponent_SourceFile
     m_Form.Export IDbComponent_SourceFile
+    WriteFile SerializeMSForm(m_Form), IDbComponent_BaseFolder & GetSafeFileName(m_Form.Name) & ".json"
 End Sub
 
 
@@ -147,7 +148,7 @@ End Function
 '---------------------------------------------------------------------------------------
 '
 Private Sub IDbComponent_ClearOrphanedSourceFiles()
-    ClearOrphanedSourceFiles Me, "frm", "frx"
+    ClearOrphanedSourceFiles Me, "frm", "frx", "json"
 End Sub