ConvertPDFs made more sophisticated and more appropriately renamed Re…

…namePDFs
CJohnsonADAH · Apr 26, 2018 · 51a4165 · 51a4165
1 parent c0d4b0a
commit 51a4165
Show file tree

Hide file tree

Showing 4 changed files with 186 additions and 112 deletions.
diff --git a/Form_Accessions.cls b/Form_Accessions.cls
@@ -149,7 +149,7 @@ AttachToRecordCatch:
     Dim Fixed As Boolean
 
     Let Fixed = False
-    If Err.Number = NOHOOK_EXCEPTION Then
+    If Err.Number = EX_NOHOOK Then
 
         If Me.NewRecord Then
             AccnScanListView.View FileName:=sItem
@@ -539,7 +539,7 @@ Private Function regexpIsAccnScanFile() As Object
 
     With oIsAccnFile
         .IgnoreCase = True
-        .pattern = "^([A-Z0-9]+)_([0-9]+)_([0-9]+)_([0-9]{4})([0-9]{2})?([0-9]{2})?.*[.]PDF(|.*)$"
+        .Pattern = "^([A-Z0-9]+)_([0-9]+)_([0-9]+)_([0-9]{4})([0-9]{2})?([0-9]{2})?.*[.]PDF(|.*)$"
     End With
 
     Set regexpIsAccnScanFile = oIsAccnFile