制作输入界面，客户编号和客户名称，怎样点击客户编号后自动带出客户信息，也要做到选择客户名称时自动带出客户编号，这个怎么实现，请教各位大侠

oracle　发表于：2016-09-16 19:22:08 　

复制

有两个表，一个是输入信息表，一个是客户信息表，现在要制作一个手工单输入界面，字段《客户编号》和字段《客户名称》，怎样点击客户编号后自动带出客户名称，也要做到选择客户名称时自动带出客户编号，这个怎么实现，请教各位大侠。

点击下载此附件

Top

爱吉瑞发表于：2016-09-17 07:12:22

dlookup

Top

KevinFan 发表于：2016-09-17 09:09:09

最简单用VBA更新后代码实现：

Private Sub 客户编号_AfterUpdate()

Me.客户名称 = 客户编号.Column(1)
End Sub

Private Sub 客户名称_AfterUpdate()
Me.客户编号 = 客户名称.Column(1)

End Sub

当然Dlookup也是可以实现的。

Private Sub 客户编号_AfterUpdate()
Me.客户名称 = DLookup("客户名称", "客户信息表", "客户编号='" & 客户编号 & "'")
End Sub

Private Sub 客户名称_AfterUpdate()
Me.客户编号 = DLookup("客户编号", "客户信息表", "客户名称='" & 客户名称 & "'")
End Sub

点击下载此附件

Top

yuhong 发表于：2016-09-17 09:21:09

Private Sub 客户编号_AfterUpdate()
Me.客户名称 = DLookup("客户名称", "手工单", "客户编号='" & Me.客户编号 & "'")
End Sub

Private Sub 客户名称_AfterUpdate()
Me.客户编号 = DLookup("客户编号", "手工单", "客户名称='" & Me.客户名称 & "'")
End Sub

点击下载此附件

Top

朱先生发表于：2016-09-17 12:09:16

用 Filter or Recordset.FindFirst 超简单

2003打不开文件，也就不回复示例了

已经有四种方法供选择使用

Top

oracle 发表于：2016-09-17 20:53:22

谢谢大家

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

制作输入界面，客户编号和客户名称，怎样点击客户编号后自动带出客户信息，也要做到选择客户名称时自动带出客户编号，这个怎么实现，请教各位大侠