Excel 2013 32位/ Access 2013 32位/ Win 7 64位
进度条形码:
Sub progress(pctCompl As Single)
If pctCompl = 100 Then
Unload ProgressBar
Exit Sub
End If
ProgressBar.Text.Caption = pctCompl & "% Completed"
ProgressBar.Bar.Width = pctCompl * 2
DoEvents
End Sub
发射编码器:
Sub LaunchPBUF()
ProgressBar.Show '<-- Error Location
End Sub
我所做的:
发布于 2015-12-01 15:45:57
我强烈建议使用“本机”访问表单,几乎没有人在访问中使用Userforms。
或者使用SysCmd创建一个没有窗体的进度条。
https://stackoverflow.com/questions/33872441
复制相似问题