Version beta OK

source/forms/OpenAccess.bas

@@ -20,7 +20,7 @@ Begin Form
     GridY =10
     Width =6645
     DatasheetFontHeight =11
-    ItemSuffix =41
+    ItemSuffix =43
     Left =-16140
     Top =-1425
     Right =-6840
@@ -198,7 +198,7 @@ Begin Form
                     Left =283
                     Top =573
                     Width =6123
-                    Height =1696
+                    Height =1981
                     BorderColor =10921638
                     Name ="zne_export"
                     DefaultValue ="1"
@@ -207,7 +207,7 @@ Begin Form
                     LayoutCachedLeft =283
                     LayoutCachedTop =573
                     LayoutCachedWidth =6406
-                    LayoutCachedHeight =2269
+                    LayoutCachedHeight =2554
                     Begin
                         Begin Label
                             BackStyle =1
@@ -236,25 +236,25 @@ Begin Form
                     TabStop = NotDefault
                     OverlapFlags =93
                     Left =283
-                    Top =2502
+                    Top =2842
                     Width =6123
-                    Height =1471
+                    Height =1291
                     TabIndex =1
                     BorderColor =10921638
                     Name ="zne_import"
                     GridlineColor =10921638
 
                     LayoutCachedLeft =283
-                    LayoutCachedTop =2502
+                    LayoutCachedTop =2842
                     LayoutCachedWidth =6406
-                    LayoutCachedHeight =3973
+                    LayoutCachedHeight =4133
                     Begin
                         Begin Label
                             BackStyle =1
                             OverlapFlags =215
                             TextFontFamily =49
                             Left =410
-                            Top =2381
+                            Top =2721
                             Width =4290
                             Height =315
                             FontSize =9
@@ -264,23 +264,23 @@ Begin Form
                             FontName ="Consolas"
                             GridlineColor =10921638
                             LayoutCachedLeft =410
-                            LayoutCachedTop =2381
+                            LayoutCachedTop =2721
                             LayoutCachedWidth =4700
-                            LayoutCachedHeight =2696
+                            LayoutCachedHeight =3036
                             ThemeFontIndex =-1
                             ForeTint =100.0
                         End
                     End
                 End
                 Begin CommandButton
-                    OverlapFlags =215
+                    OverlapFlags =223
                     TextFontFamily =49
-                    Left =5225
-                    Top =793
+                    Left =5394
+                    Top =680
                     Width =804
                     Height =739
                     FontSize =9
-                    TabIndex =6
+                    TabIndex =5
                     Name ="cmd_export"
                     Caption ="Make sources"
                     OnClick ="[Event Procedure]"
@@ -327,10 +327,10 @@ Begin Form
                         0x0000000000000000
                     End
 
-                    LayoutCachedLeft =5225
-                    LayoutCachedTop =793
-                    LayoutCachedWidth =6029
-                    LayoutCachedHeight =1532
+                    LayoutCachedLeft =5394
+                    LayoutCachedTop =680
+                    LayoutCachedWidth =6198
+                    LayoutCachedHeight =1419
                     ForeTint =100.0
                     Gradient =0
                     BackColor =14277081
@@ -363,11 +363,11 @@ Begin Form
                     OverlapFlags =223
                     TextFontFamily =49
                     Left =5225
-                    Top =2664
+                    Top =2947
                     Width =805
                     Height =739
                     FontSize =9
-                    TabIndex =8
+                    TabIndex =7
                     Name ="cmd_import"
                     Caption ="Update from sources"
                     OnClick ="[Event Procedure]"
@@ -415,9 +415,9 @@ Begin Form
                     End
 
                     LayoutCachedLeft =5225
-                    LayoutCachedTop =2664
+                    LayoutCachedTop =2947
                     LayoutCachedWidth =6030
-                    LayoutCachedHeight =3403
+                    LayoutCachedHeight =3686
                     ForeTint =100.0
                     Gradient =0
                     BackColor =14277081
@@ -475,7 +475,7 @@ Begin Form
                     Top =4762
                     Width =397
                     FontSize =9
-                    TabIndex =9
+                    TabIndex =8
                     Name ="cmd_open_log"
                     Caption ="Commande8"
                     OnClick ="[Event Procedure]"
