Use alternate null testing in SQL statement

A user reported this triggering an error on their system. Using a more simple comparison to test for null. #384
joyfullservice · Mar 6, 2023 · 005dbd5 · 005dbd5
1 parent 95f217c
commit 005dbd5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Version Control.accda.src/dbs-properties.json b/Version Control.accda.src/dbs-properties.json
@@ -41,7 +41,7 @@
       "Type": 10
     },
     "AppVersion": {
-      "Value": "4.0.8",
+      "Value": "4.0.9",
       "Type": 10
     },
     "Auto Compact": {

diff --git a/Version Control.accda.src/modules/clsDbTableDataMacro.cls b/Version Control.accda.src/modules/clsDbTableDataMacro.cls
@@ -145,7 +145,7 @@ Private Function IDbComponent_GetAllFromDB(Optional blnModifiedOnly As Boolean =
                 If Left$(tdf.Name, 1) <> "~" Then
                     If Len(tdf.Connect) = 0 Then
                         ' Check to see if the table has a data macro
-                        strSql = "Not IsNull(LvExtra) and Type = 1 and [Name] = """ & tdf.Name & """"
+                        strSql = "(LvExtra is not null) and (Type = 1) and ([Name] = """ & tdf.Name & """)"
                         If DCount("[Name]", "MSysObjects", strSql) > 0 Then
                             Set cTable = New clsDbTableDataMacro
                             Set cTable.DbObject = CurrentData.AllTables(tdf.Name)