通过零件编号文本框自动填充零件描述

Question

抱歉，我没有编写任何代码，因为我以前从未在 access 中编写过 vba。我需要做的是在我的表单上有一个组合框自动填充以节省一些时间其他参数我只是好奇代码会是什么样子以及我会把它放在哪里。如果您可以为我提供一些示例代码或一个好的资源，我很可能会从那里获取信息，我对 oop 工作流程有很好的感觉。

谢谢 /// 马修

Answer 1

使用部件号文本框的更新后事件。您的代码应如下所示：

Private Sub txtPartsNumber_AfterUpdate()
    If IsNull(Me.txtPartsNumber) = False Then
        Me.txtPartsDescription = Nz(DLookup("[Parts Description]", "tblParts", "[Parts Number] = '" & Me.txtPartsNumbers & "'"), "")
    End If
End Sub

我想注意几点。我建议您在命名字段时不要使用空格或符号，最好不要使用复数形式。如果我设置这个表，它看起来像这样：

tblpart
--partno
--partdesc
--stdlbs
--stdlbshr

您可以不使用“tbl”，而只将表命名为“part”，因为匈牙利表示法已经失去了当今许多程序员的青睐。