目的

写入供应商名称，自动弹出供应商代码，然后将该条记录增加到表中

方法

在供应商名称的属性表写，不是供应商代码的属性表

在事件过程中写入-
Private Sub 供应商名称_AfterUpdate()
Me.供应商代码.Value = DLookup(“供应商代码”, “Q_供应商名单”, “供应商名称=’” & [供应商名称] & “’”)
End Sub

供应商代码的属性表不用改！