diff options
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 |