我需要以这样的方式链接我的表:当有人在我的表中输入邮政编码时,县和地区字段将从单独的表中自动填充。我认为我可以通过查找功能实现这一目标,但我必须在某处搞砸了。
将以下代码用于标题为基于专业更新的专业代码的单独字段。
Private Sub SpecialtyCode_BeforeUpdate(Cancel As Integer)
Me.SpecialtyCode.Value = DLookup("[HSD_Code]", "Crosswalk_ProviderHSD",
"[Specialty] = Me.Specialty.Value")
End Sub
答案 0 :(得分:0)
在afterupdate事件中编写代码。在Me.Specialty.Value
Private Sub SpecialtyCode_AfterUpdate(Cancel As Integer)
Me.SpecialtyCode.Value = DLookup("[HSD_Code]", "Crosswalk_ProviderHSD",
"[Specialty] = '" & Me.Specialty.Value & "'")
End Sub
答案 1 :(得分:0)
假设您的邮政编码来自列表,为什么不将它们放入组合框中,并将您需要的其他两个字段作为隐藏列引入。
然后只需将其他值设置为更新后事件中的隐藏列。