MS Access表单文本字段去除换行符及现有方案问题求助

我明白你遇到的两个核心问题：一是焦点跳转到文本框时原有内容被误删，二是无法去除粘贴文本中的换行符。下面给你一套更可靠的解决方案，分步骤来：

1. 修复KeyPress事件的误删问题 #

你的KeyPress代码逻辑本身没问题，但可能是焦点跳转时的回车事件被错误捕获导致了内容丢失。我们可以调整代码逻辑，只拦截用户主动输入的回车/换行，不干扰正常的焦点切换。另外先把文本框的EnterKeyBehavior属性设为False（这会让回车直接跳转到下一个控件，而非在文本框内换行），再配合修改后的KeyPress代码：

Private Sub SingleLineTextBox_KeyPress(ByRef KeyAscii As Integer)
    ' 仅阻止用户手动输入的回车(13)和换行(10)，不影响焦点切换
    Select Case KeyAscii
        Case 10, 13
            KeyAscii = 0 ' 取消当前按键输入
            ' 可选：如果想让回车直接跳转到下一个控件，可添加这句
            ' SendKeys "{TAB}"
    End Select
End Sub

同时确认文本框的MultiLine属性设为False，这本身就会限制用户输入换行，和代码配合更稳妥。

2. 彻底处理粘贴文本中的换行符 #

你的替换代码只覆盖了vbCrLf（Windows标准换行），但粘贴的文本可能只包含vbCr（旧Mac换行）或vbLf（Unix/Linux换行）。我们可以在文本框内容更新前统一清理所有类型的换行符，用BeforeUpdate事件最合适——不管是输入还是粘贴的内容，都会在存储前被处理：

Private Sub SingleLineTextBox_BeforeUpdate(Cancel As Integer)
    Dim cleanedText As String
    cleanedText = Me.SingleLineTextBox.Value
    
    ' 依次替换所有类型的换行符
    cleanedText = Replace(cleanedText, vbCrLf, "")
    cleanedText = Replace(cleanedText, vbCr, "")
    cleanedText = Replace(cleanedText, vbLf, "")
    
    ' 将清理后的内容赋值回文本框
    Me.SingleLineTextBox.Value = cleanedText
End Sub

这个事件会在用户离开文本框（比如按回车、切换到其他控件）时触发，自动清理所有换行符，用户在输入过程中也能实时看到最终的存储效果。

3. 额外优化：粘贴后实时预览效果 #

如果想让用户粘贴后立刻看到清理后的内容，不用等到离开控件，可以添加Change事件（注意要避免无限循环）：

Private Sub SingleLineTextBox_Change()
    Static isUpdating As Boolean
    If isUpdating Then Exit Sub ' 防止重复触发Change事件
    
    isUpdating = True
    Dim cleanedText As String
    cleanedText = Me.SingleLineTextBox.Value
    
    cleanedText = Replace(cleanedText, vbCrLf, "")
    cleanedText = Replace(cleanedText, vbCr, "")
    cleanedText = Replace(cleanedText, vbLf, "")
    
    If Me.SingleLineTextBox.Value <> cleanedText Then
        Me.SingleLineTextBox.Value = cleanedText
        ' 把光标移到文本末尾，避免用户输入时光标跳走
        Me.SingleLineTextBox.SelStart = Len(cleanedText)
    End If
    isUpdating = False
End Sub

这个代码会在文本框内容变化时（包括粘贴）立刻清理换行符，同时用Static变量防止循环触发，还优化了光标位置，提升用户体验。

最终步骤总结 #

1. 把文本框的MultiLine设为False，EnterKeyBehavior设为False
2. 添加KeyPress事件阻止手动输入换行
3. 添加BeforeUpdate事件确保最终存储内容无换行
4. 可选添加Change事件实现实时预览效果

这样就能完美解决你的问题，既不会误删原有内容，又能彻底清理所有换行符，让用户随时看到最终的存储效果。

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