更新控制时形成闪烁

Question

我使用下面的代码为不同的用户设置所有控件：

 

DoCmd.Echo False
Me.Painting = False
Application.Echo False, "Updating"

On Error Resume Next
If Flag Then
    For Each ctl In Me.Controls
        ctl.enabled = True
        ctl.Locked = False
    Next
Else
    For Each ctl In Me.Controls
        ctl.enabled = False
        ctl.Locked = True
    Next
End If

窗口会严重闪烁。我尝试DoCmd.Echo，Me.Painting和Applcaiton.Echo以避免闪烁，但它没有解决问题。

有什么建议吗？

Answer 1

控件位于不同的标签中。当settign控制导致屏幕轻弹时，表格将从一个标签跳到另一个标签。