Less elegant a solution, but it works ... I create a column in the spreadsheet titled "recstogo" and number it in descending order so that the datastation window is displaying how many records are left to process. I also use a note each time I read a record that displays that field and what facility I'm processing for and if it's one that's looping through all my facilities which time through the loop (which is also numbered in descending order) and anything else that let's me know where I am in the process.
thanx, Sherry HCA Midwest Health Systems IT&S Programmer/Analyst II 816/823-0406 "Some of us are more capable than others of us...but none of us is more capable than all of us" Tom Wilson/Ziggy ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Rich McNeil Sent: Tuesday, April 17, 2007 11:56 To: [email protected] Subject: RE: [Talk] Progress Bar Indicator How about calling this function and looking at the WorkStation's status bar: Sub progress(fractioncomplete As Single) Note = String(fractioncomplete * 30, ")") & String(30 - fractioncomplete * 30, " ") & ") " & (100 * fractioncomplete) & "%" End Sub And use: Sub myscript1() For i = 1 To 20 progress i / 20 Wait 0.5 Next i End Sub Rich McNeil Boston Software Systems 866 653 5105 x 813 www.bostonworkstation.com <http://www.bostonworkstation.com/> See us at MUSE booth 318 From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of McCullough, Kevin Sent: Tuesday, April 17, 2007 12:16 PM To: [email protected] Subject: RE: [Talk] Progress Bar Indicator It wouldn't be a progress bar, but you could just have 3 Boston variables, like Total_Records, Remaining_Records, and Percent_Complete. You could also add one to determine how long it took to process the first record and multiply that by the remaining records to get the remaining time. They would be automatically displayed, so you wouldn't have to worry about losing window focus. You'd just have to update the values within the script whenever you want it refreshed. Kevin McCullough Implementation Specialist Select Medical - Hospital Apps (717) 972 - 8114 ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Thompson, Mary Sent: Tuesday, April 17, 2007 12:04 PM To: [email protected] Subject: RE: [Talk] Progress Bar Indicator This would be a great addition to many scripts! Mary Electronic email from Mary Thompson, mailto:[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> Children's Mercy Hospitals and Clinics. This communication is intended only for the use of the addressee. It may contain information, which is privileged or confidential under applicable law. If you are not the intended recipient or the agent of the recipient, you are hereby notified that any dissemination, copy of disclosure of this communication is strictly prohibited. If you have received this communication in error, please immediately notify Children's Mercy Hospitals and Clinics at 816-234-3940 or via return internal electronic email at mailto:[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> and expunge this communication without making any copies. Thank you for your cooperation. ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Tuesday, April 17, 2007 10:52 AM To: [email protected] Subject: [Talk] Progress Bar Indicator I'm looking for a simple progress bar indicator to add to my script. I'm performing a dictionary update in Meditech from an Excel spreadsheet. I would like to progress bar to query the number of records in the spreadsheet to determine the how long it will take for the update to run and what % complete it is. Thanks, John Keefer Systems Analyst Highline Medical Center 16251 Sylvester Rd SW Burien, WA 98166 206.431.5373 Ext. 5399 [EMAIL PROTECTED] ________________________________ This message, together with any attachments, is intended only for use of the individual or entity to which it is addressed. It may contain information that is confidential and prohibited from disclosure. If you are not the intended recipient, you are hereby notified that any dissemination or copying of this message or any attachment is strictly prohibited. If you have received this message in error, please notify the original sender by telephone or by return email and delete this message, along with any attachments, from your computer. Thank You. Note: The information contained in this message may be privileged and confidential and protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. Thank you.
