我按照你这里改了以后还是不行，其实他可以保存数据，但是当再次打开的时候是无法显示部门和姓名的，需要重新选择部门，然后才会显示姓名，另外代码中的“姓名”应该改为“员工ID”，麻烦你再看一下。谢谢。
1--------
Private Sub Command23_Click()
On Error GoTo err_command23_click
Dim strTemp As String
'strTemp = 员工ID.Value
'原理很简单，先将控件值赋值给变量
'然后在添加记录后再将该变量值赋值给控件
DoCmd.GoToRecord , , acNewRec
'员工ID.Value = strTemp ‘这里注释掉了，因为没有“姓名”这个对象，也不知道什么目的
Exit_Command23_Click:
Exit Sub
err_command23_click:
MsgBox Err.Description
Resume Exit_Command23_Click
End Sub
4楼 得分: 0
2---------
Private Sub Combo0_AfterUpdate()
'Me.Refresh ’这里也注释掉，就可以正常保存了，不知道这一句是什么目的？
Me.list2.RowSource = "SELECT 员工资料.员工ID as 员工编号, 员工资料.姓名 as 员工姓名 " _
& "FROM 员工资料 " _
& "WHERE 员工资料.部门ID = '" & Me.Combo0.Column(1) & "'"
Debug.Print Me.list2.RowSource
Me.list2.Requery
End Sub4楼 得分: 0
2---------
Private Sub Combo0_AfterUpdate()
'Me.Refresh ’这里也注释掉，就可以正常保存了，不知道这一句是什么目的？
Me.list2.RowSource = "SELECT 员工资料.员工ID as 员工编号, 员工资料.姓名 as 员工姓名 " _
& "FROM 员工资料 " _
& "WHERE 员工资料.部门ID = '" & Me.Combo0.Column(1) & "'"
Debug.Print Me.list2.RowSource
Me.list2.Requery
End Sub
2---------
Private Sub Combo0_AfterUpdate()
'Me.Refresh ’这里也注释掉，就可以正常保存了，不知道这一句是什么目的？
Me.list2.RowSource = "SELECT 员工资料.员工ID as 员工编号, 员工资料.姓名 as 员工姓名 " _
& "FROM 员工资料 " _
& "WHERE 员工资料.部门ID = '" & Me.Combo0.Column(1) & "'"
Debug.Print Me.list2.RowSource
Me.list2.Requery
End Sub
