ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2636|回复: 7

[求助]请教如何实现选择输入

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-12-28 10:11 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

在向access录入数据时,如何实现逐层选择输入

工厂按合同送货,有合同号,产品名称,规格,长度,表面颜色,数量等项目

如何实现在选择(下拉列表)或输入合同号后,在其它输入位置的下拉列表中只显示该合同中的项目,选择产品名称后,其它项目的输入位置的下拉列表中只显示该合同该规格的项目,如此一层层的都在合同中有的范围内选择,当数量超出合同规定一定比例后,提示警告

请高手指点

TA的精华主题

TA的得分主题

发表于 2006-12-28 10:36 | 显示全部楼层

也許下面這段代碼對你有些幫助

Dim strsql As String
Dim txtname As String
If IsNull(txtfield) Or Len(txtfield) < 2 Then Exit Sub
txtvalue = ""
Me.txtvalue.RowSource = ""
txtname = txtfield.Column(1)
strsql = "select " & txtname & " from tablename group by " & txtname & ""
txtvalue.RowSource = strsql

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-12-28 13:47 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-12-28 17:39 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助


    如何根据组合框的输入,确定另外一个控件的值?《控件》
    http://access911.net/index.asp?u1=a&u2=72FAB01E10DCEEF3

 --911--

TA的精华主题

TA的得分主题

发表于 2006-12-28 18:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
也在做这样的东西。

TA的精华主题

TA的得分主题

发表于 2006-12-30 08:25 | 显示全部楼层


    如何根据组合框的输入,确定另外一个控件的值?《控件》
    http://access911.net/index.asp?u1=a&u2=72FAB01E10DCEEF3

 --911--

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-12-30 09:14 | 显示全部楼层
QUOTE:
以下是引用cg1在2006-12-30 8:25:26的发言:


    如何根据组合框的输入,确定另外一个控件的值?《控件》
    http://access911.net/index.asp?u1=a&u2=72FAB01E10DCEEF3

 --911--

这个只能控制另外一个,如何控制多个呢,随已选择的项目的增多,可供选择的都是可选的,即每个下拉列表的源之间建立联系,不是彼此孤立的

Gg4FY6Hs.rar (1.77 KB, 下载次数: 10)

TA的精华主题

TA的得分主题

发表于 2007-1-1 22:07 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

这个只能控制另外一个--------学会举一反三

知道方法后要学会运用,否则就等着别人帮你做一切事情吧

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-16 06:03 , Processed in 0.045664 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表