Private Sub Command17_Click()
'关闭报表
DoCmd.Close acReport, "按学号查询学生信息 报表"
'打开报表
DoCmd.OpenReport "按学号查询学生信息 报表", acViewPreview, " ", "[学号]='" & 学号.Value & "'", acNormal
End Sub
Private Sub Command25_Click()
DoCmd.SearchForRecord acDataForm, Me.Name, acFirst, "学号='" & 学号.Value & "'"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024