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

Question

对不起，我没有写任何代码，因为我从来没有在访问之前写过vba。我需要做的是在我的表单上有一个组合框自动填充，以节省一点时间，我有一个数据库，其中包括我们所有的部件，包括[部件编号][部件描述][std lbs] [std lbs/hr]其他几个参数，我只是好奇代码会是什么样子，我会把它放在哪里。我对面向对象的工作流程有很好的感觉，如果你能给我提供一些示例代码或一个很好的资源，我很可能能够从那里捡起。

thanks///matthew

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