==首先要建一个含有全部人员信息(含导演字段)的窗体,并且可以单独运行。
==在另外一个窗体中调用这个窗体,包含2个过程,1.打开那个人员窗体;2.运用查询语句,大致是这样:
Private Sub Command1_Click()
Dim temptxt
temptxt = [姓名] '这个是你当前窗体上显示的一个字段
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 '刷新窗体
Dim strDocName As String
Dim strFilter As String
strDocName = "人员窗体" '这个窗体必须存在才行
DoCmd.OpenForm strDocName
'下面是查询语句
Forms!人员窗体.RecordSource = "select * from [人员表] where [姓名] = '" & temptxt & "'ORDER BY [ID] asc"
End Sub
温馨提示:答案为网友推荐,仅供参考