时间戳

首页 > 解决方案 > 在所有按钮上的 ms-access 中将光标更改为超链接手

vba - 在所有按钮上的 ms-access 中将光标更改为超链接手

问题描述

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

我尝试了以下方法。

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

光标悬停

标签： vbams-access

解决方案

我能够弄清楚。它可能会绊倒您的原因是自动完成功能可能对您没有帮助，但只要所有按钮都以 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

推荐阅读