Access点击按钮后,打开一个新的窗体,并且显示对应数据怎么弄?
1个回答
展开全部
==首先要建一个含有全部人员信息(含导演字段)的窗体,并且可以单独运行。
==在另外一个窗体中调用这个窗体,包含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
==在另外一个窗体中调用这个窗体,包含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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询