access 进度条

请在[布局视图]下设置,效果如下

Option Compare Database
 Dim s As Integer
Private Sub Form_Load() '初始化变量
    Me.TimerInterval = 10
    Command4.Width = 0End Sub

Private Sub Form_Timer()
    If s < 100 Then
        s = s + 1   '自增量,可以设置自己的自增逻辑
        Me.Command4.Width = 3000 / 100 * s  '这个3000是进度条达到100%之后的宽度
        Me.Command4.Caption = s & "%"
    Else
        Me.TimerInterval = 0    '停止计时器
        MsgBox "任务完成!"
    End If
   
End Sub