企业一般会给企业的销售商编制代码(本例是数字型的编码),来完成录入。但若编码忘了,就需打开销售商档案去查它的代码来录。下面的例子是您可录入代码,也可录入销售商的关键字通过程序来完成录入。
Private Sub 销售商编码_AfterUpdate() On Error Resume Next If IsNumeric(Me.销售商编码) = False Then Me.销售商编码 = DLookup("[销售商编码]", "销售商", "[销售商] like '*" & Me.销售商编码 & "*'") End Sub
如康嘉电脑公司的代码是:0105 您可在“销售商编码”的文本框中输入:0105 也可录入“康嘉”来达到。 需注意的是“销售商编码”须是文本型字段。 若“销售商编码”是组合框的话,应选“不限于列表”。
|