Error 7952 when calling syscmd

[Guest]

In about 5-10% of the cases syscmd function fails with error 7952 in
following code error means function not called correct).

Dim Meter As Variant
Meter = SysCmd(acSysCmdInitMeter, "Busy...", UBound(varOrdernr))
For varArrayItem = 1 To UBound(varOrdernr)
....
DoEvents
Meter = SysCmd(acSysCmdUpdateMeter, varArrayItem)
Next varArrayItem

I read somewhere I should use acSysCmdUpdateMeter with different syntax
(with update text like "Busy doing something...") but I do not have another
working syntax. I hope someone could help with this issue, been battling with
it for weeks!
Thanks.

 

[Alex Dybenko]

Hi,
what is a value of varArrayItem when you get error? perhaps something wrong
with it. I am using the same sytax in my applications - and it works fine

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com

 

[Guest]

Hi,

Thanks for your reply. varArrayItem seems ok, when error appears it is lower
than UBound(varOrdernr). To be sure, I made a separate counter (i=i+1 like),
still same error. The function accepts several arrays with values to make new
invoices. When a specific order fails I want the code to remember the error,
continue, show progress meter and tell user afterwards what happened (made 5
invoices, 1 failed, sorry..). When a failure happens I use Rollback to
cancel, and the For-Next loop to continue with other invoices. Perhaps there
is something wrong with that. I have also not yet tried to just remove the
progress meter since I like to show user what is going on. (40 invoices or so
might take some 7 seconds on slow pc in network).

Sander