在Access窗体的RichTextBox中通过超链接/按钮打开窗体或调用MessageBox

当然可行！我之前在几个Access项目里都实现过类似的需求，下面分两种实用方案给你一步步讲解：

RichTextBox本身支持超链接，但默认行为是打开网页，不过我们可以通过拦截点击事件，把它改成打开窗体或弹出提示框的逻辑。

步骤如下：

1. 在你的窗体上添加一个RichTextBox控件（比如命名为rtbMainContent），手动在里面输入带超链接格式的文本（比如选中“打开客户信息窗体”，右键设置为超链接；或者用代码批量插入超链接）。
2. 双击RichTextBox控件，进入其Click事件的代码编辑区，写入以下逻辑：

Private Sub rtbMainContent_Click()
    ' 先判断点击的是否是超链接区域
    If rtbMainContent.SelType = rtfSelHyperlink Then
        Dim targetAction As String
        targetAction = Trim(rtbMainContent.SelText)
        
        ' 根据超链接文本执行对应操作
        Select Case targetAction
            Case "打开客户信息窗体"
                ' 替换成你要打开的窗体名称
                DoCmd.OpenForm "frmCustomerInfo"
            Case "显示操作提示"
                MsgBox "这是通过RichTextBox超链接触发的提示消息！", vbInformation
            Case Else
                ' 如果是普通网页链接，保留默认打开行为
                FollowHyperlink targetAction
        End Select
    End If
End Sub

这个方案的优势是排版灵活，超链接文本和普通内容融合自然，适合需要在大段文本中插入交互点的场景。

如果想要更直观的交互元素，可以在RichTextBox里嵌入一个按钮控件，用户一眼就能识别这是可点击的操作入口。

步骤如下：

1. 打开RichTextBox的编辑模式，右键控件内部，选择【插入对象】，在弹出的对话框里找到并选择Microsoft Forms 2.0 CommandButton（如果找不到这个选项，需要先注册MSForms.ocx控件，一般在系统目录下）。
2. 插入按钮后，右键按钮选择【属性】，修改Caption为你想要的文字（比如“打开设置面板”），并记住按钮的名称（比如cmdOpenSettings）。
3. 回到窗体的代码模块，添加按钮的点击事件代码：

Private Sub cmdOpenSettings_Click()
    ' 打开目标窗体
    DoCmd.OpenForm "frmSettings"
    ' 或者弹出提示框
    ' MsgBox "你点击了内嵌按钮！", vbExclamation
End Sub

这个方案的好处是交互更直观，但缺点是RichTextBox里的OLE对象排版相对麻烦，批量添加的话不如超链接高效。

注意事项 #

• 确保你的Access版本是2007及以上，这些版本对RichTextBox控件的支持更完善。
• 使用超链接方案时，建议超链接文本保持唯一，避免Select Case判断出错。
• 内嵌按钮的事件绑定只在当前窗体有效，如果复制RichTextBox内容到其他地方，按钮会失去事件关联。

内容的提问来源于stack exchange，提问作者majid