连续窗体中单个文本框的控制及评论提示功能实现咨询

你的这两个需求在Access连续窗体里都能轻松搞定，核心是利用连续窗体的Format事件——这个事件会在每条记录准备显示时触发，刚好能帮我们针对单条记录单独控制控件属性。下面是具体的实现步骤：

1. 控制文本框上方矩形的可见性 #

假设你的评论字段绑定的文本框名为txtComments，文本框上方的矩形名为txtCommentIndicator（可以自己改名，保持统一就行）：

1. 打开窗体的VBA编辑器（按Alt + F11）；
2. 找到窗体的Format事件（在编辑器左侧下拉菜单选Form，右侧下拉选Format）；
3. 粘贴以下代码：

Private Sub Form_Format(Cancel As Integer, FormatCount As Integer)
    ' 判断当前记录的评论字段是否有非空内容
    Dim hasComment As Boolean
    hasComment = Not IsNull(Me.txtComments.Value) And Trim(Me.txtComments.Value) <> ""
    
    ' 根据判断结果设置矩形的可见性
    Me.txtCommentIndicator.Visible = hasComment
End Sub

4. 回到设计视图，把矩形的是否锁定设为是、是否启用设为否，避免它干扰用户对文本框的操作。

这样一来，只要某条记录的评论字段有内容，对应的矩形就会显示出来，完美模拟Excel的评论三角标记效果！

2. 设置每条记录的ControlTipText #

同样在Format事件里添加代码，直接针对当前记录的文本框设置提示文本：

把刚才的代码扩展一下，合并成一个事件处理过程：

Private Sub Form_Format(Cancel As Integer, FormatCount As Integer)
    Dim hasComment As Boolean
    hasComment = Not IsNull(Me.txtComments.Value) And Trim(Me.txtComments.Value) <> ""
    
    ' 控制矩形可见性
    Me.txtCommentIndicator.Visible = hasComment
    
    ' 设置文本框的提示文本
    If hasComment Then
        Me.txtComments.ControlTipText = Me.txtComments.Value
    Else
        Me.txtComments.ControlTipText = "" ' 无评论时清空提示
    End If
End Sub

这段代码会自动给有评论的文本框设置对应的提示内容，没有评论的文本框则清空提示，完全满足你的需求。

补充说明 #

• 如果你不想用VBA，其实也可以试试条件格式，但条件格式只能控制控件的外观（比如颜色、字体），没法直接设置Visible属性，所以还是VBA的方法更直接可靠；
• 记得测试一下不同的记录，确保每条记录的控件属性都是独立控制的——连续窗体的Format事件会确保每条记录都执行一次代码，所以不会出现“一改全改”的问题。

内容的提问来源于stack exchange，提问作者Claus Thaulov Skeel Kristensen