access 中4个文本框,希望在任意文本框中输入值后,另外3个文本框跳出相应的值。

access 中4个文本框,希望在任意文本框中输入值后,另外3个文本框跳出相应的值。我用了dlookup,但只能固定其中一个文本框输入,不理想。最好能再给一个按钮控件,我按下按钮后才有这个显示的动作。只有20分。。。小白怒求大神!!
比如说,有3个文本框,编号,名称,中文名称。我想要无论我知道其中哪个,都能查到另外两个

在ACCESS数据库中!有个“物料信息表”里面有“料号”“名称”“规格”“单位”这几个字段。有一个“入库”的窗体!里面也有这些信息。我想只要我输入“料号”。“名称”“规格”“单位”自动填充进去!并能保进“入库表”中!谢谢了!
以下我已测试过,可行。
1、就按你设置的内容,“入库”窗体有这些字段,当然“入库表”中也有这些字段。设置窗体的“数据”“记录源”为“入库表”,添加入库表的字段到窗体中,设置“料号”控件框的“更新后”事件如下:(这里,我假设“料号”是文本类型的)
Private Sub 料号_AfterUpdate()
Me.名称.Value = DLookup("[名称]", "物料信息表", "[料号]='" & Me.料号 & "'")
Me.规格.Value = DLookup("[规格]", "物料信息表", "[料号]='" & Me.料号 & "'")
Me.单位.Value = DLookup("[单位]", "物料信息表", "[料号]='" & Me.料号 & "'")
End Sub
如果,“料号”是数字类型,则如下:
Private Sub 料号_AfterUpdate()
Me.名称.Value = DLookup("[名称]", "物料信息表", "[料号]=" & Me.料号)
Me.规格.Value = DLookup("[规格]", "物料信息表", "[料号]=" & Me.料号)
Me.单位.Value = DLookup("[单位]", "物料信息表", "[料号]=" & Me.料号)
End Sub
当你更改料号后,随便单击其它的控制框,“名称”“规格”“单位”就能自动更新并填充进去!并能保进“入库表”中。追问

非常感谢,但按照你的程序来看,好像我输入的只能是料号吧,然后其余三个都会显示出来。我想要的是,我能在4个文本框中的任意一个输入,其余三个都会相应弹出来。不知道能不能做到?谢谢

追答

道理是一样的!在每个的“更新后”事件按上面这个去做主好了!

温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-10-11
有EXCEL来做,做函数,而后导入ACCESS
相似回答