[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 <j...@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 &amp; &quot; &quot; &amp; 
CStr(CLng(lInputRecs * 100 / lInputMax)) &amp; &quot;%&quot;, lInputRecs
+                                                                       End If
                                                                End If
                                                                .MoveNext
                                                        Loop
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits