Access选择组合框的值自动填充文本框

2017-12-12 16:27:00
黄善超
原创
1125

前面我们讲过很多示例都会用到Dlookup来获取所选择的相关值。

比如下面的示例,在窗体2中添加,组合框名为“combo0”,“姓名”文本框名为“Text2”,“性别”文本框名为“Text4”“职务”文本框名为“Text6”


我们选择工号后,自动填充,该工号的姓名,性别和职务

1、可以使用Dlookup函数

 Me.Text2 = DLookup("姓名", "员工信息", "工号='" & Me.Combo0 & "'")
 Me.Text4 = DLookup("性别", "员工信息", "工号='" & Me.Combo0 & "'")
 Me.Text6 = DLookup("职务", "员工信息", "工号='" & Me.Combo0 & "'")


2、使用Column函数

设置组合框的行来源为所有需要获取的字段,列数为4

SELECT 员工信息.工号, 员工信息.姓名, 员工信息.性别, 员工信息.职务
FROM 员工信息;


详细源码:
Private Sub Combo0_AfterUpdate()
    Me.Text2 = Me.Combo0.Column(1)
    Me.Text4 = Me.Combo0.Column(2)
    Me.Text6 = Me.Combo0.Column(3)
    
End Sub
    分享