将光标更改为所有按钮上的ms-access中的超链接指针

Question

我有很多按钮，不想搜索所有按钮。 所以我想有两个部分。如何遍历并将其仅应用于按钮控件，以及可以更改哪些属性来更改悬停行为。

我尝试了以下方法。

Private Sub Report_Load()
Dim cc As Control
           For Each cc In Me.Controls
                   If InStr(LCase(cc.Name), "command") > 0 
                   cc.hover = "hyperlink hand"
                   End If
           Next cc

Answer 1

我能够弄清楚。它可能使您不满意的原因是自动完成功能可能对您没有帮助，但是只要所有按钮都以work命令开头，它仍然可以使用。 （有时他们可能不会那么提防！）

Dim cc As Control
           For Each cc In Me.Controls
                   If cc.ControlType = acCommandButton Then
                   cc.QuickStyle = 9
                   cc.CursorOnHover = acCursorOnHoverHyperlinkHand
                   End If
           Next cc