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

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”，而只将表命名为“部分”，因为匈牙利表示法已经失去了当今许多程序员的青睐。