office交流網(wǎng)--QQ交流群號及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

微信交流群(請用微信掃碼)

        

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

2017-12-12 16:27:00
tmtony8
原創(chuàng)
13406

前麵我們講過很多示例都會用到Dlookup來穫?cè)∷x擇的相關(guān)值。

比如下麵的示例,在窗體2中添加,組閤框名爲(wèi)“combo0”,“姓名”文本框名爲(wèi)“Text2”,“性彆”文本框名爲(wèi)“Text4”“職務(wù)”文本框名爲(wèi)“Text6”


我們選擇工號後,自動填充,該工號的姓名,性彆和職務(wù)

1、可以使用Dlookup函數(shù)

 Me.Text2 = DLookup("姓名", "員工信息", "工號='" & Me.Combo0 & "'")
 Me.Text4 = DLookup("性彆", "員工信息", "工號='" & Me.Combo0 & "'")
 Me.Text6 = DLookup("職務(wù)", "員工信息", "工號='" & Me.Combo0 & "'")


2、使用Column函數(shù)

設(shè)置組閤框的行來源爲(wèi)所有需要穫?cè)〉淖侄?,列?shù)爲(wèi)4

SELECT 員工信息.工號, 員工信息.姓名, 員工信息.性彆, 員工信息.職務(wù)
FROM 員工信息;


詳細(xì)源碼:
Private Sub Combo0_AfterUpdate()
    Me.Text2 = Me.Combo0.Column(1)
    Me.Text4 = Me.Combo0.Column(2)
    Me.Text6 = Me.Combo0.Column(3)
    
End Sub
    分享
    文章分類
    聯(lián)繫我們
    聯(lián)繫人: 王先生
    Email: 18449932@qq.com
    QQ: 18449932
    微博: officecn01
    移動訪問