ACCESS Status Bar como Progress Bar


/ Published in: Visual Basic
Save to your folder(s)



Copy this code and paste it in your HTML
  1. 'Dentro del loop que recorre un recordset
  2. If rs.AbsolutePosition + 1 = 1 Then
  3. x = SysCmd(acSysCmdInitMeter, "process:", TotalRecords)
  4. Else
  5. x = SysCmd(acSysCmdUpdateMeter, rs.AbsolutePosition + 1)
  6. End If

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.