home *** CD-ROM | disk | FTP | other *** search
/ Troubleshooting Netware Systems / CSTRIAL0196.BIN / attach / pcmag / v14n14 / trymet.asc < prev    next >
Text File  |  1995-03-30  |  559b  |  19 lines
  1. ' Function TryMeter
  2. ' Demonstrates how to use the Access progress meter
  3. Function TryMeter ()
  4. Dim MyDb As Database, MyTable As Table
  5. Dim RecCount As Integer, Rc As Variant, X As Integer
  6. Set MyDb = CurrentDB()
  7. Set MyTable = MyDb.OpenTable("Customers")
  8. MyTable.MoveLast
  9. RecCount = MyTable.RecordCount
  10. MyTable.MoveFirst
  11. Rc = SysCmd(SYSCMD_INITMETER, "Processing Customers...", RecCount)
  12. For X = 1 To RecCount
  13.   ' Process the record here
  14.   Rc = SysCmd(SYSCMD_UPDATEMETER, X)
  15.   MyTable.MoveNext
  16. Next X
  17. Rc = SysCmd(SYSCMD_REMOVEMETER)
  18. End Function
  19.