Microsoft Access使用表作为字段的引用

时间:2016-11-29 16:39:05

标签: database ms-access access-vba relational-database

我需要以这样的方式链接我的表:当有人在我的表中输入邮政编码时,县和地区字段将从单独的表中自动填充。我认为我可以通过查找功能实现这一目标,但我必须在某处搞砸了。

将以下代码用于标题为基于专业更新的专业代码的单独字段。

Private Sub SpecialtyCode_BeforeUpdate(Cancel As Integer)
Me.SpecialtyCode.Value = DLookup("[HSD_Code]", "Crosswalk_ProviderHSD", 
"[Specialty] = Me.Specialty.Value")
End Sub

2 个答案:

答案 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)

假设您的邮政编码来自列表,为什么不将它们放入组合框中,并将您需要的其他两个字段作为隐藏列引入。

然后只需将其他值设置为更新后事件中的隐藏列。