使用.SelStart和.SelLength将组合框文本插入文本框指定位置报错求助

问题背景 #

在Access表单中，尝试将组合框cboFields的预填文本插入到未绑定文本框Me.EmailMessage的指定位置（表单和文本框均无绑定数据源），需求逻辑如下：

• 文本框失去焦点前，保存光标位置到vCursorPosition、原文本到vOriginalText
• 选择组合框选项后，获取要插入的文本vMergeText
• 聚焦文本框，恢复原内容并在原光标位置插入新文本

执行代码时，在Me.EmailMessage.Text = vOriginalText处触发错误：

Run-time error '2115': The macro or function set to the BeforeUpdate or ValidationRule property for this field is preventing Microsoft Access from saving the data in the field.

但文本框并未设置BeforeUpdate或ValidationRule属性。

错误原因分析 #

1. 事件触发逻辑冲突：EmailMessage_AfterUpdate事件会在文本框内容变更后触发，当我们在cboFields_AfterUpdate中修改文本框内容时，会再次触发EmailMessage_AfterUpdate，形成隐性事件循环，引发Access内部的更新校验错误。
2. .Text属性的限制：.Text仅在控件获得焦点时可用，直接赋值会触发Access内部的更新校验流程，即使控件未绑定数据源，也可能触发错误提示。

解决步骤 #

1. 替换事件为LostFocus #

将保存光标位置和原文本的逻辑从AfterUpdate移到LostFocus，确保仅在文本框失去焦点时保存状态，避免不必要的事件重复触发。

2. 改用.Value属性读写文本 #

.Value是Access控件的核心值属性，兼容所有控件状态（无论是否有焦点），不会触发多余的更新校验逻辑，比.Text更稳定。

3. 调整插入逻辑 #

恢复原内容后直接定位光标并插入文本，简化操作流程。

修改后的代码 #

Dim vCursorPosition     As Long
Dim vOriginalText       As String
Dim vSelectionLength    As Long
Dim vMergeText          As String

' 仅在文本框失去焦点时保存光标位置和原文本
Private Sub EmailMessage_LostFocus()
    vCursorPosition = Me.EmailMessage.SelStart
    vSelectionLength = Me.EmailMessage.SelLength
    vOriginalText = Me.EmailMessage.Value
End Sub

Private Sub cboFields_AfterUpdate()
    vMergeText = Me.cboFields.Column(1)
    Me.EmailMessage.SetFocus
    
    ' 用Value属性恢复原文本
    Me.EmailMessage.Value = vOriginalText
    
    ' 定位光标并插入目标文本
    Me.EmailMessage.SelStart = vCursorPosition
    Me.EmailMessage.SelLength = vSelectionLength
    Me.EmailMessage.SelText = vMergeText
End Sub

补充说明 #

• LostFocus事件只会在文本框失去焦点时触发一次，彻底避免了修改文本时的事件循环问题。
• 使用.Value读写文本是Access控件操作的标准方式，兼容性和稳定性远高于.Text。

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