如何实现键入客户代码跳出客户简称

在窗体的 '客户代码'文本框的 afterupdate事件中放入如下代码。
 
Private Sub 客户代码_AfterUpdate()
    Me.客户简称 = DLookup("客户简称", "客户代码参照表", "客户代码='" & Me.客户代码.Value & "'")
End Sub

 
其实，如果已经有 [客户代码参照表] 则从数据库设计的角度来说，在[运单录入表]中就不必要再有 [客户简称] 这个字段了，否则当  [客户代码参照表] 中的 客户简称 更改了，比如客户更名了，或者以前的名字输错了，你 [运单录入表]中的改还不不改 ?
 
把 [客户简称]  从  [运单录入表]去掉，然后做一个查询，这样什么代码都不用写了，当你输入 [客户代码] 后直接就跳出 [客户简称] 了。
 
 

---

******************
*   一切皆有可能   *
******************

QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access
http://www.accessbbs.cn/bbs/index.php
http://www.accessoft.com/bbs/index.asp
http://www.office-cn.net/vvb/?fromuid=141646
http://www.access-programmers.co.uk/forums

http://www.office-cn.net/home/space.php?uid=141646