Access 2007表单：未绑定文本框中备注字段被截断问题求助

我之前也碰到过这个闹心的问题！Access里的备注字段确实容易在组合框这类控件里被截断成255字符，哪怕用记录集操作如果没找对方法也没用。下面给你几个靠谱的解决思路：

方法1：用DLookup直接从表提取完整备注 #

这是最省心的方式，核心逻辑是：让组合框只绑定记录的主键（别把备注字段放进组合框的数据源里），然后在组合框的AfterUpdate事件中，用DLookup函数直接从原表中拉取对应主键的完整备注内容，赋值给未绑定文本框。

示例VBA代码（假设主键是数字类型）：

Private Sub cboYourComboBox_AfterUpdate()
    ' 替换成你的备注字段名、表名、主键字段名和组合框名称
    Me.txtUnboundNotes = DLookup("备注字段", "你的表名", "主键字段 = " & Me.cboYourComboBox.Value)
End Sub

如果主键是文本类型，记得给值加上单引号：

Private Sub cboYourComboBox_AfterUpdate()
    Me.txtUnboundNotes = DLookup("备注字段", "你的表名", "主键字段 = '" & Me.cboYourComboBox.Value & "'")
End Sub

方法2：用DAO记录集直接读取原表数据 #

如果你更习惯用记录集操作，一定要注意：别基于组合框的数据源查询创建记录集（因为那个查询已经被组合框控件截断了），而是直接从原表创建记录集，读取完整的备注字段：

Private Sub cboYourComboBox_AfterUpdate()
    Dim rs As DAO.Recordset
    ' 直接从原表查询对应记录的备注字段
    Set rs = CurrentDb.OpenRecordset("SELECT 备注字段 FROM 你的表名 WHERE 主键字段 = " & Me.cboYourComboBox.Value)
    
    If Not rs.EOF Then
        Me.txtUnboundNotes = rs!备注字段
    Else
        ' 未找到对应记录时的处理
        Me.txtUnboundNotes = ""
    End If
    
    rs.Close
    Set rs = Nothing
End Sub

为什么之前的方法失效？ #

你提到的SQL截断或记录集方式没用，大概率是因为你用的记录集是基于组合框的数据源查询——而组合框控件本身会把备注字段截断为255字符，所以哪怕从这个记录集读取，拿到的也是截断后的内容。必须绕开组合框的数据源，直接从原表获取数据才行。

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