@@ -564,7 +564,7 @@ Begin Form
                     Top =4762
                     Width =454
                     FontSize =9
-                    TabIndex =10
+                    TabIndex =9
                     Name ="cmd_open_log_dir"
                     Caption ="Commande9"
                     OnClick ="[Event Procedure]"
@@ -670,7 +670,7 @@ Begin Form
                     Top =5452
                     Width =226
                     Height =224
-                    TabIndex =11
+                    TabIndex =10
                     BorderColor =10921638
                     Name ="chk_debug_mode"
                     DefaultValue ="True"
@@ -712,7 +712,7 @@ Begin Form
                     TextAlign =2
                     TextFontFamily =49
                     Left =283
-                    Top =4195
+                    Top =4308
                     Width =6111
                     Height =284
                     FontSize =9
@@ -723,9 +723,9 @@ Begin Form
                     FontName ="Consolas"
                     GridlineColor =10921638
                     LayoutCachedLeft =283
-                    LayoutCachedTop =4195
+                    LayoutCachedTop =4308
                     LayoutCachedWidth =6394
-                    LayoutCachedHeight =4479
+                    LayoutCachedHeight =4592
                     ThemeFontIndex =-1
                     ForeTint =100.0
                 End
@@ -734,7 +734,7 @@ Begin Form
                     OverlapFlags =223
                     TextFontFamily =49
                     Left =396
-                    Top =1587
+                    Top =1870
                     Width =1995
                     Height =285
                     FontSize =9
@@ -744,9 +744,9 @@ Begin Form
                     FontName ="Consolas"
                     GridlineColor =10921638
                     LayoutCachedLeft =396
-                    LayoutCachedTop =1587
+                    LayoutCachedTop =1870
                     LayoutCachedWidth =2391
-                    LayoutCachedHeight =1872
+                    LayoutCachedHeight =2155
                     ThemeFontIndex =-1
                     ForeTint =100.0
                 End
@@ -758,8 +758,8 @@ Begin Form
                     BorderLineStyle =3
                     IMESentenceMode =3
                     Left =396
-                    Top =1871
-                    Width =4082
+                    Top =2154
+                    Width =5837
                     Height =270
                     FontSize =9
                     TabIndex =4
@@ -770,68 +770,19 @@ Begin Form
                     GridlineColor =10921638
 
                     LayoutCachedLeft =396
-                    LayoutCachedTop =1871
-                    LayoutCachedWidth =4478
-                    LayoutCachedHeight =2141
+                    LayoutCachedTop =2154
+                    LayoutCachedWidth =6233
+                    LayoutCachedHeight =2424
                     BorderThemeColorIndex =0
                     BorderTint =50.0
                     BorderShade =100.0
                     ThemeFontIndex =-1
                     ForeTint =50.0
                 End
-                Begin CommandButton
-                    OverlapFlags =215
-                    TextFontFamily =49
-                    Left =4601
-                    Top =1866
-                    Width =280
-                    Height =235
-                    FontSize =9
-                    TabIndex =5
-                    Name ="cmd_see_include_tables"
-                    Caption ="+"
-                    FontName ="Consolas"
-                    LeftPadding =60
-                    RightPadding =75
-                    BottomPadding =120
-                    GridlineColor =10921638
-
-                    LayoutCachedLeft =4601
-                    LayoutCachedTop =1866
-                    LayoutCachedWidth =4881
-                    LayoutCachedHeight =2101
-                    ForeTint =100.0
-                    Gradient =0
-                    BackColor =14277081
-                    BackThemeColorIndex =1
-                    BackTint =100.0
-                    BackShade =85.0
-                    BorderColor =14277081
-                    BorderThemeColorIndex =1
-                    BorderTint =100.0
-                    BorderShade =85.0
-                    ThemeFontIndex =-1
-                    HoverColor =-2147483633
-                    HoverThemeColorIndex =-1
-                    HoverTint =100.0
-                    PressedColor =-2147483633
-                    PressedThemeColorIndex =-1
-                    PressedShade =100.0
-                    HoverForeColor =5855577
-                    HoverForeTint =65.0
-                    PressedForeColor =-2147483633
-                    PressedForeThemeColorIndex =-1
-                    PressedForeTint =100.0
-                    Shadow =-1
-                    QuickStyle =22
-                    QuickStyleMask =-113
-                    WebImagePaddingTop =1
-                    Overlaps =1
-                End
                 Begin CheckBox
                     OverlapFlags =215
                     Left =453
