访问 - 如果字段更改，则自动更改表中的字段

Question

假设我有一张带有id，pre-和lastname的表。我让它们在表格中作为组合框工作。现在，如果我用组合框更改1个字段（比如说id），我希望所有其他内容也改变（pre和lastname）。如何实现（使用宏或vba，还是更容易）？

Answer 1

我解决了。我做了一个子公式。然后我设法下拉了我想要的字段。复制同一个表以查找名称ID ... 然后我创建了一个更新后的事件：

Private Sub PartnerIdServiceWorker_AfterUpdate()

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb

Set rst = dbs.OpenRecordset("SELECT * FROM HTB WHERE PartnerIdServiceWorker = " & PartnerIdServiceWorker)

Do While Not rst.EOF
    Me.AnredeMitarbeiter = rst!AnredeMitarbeiter
    Me.VornameMitarbeiter = rst!VornameMitarbeiter
    Me.NachnameMitarbeiter = rst!NachnameMitarbeiter
    Exit Do
    rst.MoveNext
Loop

rst.Close
Set rst = Nothing

现在我可以更改表格中的字段，其他值也会更改。