diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2018-03-22 13:19:35 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2018-03-22 13:19:35 +0100 |
| commit | fdd3941acfb3e9f4c1775d50210f9811cd179564 (patch) | |
| tree | eb79082a1d93a16b217a06289a176969eb91bbf2 /wizards | |
| parent | 5ca8203ae708504855661a5049084f9e8b5926cf (diff) | |
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
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/DoCmd.xba | 3 |
1 files changed, 2 insertions, 1 deletions
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 |