progress bar codes

THE CODE FOR PROGRESS BAR Private Sub Form_Timer()
Me.lblcount.Caption = Me.lblcount.Caption + 1
lblprogressbar.Width = Me.lblprogressbar.Width + 77
If Me.lblcount.Caption = 101 Then
DoCmd.Close
DoCmd.OpenForm “main”, acNormal
End If
End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *