Start procedure for call from MSAccessVCS (with add-in call customization)

Author: josef-poetzl

source/forms/DeclarationDictForm.cls

@@ -299,53 +299,21 @@ End Sub
 
 Private Sub SaveToTable()
 
-   Dim db As DAO.Database
-   Set db = CurrentDb
-
-   If Not TableDefExists("USysDeclDict", db) Then
-      db.Execute "create table USysDeclDict (DeclWord varchar(255) Not Null Primary Key)", dbFailOnError
-   End If
-
-   Dim rs As DAO.Recordset
-   Dim i As Long
-
-   db.Execute "delete from USysDeclDict"
-   Set rs = db.OpenRecordset("USysDeclDict", dbOpenDynaset, dbAppendOnly)
-   For i = 0 To m_DeclarationDict.Count - 1
-      rs.AddNew
-      rs.Fields(0).Value = m_DeclarationDict.VariationsDict.Keys(i)
-      rs.Update
-   Next
-
-   ShowTableRecInfo m_DeclarationDict.Count & " records were inserted into USysDeclDict"
+   m_DeclarationDict.SaveToTable DefaultDeclDictTableName
+   ShowTableRecInfo m_DeclarationDict.Count & " records were inserted into " & DefaultDeclDictTableName
 
 End Sub
 
 Private Sub LoadFromTable()
 
-   Dim db As DAO.Database
-   Dim rs As DAO.Recordset
-   Dim i As Long
+   Dim ErrMsg As String
 
-   Set db = CurrentDb
-
-   If Not TableDefExists("USysDeclDict", db) Then
-      ShowTableRecInfo "Table USysDeclDict not exists"
+   If Not m_DeclarationDict.LoadFromTable(DefaultDeclDictTableName, ErrMsg) Then
+      ShowTableRecInfo ErrMsg
       Exit Sub
    End If
 
-   Set m_DeclarationDict = New DeclarationDict
-
-
-   Set rs = db.OpenRecordset("select DeclWord from USysDeclDict", dbOpenSnapshot)
-   Do While Not rs.EOF
-      m_DeclarationDict.AddWord rs.Fields(0)
-      rs.MoveNext
-   Loop
-   rs.Close
-   Set db = Nothing
-
-   ShowTableRecInfo m_DeclarationDict.Count & " records were imported from USysDeclDict"
+   ShowTableRecInfo m_DeclarationDict.Count & " records were imported from " & DefaultDeclDictTableName
    RequeryDictData
 
 End Sub

source/modules/DeclarationDict.cls

@@ -445,7 +445,61 @@ Public Sub ChangeKeyLetterCase(ByVal WordWithNewLetterCase As String)
 
 End Sub
 
-Public Sub LoadFromFile(ByVal FullFileName As String)
+Public Function LoadFromTable(ByVal TableName As String, Optional ByRef ErrorMsg As String) As Boolean
+
+   Dim db As DAO.Database
+   Dim rs As DAO.Recordset
+   Dim i As Long
+
+   Set db = CurrentDb
+
+   If Not TableDefExists(TableName, db) Then
+      ErrorMsg = "Table " & TableName & " not exists"
+      LoadFromTable = False
+      Exit Function
+   End If
+
+   Set rs = db.OpenRecordset("select DeclWord from " & TableName, dbOpenSnapshot)
+   Do While Not rs.EOF
+      AddWord rs.Fields(0)
+      rs.MoveNext
+   Loop
+   rs.Close
+   Set db = Nothing
+
+   LoadFromTable = True
+
+End Function
+
+Public Sub SaveToTable(ByVal TableName As String)
+
+   Dim db As DAO.Database
+   Set db = CurrentDb
+
+   If Not TableDefExists(TableName, db) Then
+      db.Execute "create table " & TableName & " (DeclWord varchar(255) Not Null Primary Key)", dbFailOnError
+   End If
+
+   Dim rs As DAO.Recordset
+   Dim i As Long
+
+   db.Execute "delete from " & TableName
+   Set rs = db.OpenRecordset(TableName, dbOpenDynaset, dbAppendOnly)
+   For i = 0 To m_Words.Count - 1
+      rs.AddNew
+      rs.Fields(0).Value = m_Words.Keys(i)
+      rs.Update
+   Next
+
+End Sub
+
+Public Function LoadFromFile(ByVal FullFileName As String, Optional ByRef ErrorMsg As String) As Boolean
+
+   If Not FileExists(FullFileName) Then
+      LoadFromFile = False
+      ErrorMsg = "File " & FullFileName & " not exists"
+      Exit Function
+   End If
 
    With New ADODB.Stream
       .Charset = "utf-8"
@@ -457,7 +511,9 @@ Public Sub LoadFromFile(ByVal FullFileName As String)
       .Close
    End With
 
-End Sub
+   LoadFromFile = True
+
+End Function
 
 Public Sub ExportToFile(ByVal FullFileName As String)
 

source/modules/_AddInAPI.bas

@@ -8,8 +8,34 @@ Public Function StartAddIn()
 
 End Function
 
-Public Function RunVcsCheck()
+Public Function RunVcsCheck() As Variant
 
+   Dim DictFilePath As String
+
+   With New DeclarationDict
+
+      If Not .LoadFromTable(DefaultDeclDictTableName) Then
+         DictFilePath = CurrentProject.Path & "\DeclarationDict.txt"
+         If Not .LoadFromFile(DictFilePath) Then
+            .ImportVBProject CurrentVbProject
+            ' ... log info: first export
+            Debug.Print "RunVcsCheck: no export data exists, run first export"
+            .ExportToFile DictFilePath
+            RunVcsCheck = "Info: no export data exists, run first export"
+            Exit Function
+         End If
+      End If
+
+      .ImportVBProject CurrentVbProject
+
+      If .DiffCount > 0 Then
+         RunVcsCheck = "Failed: " & .DiffCount & " words with different letter case"
+         Debug.Print "RunVcsCheck: " & .DiffCount & " words with different letter case"
+      Else
+         RunVcsCheck = True
+      End If
+
+   End With
 
 
 End Function

source/modules/_config_Application.bas

@@ -18,7 +18,7 @@ Option Explicit
 Option Private Module
 
 'Version number
-Private Const APPLICATION_VERSION As String = "0.2.1.250304"
+Private Const APPLICATION_VERSION As String = "0.3.0.250305"
 
 Private Const APPLICATION_NAME As String = "ACLib Declaration Dictionary"
 Private Const APPLICATION_FULLNAME As String = "Access-CodeLib - Declaration Dictionary"
@@ -28,6 +28,8 @@ Private Const APPLICATION_STARTFORMNAME As String = "DeclarationDictForm"
 
 Private m_Extensions As Object 'ApplicationHandler_ExtensionCollection
 
+Public Const DefaultDeclDictTableName As String = "USysDeclDict"
+
 '---------------------------------------------------------------------------------------
 ' Sub: InitConfig
 '---------------------------------------------------------------------------------------