استفاده از اکشن های SysCmd در اکسس مخصوصاً جهت نوار پیشرفت

acSysCmdAccessDir : 9

Returns the name of the directory where Msaccess.exe is located.

acSysCmdAccessVer : 7

Returns the version number of Microsoft Access.

acSysCmdClearHelpTopic : 11

acSysCmdClearStatus5Provides information on the state of a database object.

acSysCmdGetObjectState : 10

Returns the state of the specified database object. You must specify argument1 and argument2 when you use this action value.

acSysCmdGetWorkgroupFile : 13

Returns the path to the workgroup file (System.mdw).

acSysCmdIniFile : 8

Returns the name of the .ini file associated with Microsoft Access.

acSysCmdProfile :12

Returns the /profile setting specified by the user when starting Microsoft Access from the command line.

acSysCmdRuntime : 6 

Returns True (1) if a run-time version of Microsoft Access is running.

acSysCmdInitMeter : 1

Initializes the progress meter. You must specify the argument1 and argument2 arguments when you use this action.

acSysCmdUpdateMeter : 2 

Updates the progress meter with the specified value. You must specify the text argument when you use this action.

acSysCmdRemoveMeter :3 

Removes the progress meter.

acSysCmdSetStatus : 4 

Sets the status bar text to the text argument.

SysCmd(acSysCmdGetObjectState, acTable, obj.Name)

expression.SysCmd(Action,Arg2,Arg3)

Argument2  Optional Variant. A string expression identifying the text to be displayed left-aligned in the status bar. This argument is required when the action argument is acSysCmdInitMeter, acSysCmdUpdateMeter, or acSysCmdSetStatus; this argument isn't valid for other action argument values.

You can't set the status bar text to a zero-length string (" "). If you want to remove the existing text from the status bar, set the text argument to a single space.  The text argument can contain approximately 80 characters. 

Note : When the action argument is acSysCmdUpdateMeter, the SysCmd method uses the value argument to calculate the percentage displayed by the meter. For example, if you set the maximum value to 200 and then update the meter with a value of 100, the progress meter will be half-filled.

MyTable.MoveLast
Count = MyTable.RecordCount
MyTable.MoveFirst
SysCmd acSysCmdInitMeter, "Reading Data...", Count
For Progress_Amount = 1 To Count
SysCmd acSysCmdUpdateMeter, Progress_Amount
MyTable.MoveNext
Next
SysCmd acSysCmdRemoveMeter

البته این سایت سایت تولیدی نیست پس اسرائیل رکب خورد