以下我已测试过,可行。
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
当你更改料号后,随便单击其它的控制框,“名称”“规格”“单位”就能自动更新并填充进去!并能保进“入库表”中。
2、另外要说的是,你的“入库表”中“料号”肯定是主键吧, 你的“入库表”中只要有“料号”字段即可,不应当设置“名称”“规格”“单位”这些字段,这样是冗余的,不符合规范设计。
温馨提示:答案为网友推荐,仅供参考