-                    Top =1217
+                    Top =877
                     Width =283
                     Height =226
                     TabIndex =3
@@ -841,9 +792,9 @@ Begin Form
                     GridlineColor =10921638
 
                     LayoutCachedLeft =453
-                    LayoutCachedTop =1217
+                    LayoutCachedTop =877
                     LayoutCachedWidth =736
-                    LayoutCachedHeight =1443
+                    LayoutCachedHeight =1103
                     DatasheetCaption ="Compress a copy of the current project before exporting the sources"
                     Begin
                         Begin Label
@@ -851,7 +802,7 @@ Begin Form
                             OverlapFlags =215
                             TextFontFamily =49
                             Left =740
-                            Top =1190
+                            Top =850
                             Width =1800
                             Height =270
                             FontSize =9
@@ -861,9 +812,9 @@ Begin Form
                             FontName ="Consolas"
                             GridlineColor =10921638
                             LayoutCachedLeft =740
-                            LayoutCachedTop =1190
+                            LayoutCachedTop =850
                             LayoutCachedWidth =2540
-                            LayoutCachedHeight =1460
+                            LayoutCachedHeight =1120
                             ThemeFontIndex =-1
                             ForeTint =100.0
                         End
@@ -872,7 +823,7 @@ Begin Form
                 Begin CheckBox
                     OverlapFlags =215
                     Left =453
-                    Top =884
+                    Top =1219
                     Width =283
                     Height =226
                     TabIndex =2
@@ -884,16 +835,16 @@ Begin Form
                     GridlineColor =10921638
 
                     LayoutCachedLeft =453
-                    LayoutCachedTop =884
+                    LayoutCachedTop =1219
                     LayoutCachedWidth =736
-                    LayoutCachedHeight =1110
+                    LayoutCachedHeight =1445
                     Begin
                         Begin Label
                             BackStyle =1
                             OverlapFlags =215
                             TextFontFamily =49
                             Left =735
-                            Top =855
+                            Top =1190
                             Width =2700
                             Height =270
                             FontSize =9
@@ -903,9 +854,9 @@ Begin Form
                             FontName ="Consolas"
                             GridlineColor =10921638
                             LayoutCachedLeft =735
-                            LayoutCachedTop =855
+                            LayoutCachedTop =1190
                             LayoutCachedWidth =3435
-                            LayoutCachedHeight =1125
+                            LayoutCachedHeight =1460
                             ThemeFontIndex =-1
                             ForeTint =100.0
                         End
@@ -914,10 +865,10 @@ Begin Form
                 Begin CheckBox
                     OverlapFlags =215
                     Left =453
-                    Top =2861
+                    Top =3201
                     Width =283
                     Height =226
-                    TabIndex =7
+                    TabIndex =6
                     BorderColor =10921638
                     Name ="chk_backup"
                     DefaultValue ="True"
@@ -925,16 +876,16 @@ Begin Form
                     GridlineColor =10921638
 
                     LayoutCachedLeft =453
-                    LayoutCachedTop =2861
+                    LayoutCachedTop =3201
                     LayoutCachedWidth =736
-                    LayoutCachedHeight =3087
+                    LayoutCachedHeight =3427
                     Begin
                         Begin Label
                             BackStyle =1
                             OverlapFlags =215
                             TextFontFamily =49
                             Left =735
-                            Top =2835
+                            Top =3175
                             Width =3015
                             Height =270
                             FontSize =9
@@ -944,9 +895,9 @@ Begin Form
                             FontName ="Consolas"
                             GridlineColor =10921638
                             LayoutCachedLeft =735
-                            LayoutCachedTop =2835
+                            LayoutCachedTop =3175
                             LayoutCachedWidth =3750
