通过部件号文本框自动填充部件说明

Question

抱歉，我没有写任何代码，因为我之前从未写过vba。我需要做的是在我的表格上有一个组合框自动填充以节省一点时间我有一个数据库，其中包含[零件编号] [零件描述] [标准磅] [标准磅/小时]的一些零件其他参数我只是好奇代码会是什么样子以及我会把它放在哪里。我对oop工作流程有一个很好的感觉，如果你可以提供一些示例代码或一个很好的资源，我很可能从那里拿起。

谢谢///马修

Answer 1

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

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