如何解决Microsoft Access/VBA中级联组合框文本框不自动刷新问题

问题分析 #

• Me.Refresh仅刷新当前记录的显示状态，不会重新从数据源加载新记录，因此选中新设备后无法触发文本框更新。
• Me.textField.Requery报错是因为文本框控件没有Requery方法，该方法仅适用于带有记录源的控件（如组合框、列表框）。

解决方案 #

根据文本框的绑定方式，选择对应处理方法：

方法1：文本框绑定到窗体记录源

如果文本框是绑定到窗体记录源（比如窗体基于设备表/查询，文本框直接绑定到宽度、长度等字段），可通过重新查询窗体并定位到选中设备来更新：

Option Compare Database

Private Sub cbProjectCode_AfterUpdate()
    Me.cbPackageNo.Requery
End Sub

Private Sub cbPackageNo_AfterUpdate()
    Me.cbEquipmentNo.Requery
End Sub

Private Sub cbEquipmentNo_AfterUpdate()
    ' 重新查询窗体记录源
    Me.Requery
    
    ' 定位到选中的设备记录
    Dim rs As Recordset
    Set rs = Me.RecordsetClone
    ' 替换为你的设备唯一标识字段名和组合框绑定列值
    rs.FindFirst "EquipmentNo = '" & Me.cbEquipmentNo.Value & "'"
    If Not rs.EOF Then
        Me.Bookmark = rs.Bookmark
    End If
    Set rs = Nothing
End Sub

方法2：文本框为未绑定状态

如果文本框未绑定，可直接从数据源查询对应字段值并赋值：

Option Compare Database

Private Sub cbProjectCode_AfterUpdate()
    Me.cbPackageNo.Requery
End Sub

Private Sub cbPackageNo_AfterUpdate()
    Me.cbEquipmentNo.Requery
End Sub

Private Sub cbEquipmentNo_AfterUpdate()
    Dim db As Database
    Dim rs As Recordset
    Dim strSQL As String
    
    Set db = CurrentDb
    ' 替换为你的设备表名、字段名和唯一标识字段
    strSQL = "SELECT 宽度, 长度, 电机功率 FROM 设备表 WHERE EquipmentNo = '" & Me.cbEquipmentNo.Value & "'"
    Set rs = db.OpenRecordset(strSQL)
    
    If Not rs.EOF Then
        Me.txt宽度.Value = rs!宽度
        Me.txt长度.Value = rs!长度
        Me.txt电机功率.Value = rs!电机功率
    Else
        ' 无匹配记录时清空文本框
        Me.txt宽度.Value = ""
        Me.txt长度.Value = ""
        Me.txt电机功率.Value = ""
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

注意事项 #

• 若EquipmentNo是数字类型，需去掉SQL语句中的单引号：WHERE EquipmentNo = " & Me.cbEquipmentNo.Value
• 确保cbEquipmentNo的绑定列是设备的唯一标识，避免匹配到多条记录。
• 替换代码中的表名、字段名、文本框名称为你数据库中的实际名称。

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