VarReturn = SysCmd(acSysCmdUpdateMeter, 80)ĭoCmd. VarReturn = SysCmd(acSysCmdInitMeter, "Loading Reports Please Wait.", 100) MsgBox Err.Description, vbExclamation, "Error in cmdTest_Click()" VarReturn = SysCmd(acSysCmdClearStatus) 'Clear Meter in event of an Error ProgressBar control, 442 queries code to deny creating objects, 644-645. VarReturn = SysCmd(acSysCmdUpdateMeter, 100) loading a subform con- trol at runtime, 262 locating the record for the. VarReturn = SysCmd(acSysCmdUpdateMeter, 75) VarReturn = SysCmd(acSysCmdUpdateMeter, 50) I have a form and a button on that form.When the user clicks on the button an MS-Excel sheet is generated from access database and saved in a particular location.As this generation of excel tkes sometime to complete,what i want to do is i want to show a progressbar loading till the entire sheet is generated. VarReturn = SysCmd(acSysCmdUpdateMeter, 25) VarReturn = SysCmd(acSysCmdInitMeter, "Updating.", 100) 'Initialize the Progress Meter, set Maximum Value = 100 Your command button can then use 'please wait' message in mouse down input instead click input. Then wait massage label caption should be before processing. So you put finish massage as label caption above end sub code line. If anyone is interested in how to do this, please let me know, Here is a very easy way: The true process ending time is latest code line. NOTE: If updating a large Recordset, you may wish to periodically relinquish control to the Windows Environment using DoEvents. VarReturn = SysCmd(acSysCmdUpdateMeter, intCounter).
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |