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

前面我们讲过很多示例都会用到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