Question

access中，在一个窗体内，从一个列表框（客户名称）选中一个，在若干个文本框中显示客户的其它信息，

access中，在一个窗体内，从一个列表框（客户名称）选中一个，在若干个文本框中显示客户的其它信息，该如何实现啊

Answer 1

假设客户表结构如下：

客户（客户名称，地址，电话，邮箱）

新建一个窗体，布局见附图

添加 4个文本框 分别命名为：客户名称 、地址、电话和邮箱，1个列表框 命名为List4

窗体的数据源设置为表“客户”，4个文本框分别与对应的字段绑定

列表框的行来源属性设置为：    SELECT 客户.客户名称 FROM 客户; 

 

为列表框添加下列更新后事件过程：

Private Sub List4_AfterUpdate() 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[客户名称] = '" & Me![List4] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    If Me.客户名称 <> Me![List4] Then
       Me.List4.Value = False
    End If
End Sub

 

添加下列窗体成为当前事件过程：

Private Sub Form_Current()
    If Me.客户名称 <> Me![List4] Then
        Me.List4.Value = False
    End If
End Sub

 

添加下列窗体更新后事件过程：

Private Sub Form_AfterUpdate()
    Me.List4.Requery
End Sub

 

好了到此大功告成！每选中列表框一个客户名称，窗体随即显示该客户所有详细资料。

运行效果如图