Office中国论坛/Access中国论坛

标题: 求助：如何实现在窗体中输入客户代码或者客户关键字自动跳出客户全称？ [打印本页]

作者: Y9X 时间: 2009-3-2 16:51
标题: 求助：如何实现在窗体中输入客户代码或者客户关键字自动跳出客户全称？
我想在窗体录入数据时尽量提高录入速度，最好的办法我想应该是使用规范的代码，使很长的数据输几个字就可以跳出来。例如：客户名称很长而且经常重复录入，如果在窗体中输入客户代码或者客户名称的关键字就可以自动跳出客户全称，这样可以节约很多时间。哪位高手可以指导一下，谢谢了。

作者: todaynew 时间: 2009-3-2 20:26
本帖最后由 todaynew 于 2009-3-2 20:34 编辑

我想在窗体录入数据时尽量提高录入速度，最好的办法我想应该是使用规范的代码，使很长的数据输几个字就可以跳出来。例如：客户名称很长而且经常重复录入，如果在窗体中输入客户代码或者客户名称的关键字就可以自动跳 ...
Y9X 发表于 2009-3-2 16:51

[attach]36175[/attach]

[attach]36174[/attach]
Private Sub 客户_AfterUpdate()
Dim strdlp As String
strdlp = Nz(DLookup("[销售商]", "[客户资料]", "[销售商编码]='" & Me.客户 & "'"), "")
If Not strdlp = "" Then
Me.客户.Value = strdlp
End If
End Sub
[attach]36172[/attach]

说明：
1、目前采用的是输入销售商编码的更新后事件。

2、采用输入部分客户名称，从你的名单中看不能实现，因为有可能重名。如果换成组合框还有些办法。

作者: Henry D. Sy 时间: 2009-3-2 20:39
只要建立自动查阅列，不需要代码的

作者: chaojianan 时间: 2009-3-2 20:47
自动查阅列学习了。

作者: todaynew 时间: 2009-3-2 20:47

只要建立自动查阅列，不需要代码的
Henry D. Sy 发表于 2009-3-2 20:39

这个办法好！

作者: Y9X 时间: 2009-3-4 21:00
谢谢todaynew和henry两位前辈，让我学到两种解决问题的方法，太感谢了。

作者: Y9X 时间: 2009-3-4 21:02
等我学得差不多了，我也要到这里来帮助有需要的人解决问题

作者: 醉亦人生 时间: 2009-6-25 12:22
多谢前辈指点,

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)