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

Question

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

Answer 1

在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个文本框中的任意一个输入，其余三个都会相应弹出来。不知道能不能做到？谢谢

追答

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

Answer 2

有EXCEL来做，做函数，而后导入ACCESS