Source code for a native progress bar would be preferable. What is the the minimally invasive way to have that? (I consider addins to be 'invasive' since they may not be there on all machines, even including my home one and going 3rd party is just about out of the question, unless by an unassailable source like Chip or John. Hey, is there a VBA command to force it open, when I forget? (Maybe it's only by stuffing Ctrl-G). Moving down the lame scale is a sprinkling of debug.print. Since all Beeps sound the same, sometimes Beep followed by Beep. Perhaps a self-closer works ("This box will self destruct in 5 seconds. Messageboxes don't work because the world stops until you respond. But you can always show the hour glass this tells the user that something is happening.There's no status bar to set as in Excel, so what is a similarly painless way to see progress? After all, it's the long, long sets of processing that are precisely the ones I write macros and modules for! I'd like better than an hourglass for 7 or 70 minutes.
Possibly you could split the work of your slow query into smaller pieces, in order to get the chance of updating a progress bar.
its new Office Button, Quick Access toolbar, and Ribbon, and you realize. You cannot watch a runnging query in code or the like in Access. Microsoft Excel, for a career boost, or to better handle numbers, lists, and. Note: Of course you must do the work programmatically for this to work. 'Update the progress bar n = n + 1 SysCmd acSysCmdUpdateMeter, n 'Keep the application responding (optional) DoEvents rs.MoveNext Loop rs.Close: Set rs = Nothing db.Close: Set db = Nothing 'Remove the progress bar SysCmd acSysCmdRemoveMeter 'Show the normal cursor again DoCmd.Hourglass False ") rs.MoveLast 'Needed to get the accurate number of records 'Show the progress bar SysCmd acSysCmdInitMeter, "working.", rs.RecordCount rs.MoveFirst Do Until rs.EOF 'Do the work here. I often do something like this Dim n As Long, db As DAO.Database, rs As DAO.Recordset 'Show the hour glass DoCmd.Hourglass True Set db = CurrentDb Set rs = db.OpenRecordset("SELECT.
0 kommentar(er)
