访问 VBA 基于组合框导航到记录

Question

想象一个表（tblEmployee）设置如下：

1. EmpID(PrimaryKey)
2. EmpName(ShortText)
3. EmpNo(ShortText)
4. EmpPhoto（附件）

在表单上，​​我希望能够从 Combobox(EmpName) 中选择员工姓名，以便其他控件更新并向我显示所选员工的编号和照片。

我已经制作了一个表格（frmEmployee）并将记录源选择为：

  SELECT tblEmployee.* FROM tblEmployee;

并通过“添加现有字段”选项卡将所有字段添加到表单中。然后，我将 textbox(EmpName) 更改为具有两列的组合框，第一列的宽度为零，并将 Row Source 更改为：

SELECT tblEmployee.ID, tblEmployee.EmpName
FROM tblEmployee;

因此用户可以查看和选择任何员工的姓名，而无需处理主键 (EmpID)。 还有combobox(EmpName)的afterUpdate事件是这样的：

    Private Sub EmpName_AfterUpdate()
' Find the record that matches the control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & Str(Nz(Me![EmpName], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

这为我提供了我想要的功能，而且每当我从组合框中选择另一个员工姓名时，当前员工的姓名都会更新为新选择的员工的 ID(EmpID)。

如何解决这个问题？还有其他更快更好的方法吗？

Answer 1

只需使用未绑定的组合框。

要解除当前组合框的绑定，只需删除 Control Source 属性即可。

Answer 2

由于您通过添加现有字段构建表单，然后将 EmpName 更改为 ComboBox，因此 ComboBox 仍然绑定到数据库中的员工姓名！！

我的意思是，如果您显示 John Smith 的记录并在组合框中选择“Peter Griffin”，那么您只是将 John 的名字更改为“Peter Griffin”。您所追求的功能已经很好地内置在 Access 中。这是执行此操作的“标准”方式...

1) 创建一个表单（这将是一个子表单）。叫它frmEmployeeDetail。将Record Source 指定为tblEmployee，并像以前一样将所有员工字段添加到其中。

2) 现在创建一个未绑定的表单（Record Source 的 nothing 表单）。将您的 ComboBox 添加到其中。将Row Source 设置为像以前一样显示名称，但将Control Source 留空！您不希望此 ComboBox 更改任何基础数据。你只是想让它坐在那里，现在看起来很漂亮。确保将Bound Column 设置为1。这样组合框的“值”就是您选择的任何名称的EmpID。将组合框命名为 cmbEmpID。

3) 在您刚刚创建的未绑定表单上，添加一个子表单（这将是您在步骤 1 中创建的表单）。对于Source Object，请输入frmEmployeeDetail。对于Link Master Fields 输入cmbEmpID。对于Link Child Fields，请输入EmpID。

现在，每当您在 ComboBox 上选择一个名称时，它会将 cmbEmpID 的值设置为您刚刚选择的任何员工 ID。由于您将其链接到子表单，因此子表单将显示与 ComboBox 匹配的任何数据（因为这是子表单所做的......）

就格式而言，您可以从子表单中删除边框等，并轻松地将其融合到“主”表单中，使其看起来像一个不错的表单。最好的部分：全部内置。没有代码。