-                            LayoutCachedHeight =3105
+                            LayoutCachedHeight =3445
                             ThemeFontIndex =-1
                             ForeTint =100.0
                         End
@@ -957,8 +908,8 @@ Begin Form
                     OverlapFlags =215
                     TextAlign =2
                     TextFontFamily =49
-                    Left =5216
-                    Top =1643
+                    Left =5385
+                    Top =1530
                     Width =794
                     Height =226
                     FontSize =9
@@ -968,10 +919,10 @@ Begin Form
                     Caption ="Export"
                     FontName ="Consolas"
                     GridlineColor =10921638
-                    LayoutCachedLeft =5216
-                    LayoutCachedTop =1643
-                    LayoutCachedWidth =6010
-                    LayoutCachedHeight =1869
+                    LayoutCachedLeft =5385
+                    LayoutCachedTop =1530
+                    LayoutCachedWidth =6179
+                    LayoutCachedHeight =1756
                     ThemeFontIndex =-1
                     ForeTint =100.0
                 End
@@ -981,7 +932,7 @@ Begin Form
                     TextAlign =2
                     TextFontFamily =49
                     Left =5215
-                    Top =3517
+                    Top =3800
                     Width =825
                     Height =225
                     FontSize =9
@@ -992,12 +943,61 @@ Begin Form
                     FontName ="Consolas"
                     GridlineColor =10921638
                     LayoutCachedLeft =5215
-                    LayoutCachedTop =3517
+                    LayoutCachedTop =3800
                     LayoutCachedWidth =6040
-                    LayoutCachedHeight =3742
+                    LayoutCachedHeight =4025
                     ThemeFontIndex =-1
                     ForeTint =100.0
                 End
+                Begin Label
+                    BackStyle =1
+                    OverlapFlags =223
+                    TextFontFamily =49
+                    Left =396
+                    Top =1530
+                    Width =1995
+                    Height =285
+                    FontSize =9
+                    BorderColor =8355711
+                    Name ="Étiquette41"
+                    Caption ="Source's date:"
+                    FontName ="Consolas"
+                    GridlineColor =10921638
+                    LayoutCachedLeft =396
+                    LayoutCachedTop =1530
+                    LayoutCachedWidth =2391
+                    LayoutCachedHeight =1815
+                    ThemeFontIndex =-1
+                    ForeTint =100.0
+                End
+                Begin TextBox
+                    Locked = NotDefault
+                    OldBorderStyle =0
+                    OverlapFlags =215
+                    TextFontFamily =49
+                    IMESentenceMode =3
+                    Left =1984
+                    Top =1530
+                    Width =2057
+                    Height =270
+                    FontSize =9
+                    TabIndex =11
+                    BorderColor =8355711
+                    ForeColor =8355711
+                    Name ="txt_sources_date"
+                    FontName ="Consolas"
+                    GridlineColor =10921638
+
+                    LayoutCachedLeft =1984
+                    LayoutCachedTop =1530
+                    LayoutCachedWidth =4041
+                    LayoutCachedHeight =1800
+                    BorderThemeColorIndex =0
+                    BorderTint =50.0
+                    BorderShade =100.0
+                    ThemeFontIndex =-1
+                    ForeTint =50.0
+                End
             End
         End
     End
@@ -1012,8 +1012,6 @@ Dim RUNNING_OP As Boolean
 
 Private Sub cmd_export_Click()
 Dim optimizer, zip As Boolean
-Dim include_tables As String
-
 optimizer = Me.chk_optimizer
 zip = Me.chk_zip
 
@@ -1023,9 +1021,6 @@ End If
 
 RUNNING_OP = True
 
-' update include_tables
-include_tables = Me.txt_include_tables
-
 ' update log path
 logger "cmd_export_Click", "INFO", "Run Export"
 Me.lbl_log_path.Caption = OA_Log.log_file
@@ -1035,7 +1030,7 @@ Call update_state
 
 ' start export
 Dim result As Variant
-result = make_sources(include_tables, optimizer, zip)
+result = make_sources(optimizer, zip)
 
 ' update state
 RUNNING_OP = False
@@ -1096,6 +1091,7 @@ Private Sub Form_Current()
     
     Me.lbl_log_path.Caption = OA_Log.log_dir
     Me.txt_include_tables = get_include_tables()
