Ms access 通过“零件号”文本框自动填写零件说明
很抱歉,我没有编写任何代码,因为我以前从未在access中编写过vba。我需要做的是在我的表格上有一个自动填充的组合框来节省一点时间。我有一个数据库,里面有我们所有的零件,包括[零件号][零件说明][标准磅][标准磅/小时]和其他一些参数。我只是好奇代码会是什么样子,我会把它放在哪里。我对oop工作流有很好的感觉,如果你能给我提供一些示例代码或很好的资源,我很可能会从那里学到Ms access 通过“零件号”文本框自动填写零件说明,ms-access,combobox,vba,autofill,iif-function,Ms Access,Combobox,Vba,Autofill,Iif Function,很抱歉,我没有编写任何代码,因为我以前从未在access中编写过vba。我需要做的是在我的表格上有一个自动填充的组合框来节省一点时间。我有一个数据库,里面有我们所有的零件,包括[零件号][零件说明][标准磅][标准磅/小时]和其他一些参数。我只是好奇代码会是什么样子,我会把它放在哪里。我对oop工作流有很好的感觉,如果你能给我提供一些示例代码或很好的资源,我很可能会从那里学到 谢谢///matthew使用零件号文本框的AfterUpdate事件。您的代码应该如下所示: Private Sub t
谢谢///matthew使用零件号文本框的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
有几件事我想记下来。我建议您命名字段时不要使用空格或符号,最好不要使用复数。如果我设置这个表,它会像这样:
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”,因为匈牙利符号已经失去了当今许多程序员的青睐。太棒了,这是一个很大的帮助。非常感谢,事情不再那么模糊了:D