Access選擇組閤框的值自動填充文本框

2017-12-12 16:27:00
tmtony8
原創
3035

前麵我們講過很多示例都會用到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
    分享