From 571dce97f57fe96bee05e7987ca24ee08d68ffdd Mon Sep 17 00:00:00 2001
From: joyfullservice <joyfullservice@users.noreply.github.com>
Date: Fri, 6 Sep 2024 08:24:51 -0500
Subject: [PATCH] Fix incompatible Access SQL data type

Fixes #533
---
 Version Control.accda.src/modules/clsDbTableDef.cls | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Version Control.accda.src/modules/clsDbTableDef.cls b/Version Control.accda.src/modules/clsDbTableDef.cls
index 17775795..d122c9fe 100644
--- a/Version Control.accda.src/modules/clsDbTableDef.cls	
+++ b/Version Control.accda.src/modules/clsDbTableDef.cls	
@@ -504,7 +504,7 @@ Private Function GetTypeString(intType As DAO.DataTypeEnum) As String
         Case dbMemo:            GetTypeString = "LONGTEXT"
         Case dbDouble:          GetTypeString = "DOUBLE"
         Case dbSingle:          GetTypeString = "SINGLE"
-        Case dbByte:            GetTypeString = "UNSIGNED BYTE"
+        Case dbByte:            GetTypeString = "BYTE"
         Case dbInteger:         GetTypeString = "SHORT"
         Case dbLong:            GetTypeString = "LONG"
         Case dbNumeric:         GetTypeString = "NUMERIC"