Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

Access问答 → vba自动检索功能

vba自动检索功能

海田　 发表于：2013-05-26 09:57:08 　
复制

请问高手，在access07版的窗体输入界面中，如何用vba实现，自动检索功能？比如已设好一张表，有“员工姓名”与“工号”一一对应，在窗体输入“工号”，自动带出对应的“员工姓名”。谢谢！

 

Top
煮江品茶 发表于：2013-05-26 10:55:36
http://www.accessoft.com/article-show.asp?id=5141

 



Top
沧海桑田 发表于：2013-05-26 15:18:29

老师您好！看了您的回复，还是没有达到我想要的答案，要求是在输入“工号”后，自动弹出对应的“员工姓名”。能不能再提供帮助，谢谢！



Top
殷小宝 发表于：2013-06-11 16:25:58

其中方法之一：

在工号更新后事件中写上下列代码:

me.员工姓名=dlookup("员工姓名","员工表","工号='" & Me.工号 &"'")



Top
沧海桑田 发表于：2013-06-13 14:30:17

生产报表

老师，我用了上面的代码，但是还是实现不了在窗体输入“工号”后，自动带出姓名，同样还有输入“产品号后”，自动带出“产品名称”“规格型号”“颜色”。请老师帮帮我，谢谢了！



Top
麥田 发表于：2013-06-15 19:51:44
输入编码带出资料例子
http://www.accessoft.com/article-show.asp?id=3499

Top
麥田 发表于：2013-06-15 19:51:55
获取组合框里指定列的数据示例
http://www.accessoft.com/article-show.asp?id=5825

Top
hongyin 发表于：2013-06-15 21:04:05
点击下载此附件

Top
hongyin 发表于：2013-06-17 10:04:56


Private Sub 产品号_AfterUpdate()
    Me.产品名称 = DLookup("产品名称", "产品表", "产品号='" & Me.产品号 & "'")
    Me.规格型号 = DLookup("规格型号", "产品表", "产品号='" & Me.产品号 & "'")
    Me.产品名称 = DLookup("产品名称", "产品表", "产品号='" & Me.产品号 & "'")
End Sub


Private Sub 工号_AfterUpdate()
'注意，工号字段类型是数字，如果是文本，就要Me.姓名 = DLookup("姓名", "员工表", "工号='" & Me.工号 &"'")
    Me.姓名 = DLookup("姓名", "员工表", "工号=" & Me.工号)
End Sub



Top
沧海桑田 发表于：2013-06-17 17:05:27

急呀！不知是不是我的电脑有问题，加入以上代码还是运行不了，再试试看。



Top
沧海桑田 发表于：2013-06-18 12:06:04

非常感谢各位老师的热心指导！问题以解决，但代码还是不会用,需继续努力。



Top
总记录：10篇  页次：1/1 9 1 :

Access软件网 版权所有 CopyRight 2006-2030
上海盟威软件有限公司 提供支持
沪ICP备12024966号-4