Greetings, D.Record gives you the current record you are on. When the property is asked for at a opportune time in the script, this will also provide an indicator of how many records have been processed - so you don't really need to use a counter - unless of course the script is skipping records.
Determining how many records are left within the file to process is challenging without something that "looks ahead" to see how many records exist. Regards, Thom Thom C. Blackwell Product Manager Boston Software Systems (866) 653-5105 ex 807 www.bossoft.com <http://www.bossoft.com/> Sign up for my weekly webinar! <http://www.bostonworkstation.com/customer_center/special_events.aspx> LEGAL NOTICE Unless expressly stated otherwise, this message is confidential and may be privileged. It is intended for the addressee(s) only. Access to this E-mail by anyone else is unauthorized. If you are not an addressee, any disclosure or copying of the contents of this E-mail or any action taken (or not taken) in reliance on it is unauthorized and may be unlawful. If you are not an addressee, please inform the sender immediately, then delete this message and empty from your trash. From: [email protected] [mailto:[EMAIL PROTECTED] Sent: Monday, November 10, 2008 10:09 To: Talk Subject: [talkbws] RE: Progress window? Hey Mitch, not sure if you got this answered completely, but I have a script that displays the number of records in a Window. The hardest part was counting the records in the data station file because there is no trick or shortcut from BWS. So, I first have a step to count the total number of records in the file - this is just a standard Step in BWS: Dim RecCount As Integer Do While D("PAT_ID") <> "" RecCount = RecCount + 1 D.Next_ F("COUNT") = RecCount Loop D.Record = 1 >From the counting perspective, when the script hits the D.Next step, there is >additional code to increment the count: D.Next_ F("CURRECORD") = F("CURRECORD") + 1 ACTfrmUser_Activate Wait 2 Activate "Halifax*", True To make it easy, I send the flag to the subs: Private Sub ACTfrmUser_Activate() frmUser.Caption = "QMS CERT NOTE DATA" frmUser.StartUpPosition = 3 frmUser.lblTotCountVal = F("COUNT") frmUser.lblCurrentVal = F("CURRECORD") frmUser.Show End Sub Private Sub DEACTfrmUser_Deactivate() frmUser.Hide Activate "Halifax*", True End Sub I remember the key to this was the ShowModal property for the form to be set at False... It created issues when it wasn't set up that way. I'm sure you are aware, the position property will allow you to set where the form appears on the screen. Kim Scaccia, System Admin Halifax Health 386-226-4590 opt 1 ext 2018 ________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] Sent: Tuesday, November 04, 2008 12:42 PM To: [email protected] Subject: [talkbws] Progress window? Good morning all. Sitting here watching a script of mine run, and I'm thinking to myself "I wonder if I could get some kind of window in the lower left part of the screen somewhere that lists the name of the script and some kind of progress bar or "Record xx of yyy" type of display." Anyone have something like this and can send me the code? Background: My projects run minimized (Taskbar = True), are rules-based (with the odd vb function/sub), and interact with Meditech C/S, using excel as the database. Thank you, Mitch Lawrence Lead Applications Analyst Technical Support - NPR/Automation CHRISTUS Information Management : [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> Send a "thank you <http://intranet.christushealth.org/spiritBuck/Default.asp> " to someone! --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [EMAIL PROTECTED] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [EMAIL PROTECTED] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [EMAIL PROTECTED] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [EMAIL PROTECTED] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx
<<image001.jpg>>
