A
Anthony Viscomi
I have the following:
Set dbCurr = CurrentDb()
SysCmd acSysCmdInitMeter, "Working on CCE Template Updates"
lngCount = 0
For Each qryCurr In dbCurr.QueryDefs
lngCount = lngCount + 1
SysCmd acSysCmdUpdateMeter, lngCount
With qryCurr
If Right$(.Name, 4) = "_XLS" Then
.Execute dbFailOnError
clsRidesPBar.IncOne
End If
End With
Next qryCurr
SysCmd acSysCmdClearStatus
I seemto be missing an argrument in the SysCmd acSysCmdInitMeter, "Working
on CCE Template Updates" line.
If I place a value at the end, the script will run but the Progress Bar
starts at 100% and stays like that for the duration of the loop.
Any ideas?
Thanks,
Anthony
Set dbCurr = CurrentDb()
SysCmd acSysCmdInitMeter, "Working on CCE Template Updates"
lngCount = 0
For Each qryCurr In dbCurr.QueryDefs
lngCount = lngCount + 1
SysCmd acSysCmdUpdateMeter, lngCount
With qryCurr
If Right$(.Name, 4) = "_XLS" Then
.Execute dbFailOnError
clsRidesPBar.IncOne
End If
End With
Next qryCurr
SysCmd acSysCmdClearStatus
I seemto be missing an argrument in the SysCmd acSysCmdInitMeter, "Working
on CCE Template Updates" line.
If I place a value at the end, the script will run but the Progress Bar
starts at 100% and stays like that for the duration of the loop.
Any ideas?
Thanks,
Anthony