Support mixed UTF-16 content for ADP

Components like forms and reports that are exported from an ADP project do not use UCS BOM markers, but may contain UTF-16 unicode characters. (Such as unicode characters in form controls.) This change uses `TristateMixed` when reading files exported from ADP projects, which allows us to properly convert these to UTF-8 for representation in Version Control.

Version Control.accda.src/dbs-properties.json

@@ -2,7 +2,7 @@
   "Info": {
     "Class": "clsDbProperty",
     "Description": "Database Properties (DAO)",
-    "VCS Version": "3.1.51"
+    "VCS Version": "3.1.52"
   },
   "Items": {
     "AccessVersion": {
@@ -42,7 +42,7 @@
       "Type": 10
     },
     "AppVersion": {
-      "Value": "3.1.51",
+      "Value": "3.1.52",
       "Type": 10
     },
     "Auto Compact": {

Version Control.accda.src/modules/modFileAccess.bas

@@ -137,17 +137,31 @@ Public Sub ConvertUcs2Utf8(strSourceFile As String, strDestinationFile As String
     Dim strText As String
     Dim utf8Bytes() As Byte
     Dim fnum As Integer
+    Dim blnIsAdp As Boolean
+    Dim intTristate As Tristate
 
-    ' Make sure the path exists before we write a file.
+    ' Make sure the path exists and remove any existing file.
     VerifyPath FSO.GetParentFolderName(strDestinationFile)
-
     If FSO.FileExists(strDestinationFile) Then Kill strDestinationFile
 
+    ' ADP Projects do not use the UCS BOM, but may contain mixed UTF-16 content
+    ' representing unicode characters.
+    blnIsAdp = (CurrentProject.ProjectType = acADP)
+
     ' Check the first couple characters in the file for a UCS BOM.
-    If FileIsUCS2Format(strSourceFile) Then
+    If FileIsUCS2Format(strSourceFile) Or blnIsAdp Then
 
+        ' Determine format
+        If blnIsAdp Then
+            ' Possible mixed UTF-16 content
+            intTristate = TristateMixed
+        Else
+            ' Fully encoded as UTF-16
+            intTristate = TristateTrue
+        End If
+
         ' Read file contents and delete (temp) source file
-        With FSO.OpenTextFile(strSourceFile, ForReading, False, TristateTrue)
+        With FSO.OpenTextFile(strSourceFile, ForReading, False, intTristate)
             strText = .ReadAll
             .Close
         End With

Version Control.accda.src/vbe-project.json

@@ -2,11 +2,11 @@
   "Info": {
     "Class": "clsDbVbeProject",
     "Description": "VBE Project",
-    "VCS Version": "3.1.51"
+    "VCS Version": "3.1.52"
   },
   "Items": {
     "Name": "MSAccessVCS",
-    "Description": "Version 3.1.51 deployed on 7/2/2020",
+    "Description": "Version 3.1.52 deployed on 7/13/2020",
     "FileName": "rel:Version Control.accda",
     "HelpFile": "",
     "HelpContextId": 0,