Access中搜索与数据编辑表单创建问题求助

1. 表单结构设计 #

• 拆分表单为搜索区和数据编辑区：
  • 添加一个非绑定文本框（命名为txtECNSearch），用于输入要搜索的ECN#；再添加一个按钮（命名为btnSearch）触发搜索操作。
  • 其他需要编辑的字段使用绑定控件关联到Request Table的对应字段；ECN#字段添加绑定文本框，但设置为只读（防止误改主键）。

2. 编写搜索按钮的VBA代码 #

双击搜索按钮打开VBA编辑器，粘贴以下代码：

Private Sub btnSearch_Click()
    Dim strECN As String
    strECN = Nz(Me.txtECNSearch.Value, "")
    
    If strECN = "" Then
        MsgBox "请输入要搜索的ECN#", vbExclamation
        Exit Sub
    End If
    
    ' 定位匹配记录（ECN#为文本类型）
    Me.Recordset.FindFirst "[ECN #] = '" & strECN & "'"
    
    If Me.Recordset.NoMatch Then
        MsgBox "未找到对应ECN#的记录", vbInformation
        ' 如需新增记录，可取消注释以下代码
        ' Me.Recordset.AddNew
        ' Me![ECN #] = strECN
    End If
End Sub

若ECN#是数值类型，去掉代码中的单引号，修改为：Me.Recordset.FindFirst "[ECN #] = " & strECN

3. 调整表单记录源 #

直接将表单的记录源设置为Request Table即可，无需额外创建查询（如需筛选可后续添加简单查询，确保查询为可更新状态：不含聚合函数、未连接不可更新数据源）。

4. 配置ECN#控件属性 #

找到绑定ECN#的文本框，在属性表的数据选项卡：

• 将是否锁定设为是，可用设为否，既保留主键值显示，又避免误编辑。

5. 测试与保存 #

保存表单后，输入ECN#点击搜索按钮，找到目标记录后直接在绑定控件中修改其他字段，Access会自动保存修改内容；若未找到记录，可根据需求新增主键对应的记录。

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