|
由于记录五六千条,在更新记录时花费的时间较长,所以我需要采用进度条来提示更新情况。为减少窗体,我参考todaynew老汉的《杏花村——状态栏进度条》,但我不知状态栏进度条的代码放在哪里。
我的代码如下:
ssql = "update tblA,tblname set tblA.姓名=tblname.姓名 where tblA.序号=tblname.序号"
CurrentDb.Execute ssql
状态栏进度条的代码如下:
Dim i As Long
Dim j As String
Dim str As String
For i = 1 To 1000000
j = Format(Round(i / 1000000, 2) * 100, "@@@%")
If i Mod 100000 = 0 Then
str = str & "■"
Me.进度条.StatusBarText = j & " " & str
End If
Next
Me.进度条.StatusBarText = "处理完毕"
请问,状态栏进度条的代码应放在SQL语句的哪个地方才正确呢。 |
|