Question

我的目标是根据专业领域的条目更新专业代码字段。例如，如果他们选择Nurse Practitioner，我希望专业代码字段自动更新为000。

我使用了以下代码，但无济于事：

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

HSD Code是我想要的专业代码，人行横道是我想要参考的表。

我想对邮政编码的县和地区数据做同样的事情。我知道我的代码是错的。什么是正确的语法？有没有更有效的方法来实现这个目标？

Answer 1

您无法在自己的 BeforeUpdate 事件中更新该字段。你的DLookup语法错了。

试试这个：

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

那就是说，听听有关查询的评论。

VBA代码更新访问中的字段

1 个答案: