有没有比较简单一点的进度条表达法。

谢谢.你的这个实例,基本上达到我的要求,最佳答案稍后给出.有以下一些不明白东东,想向你请教.

Option Compare Database
Option Explicit
Private Sub Form_Load()
    On Error GoTo Err_Form_Load

    'Call FormResiz_OnOpen(Me)

    Me.pb0.Max = 6000
    Me.pb0.Value = 1000
    Me.TimerInterval = 100

Exit_Form_Load:
    Exit Sub
Err_Form_Load:
    MsgBox Err.Description
    Resume Exit_Form_Load

End Sub
Private Sub Form_Timer()
    On Error GoTo Err_Form_Timer

    Me.pb0.Value = Me.pb0.Value + 200
    Screen.MousePointer = 11    '鼠标为漏斗
    If Me.pb0.Value = 6000 Then
        Me.TimerInterval = 0
        Screen.MousePointer = 0  '恢复鼠标
        DoCmd.Close acForm, Me.Name
        DoCmd.RunCommand acCmdAppMaximize
        DoCmd.OpenForm "主窗体"
        Exit Sub
    End If

Exit_Form_Timer:
    Exit Sub
Err_Form_Timer:
    MsgBox Err.Description
    Resume Exit_Form_Timer

End Sub

1.Me.pb0.Max = 6000  pb0 不知指的是什么?

2.DoCmd.Close acForm, Me.Name 这一句不知指的是什么?

3.ProgCtrl这个不知是什么东东?

4.

Exit_Form_Load:
    Exit Sub
Err_Form_Load:
    MsgBox Err.Description
    Resume Exit_Form_Load

这两句不知是什么意思啊?