按照姓进行筛选的思路:
1、做一个查询,返回所用的“姓”:SELECT Left([人员管理表]![姓名],1) AS 姓
FROM 人员管理表
GROUP BY Left([人员管理表]![姓名],1);
2、在组合框里面选择“姓”,然后在其change或者afterupdate事件中刷新子窗体,条件是姓名的第一个字符等于所选择的“姓”
窗体上加上这个代码确出现错误
Private Sub 姓_AfterUpdate()
Me.人员ID.RowSource = "SELECT 人员ID,姓名 FROM 人员管理表 WHERE 姓名 Like '" & Me.姓.Value & "*'" & " GROUP BY 人员ID,姓名"
Me.人员ID.SetFocus
Me.人员ID.Dropdown
Call 筛选
End Sub