+    Me.txt_sources_date = oa_param("sources_date", "(No date)")
     
 End Sub
 

source/modules/OA_Main.bas

@@ -16,8 +16,7 @@ Public Function main()
 
 End Function
 
-Public Function make_sources(ByVal include_tables As String, _
-                             Optional ByVal optimizer As Boolean = True, _
+Public Function make_sources(Optional ByVal optimizer As Boolean = True, _
                              Optional ByVal zip As Boolean = True) As Integer
 'exports the source-code of the app
 On Error GoTo err
@@ -27,39 +26,15 @@ Dim step As String
     
     step = "Initialization"
     
-    '*** If '-f' is not in the options: set the optimizer on
     If optimizer Then
-        Dim msg As String
-        
-        If get_sources_date() > #1/1/1900# Then
-
-            msg = msg_list_to_export()
-            logger "make_sources", "INFO", "Optimizer: ask for confirmation"
-            If Not Len(msg) > 0 Then
-                msg = "** O.A. OPTIMIZER **" & vbNewLine & ">> Nothing new to export" & vbNewLine & _
-                            "Only the following will be exported:" & vbNewLine & _
-                            " - included table data" & vbNewLine & _
-                            " - relations" & vbNewLine & vbNewLine & _
-                            "TIP: use 'makesources -f' to force a complete export (could be long)."
-            Else
-                msg = "** O.A. OPTIMIZER **" & vbNewLine & _
-                      ">> Following objects will be exported:" & vbNewLine & _
-                      msg & vbNewLine & _
-                      "> DATA: " & vbNewLine & get_include_tables() & vbNewLine & vbNewLine & _
-                      "> RELATIONS"
-            End If
-            
-            Call activate_optimizer
-        
-        Else
-            ' no sources date recorded, it may be the first export
-            msg = "FIRST EXPORT: " & vbNewLine & vbNewLine & _
-                  "Everything will be exported, it could be quite long..."
-        
-        End If
-        
-        If MsgBox(msg, vbOKCancel + vbExclamation, "Export") = vbCancel Then GoTo cancelOp
-        logger "make_sources", "INFO", "Activates Optimizer"
+        Call activate_optimizer
+    End If
+    
+    'Save is needed to correctly list objects to export
+    CurrentProject.Application.RunCommand acCmdSave
+
+    If Not prompt_for_export_confirmation Then
+        GoTo cancelOp
     End If
 
     If zip Then
@@ -116,18 +91,9 @@ Public Function update_from_sources(Optional ByVal backup As Boolean) As Integer
         End If
     End If
 
-    step = "Check for unexported work"
-    logger "update_from_sources", "INFO", step
-    msg = msg_list_to_export()
-    If Len(msg) > 0 Then
-        msg = "** IMPORT WARNING **" & vbNewLine & _
-                    UCase(CurrentProject.name) & " is going to be updated " & _
-                    "with the source files. " & vbNewLine & vbNewLine & _
-                    "(!) FOLLOWING NON EXPORTED WORK WILL BE LOST (!): " & vbNewLine & _
-                    msg & vbNewLine & _
-                    "Are you sure you want to continue?"
-        If MsgBox(msg, vbOKCancel + vbExclamation, "Warning") = vbCancel Then GoTo cancelOp
-        If MsgBox("Really sure?", vbOKCancel + vbQuestion, "Warning") = vbCancel Then GoTo cancelOp
+    step = "Prompt for confirmation"
+    If Not prompt_for_import_confirmation Then
+        GoTo cancelOp
     End If
 
     step = "Run VCS Import"

source/modules/OA_Msg.bas

@@ -0,0 +1,22 @@
+Option Compare Database
+
+Public Function prompt_for_export_confirmation() As Boolean
+
+    msg = "****   OPENACCESS EXPORT   ****" & vbNewLine & _
+          "You're going to export the following:" & vbNewLine & vbNewLine & _
+          msg_list_to_export() & _
+          ""
+          
+    prompt_for_export_confirmation = (MsgBox(msg, vbOKCancel + vbExclamation, "Confirm") = vbOK)
+    
+End Function
+
+
+Public Function prompt_for_import_confirmation() As Boolean
+
+    msg = "****   OPENACCESS IMPORT   ****" & vbNewLine & _
+          "You're going to update " & UCase(CurrentProject.name) & " with the sources files" & vbNewLine & vbNewLine & _
+          "WARNING: Any non exported work would be lost!"
+    prompt_for_import_confirmation = (MsgBox(msg, vbOKCancel + vbExclamation, "Confirm") = vbOK)
+    
+End Function

source/modules/OA_Optimizer.bas

@@ -111,6 +111,7 @@ Public Function list_to_export(acType As Integer)
 emptylist:
 End Function
 
+
 Public Function msg_list_to_export() As String
 'returns a formatted text listing all of the objects which were updated since last export of the sources
     Dim lstmod, obj_type_split, obj_type_label, obj_type_num As String
@@ -131,18 +132,61 @@ Public Function msg_list_to_export() As String
         obj_type_label = obj_type_split(0)
         obj_type_num = obj_type_split(1)
 
-        lstmod = list_to_export(CInt(obj_type_num))
+        msg_list_to_export = msg_list_to_export & "> " & UCase(obj_type_label) & ":  "
+
+        If p_optimizer = False Then
+    
+            msg_list_to_export = msg_list_to_export & "(All)"
         
-        If Len(lstmod) > 0 Then
-            msg_list_to_export = msg_list_to_export & "> " & UCase(obj_type_label) & ":" & vbNewLine
-            For Each objname In Split(lstmod, ";")
-                msg_list_to_export = msg_list_to_export & objname
-                msg_list_to_export = msg_list_to_export & ", "
-            Next objname
-            msg_list_to_export = Left(msg_list_to_export, Len(msg_list_to_export) - 2) & vbNewLine & vbNewLine
+        Else
+            
+            lstmod = list_to_export(CInt(obj_type_num))
+            
+            If Len(lstmod) > 0 Then
+                Dim count, total As Integer
+                count = UBound(Split(lstmod, ";")) + 1
+                total = DCount("name", "MSysObjects", "[name] not like 'MSys*' and [name] not like '~*' and " & msys_type_filter(obj_type_num))
+                
+                If count = total Then
+                    
+                    msg_list_to_export = msg_list_to_export & "(All)"
+                
+                Else
+                
+                    If count < 12 Then
+                        For Each objname In Split(lstmod, ";")
+                            msg_list_to_export = msg_list_to_export & objname
+                            msg_list_to_export = msg_list_to_export & ", "
+                        Next objname
+                        msg_list_to_export = Left(msg_list_to_export, Len(msg_list_to_export) - 2)
+                    Else
+                        msg_list_to_export = msg_list_to_export & CStr(count) & " on " & CStr(total)
+                    End If
+                    
+                End If
+            Else
+            
+                msg_list_to_export = msg_list_to_export & "(None)"
+                
+            End If
+            
         End If
+        
+        msg_list_to_export = msg_list_to_export & vbNewLine
+        
     Next obj_type
 
+    Dim include_tables As String
+    
+    include_tables = get_include_tables()
+    If UBound(Split(include_tables, ",")) < 5 Then
+        msg_list_to_export = msg_list_to_export & "> DATA: " & include_tables & vbNewLine
+    Else
+        msg_list_to_export = msg_list_to_export & "> DATA: (more than 5)" & vbNewLine
+    End If
+    
+    msg_list_to_export = msg_list_to_export & "> RELATIONS, DB PROPERTIES"
+    
 End Function
 '******
 

source/modules/OA_Utils.bas

@@ -1,9 +1,9 @@
 Option Compare Database
 
 Public Function oa_tbl_exists() As Boolean
-' return True if the 'ztbl_openaccess' table exists
+' return True if the 'USysOpenAccess' table exists
 On Error GoTo err
-    oa_tbl_exists = (CurrentDb.TableDefs("ztbl_openaccess").name = "ztbl_openaccess")
+    oa_tbl_exists = (CurrentDb.TableDefs("USysOpenAccess").name = "USysOpenAccess")
 Exit Function
 err:
     If err.number = 3265 Then
@@ -15,26 +15,28 @@ End Function
 
 
 Public Function update_oa_param(ByVal key As String, ByVal val As String)
-' create or update the parameter in ztbl_openaccess
+' create or update the parameter in USysOpenAccess
 
     If Not oa_tbl_exists() Then
         Call create_oa_tbl
     End If
 
-    If DCount("key", "ztbl_openaccess", "[key]='" & key & "'") = 1 Then
-        CurrentDb.execute "UPDATE ztbl_openaccess SET ztbl_openaccess.val = '" & val & "' " & _
-                            "WHERE (((ztbl_openaccess.key)='" & key & "'));"
+    If DCount("key", "USysOpenAccess", "[key]='" & key & "'") = 1 Then
+        CurrentDb.execute "UPDATE USysOpenAccess SET USysOpenAccess.val = '" & val & "' " & _
+                            "WHERE (((USysOpenAccess.key)='" & key & "'));"
     Else
-        CurrentDb.execute "INSERT INTO ztbl_openaccess ( val, [key] ) " & _
+        CurrentDb.execute "INSERT INTO USysOpenAccess ( val, [key] ) " & _
                            "SELECT '" & val & "' AS Expr1, '" & key & "' AS Expr2;"
     End If
 
 End Function
 
 Public Function create_oa_tbl()
-'creates the 'ztbl_openaccess' table and hide it
-    CurrentDb.execute "SELECT 'include_tables' as key, 'ztbl_openaccess' as val INTO ztbl_openaccess;"
-    Application.SetHiddenAttribute acTable, "ztbl_openaccess", True
+'creates the 'USysOpenAccess' table and hide it
+    
+    CurrentDb.execute "SELECT 'include_tables' as key, 'USysOpenAccess' as val INTO USysOpenAccess;"
+    Application.SetHiddenAttribute acTable, "USysOpenAccess", True
+
 End Function
 
 Public Function get_include_tables()
@@ -46,7 +48,7 @@ End Function
 Public Function oa_param(ByVal key As String, Optional ByVal default_value As String = "") As String
     oa_param = default_value
     On Error GoTo err_oa_table
-    oa_param = DFirst("val", "ztbl_openaccess", "[key]='" & key & "'")
+    oa_param = DFirst("val", "USysOpenAccess", "[key]='" & key & "'")
 err_oa_table:
 End Function
 
@@ -166,10 +168,4 @@ Public Function complete_gitignore()
     Set FSO = Nothing
     Set oFile = Nothing
 
-End Function
-
-Public Sub SaveApp()
-
-
-
-End Sub
+End Function

source/tables/USysOpenAccess.txt

@@ -0,0 +1,3 @@
+key	val
+include_tables	USysOpenAccess,USysRegInfo
+sources_date	09/11/2016 16:52:19

source/tables/tbl_commands.txt

@@ -1,4 +0,0 @@
-cmd_name	function	description	order	with_args
-configure_git_repo	config_git_repo	Configure an existing Git repository to be used with VCS	3	Faux
-make_sources	make_sources	Makes the source-code files from the current project (-f to force a complete export)	1	Vrai
-update_from_sources	update_from_sources	Update the current project within the source-code files (-f to force a complete export)	2	Vrai

source/tables/ztbl_openaccess.txt

@@ -1,3 +0,0 @@
-key	val
-include_tables	ztbl_openaccess,tbl_commands,USysRegInfo
-sources_date	09/11/2016 16:50:18

source/tbldef/ztbl_openaccess.sql → source/tbldef/USysOpenAccess.sql

@@ -1,4 +1,4 @@
-CREATE TABLE [ztbl_openaccess] (
+CREATE TABLE [USysOpenAccess] (
   [key] VARCHAR (255),
   [val] VARCHAR (255)
 )

source/tbldef/tbl_commands.sql

@@ -1,7 +0,0 @@
-CREATE TABLE [tbl_commands] (
-  [cmd_name] VARCHAR (50) CONSTRAINT [PrimaryKey] PRIMARY KEY  UNIQUE  NOT NULL ,
-  [function] VARCHAR (50),
-  [description] VARCHAR (255),
-  [order] SHORT ,
-  [with_args] BIT 
-)