[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/DoCmd.xba |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

New commits:
commit fdd3941acfb3e9f4c1775d50210f9811cd179564
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Thu Mar 22 13:19:35 2018 +0100

    Access2Base - Bypass Basic IDE shortcoming
    
    When using an If statement with a continuation character
    after Then, sometimes breakpoints are desynchronized.
    Suppress continuation character and add an explicit End If

diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba
index 507d864eee7c..2f2e0ae89e5d 100644
--- a/wizards/source/access2base/DoCmd.xba
+++ b/wizards/source/access2base/DoCmd.xba
@@ -365,8 +365,9 @@ Const cstProgressMeterLimit = 100
 								oOutput._EditMode = dbEditNone
 								lInputRecs = lInputRecs + 1
 								If bProgressMeter Then
-									If lInputRecs Mod (lInputMax / 100) = 0 Then _
+									If lInputRecs Mod (lInputMax / 100) = 0 Then
 										Application.SysCmd acSysCmdUpdateMeter, pvNewName & " " & CStr(CLng(lInputRecs * 100 / lInputMax)) & "%", lInputRecs
+									End If
 								End If
 								.MoveNext
 							Loop