diff options
| -rw-r--r-- | wizards/source/access2base/Module.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/access2base/Module.xba b/wizards/source/access2base/Module.xba index 64eea2f102c9..4e6156c81b9f 100644 --- a/wizards/source/access2base/Module.xba +++ b/wizards/source/access2base/Module.xba @@ -496,7 +496,7 @@ Dim bEndStatement As Boolean, bQuote As Boolean plStart = lStart + 1 sMatch = Right(sMatch, Len(sMatch) - 1) End If - Case UCase(Left(sMatch, 3)) = "REM" + Case UCase(Left(sMatch, 4)) = "REM " Or UCase(Left(sMatch, 4)) = "REM" & vbTab Or UCase(Left(sMatch, 4)) = "REM" & vbNewLine bEndStatement = True Case UCase(Left(sMatch, 4)) = "THEN" Or UCase(Left(sMatch, 4)) = "ELSE" If psPattern = "%$" Then @@ -610,7 +610,7 @@ Const cstName = "\w*" '"[A-Za-z_][A-Za-z_0-9]*" ReDim Preserve _ProcDecPositions(0 To iProc) ReDim Preserve _ProcEndPositions(0 To iProc) ReDim Preserve _ProcTypes(0 To iProc) - _ProcDecpositions(iProc) = lPosition + _ProcDecPositions(iProc) = lPosition lPosition = lPosition + Len(sDecProc) ' Identify procedure type Select Case True |