用按钮在窗体中按指定字段查找记录

例一：
Private Sub 查找记录_Click()
On Error GoTo Err_查找记录_Click
''指定字段名称[学生编号]
DoCmd.GoToControl "学生编号"
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_查找记录_Click:
Exit Sub

Err_查找记录_Click:
MsgBox Err.Description
Resume Exit_查找记录_Click

End Sub

例二
Private Sub 按毕业时间查找_Click()
On Error GoTo 按毕业时间查找_Click_Err
''在窗体中按基础表的参数筛选
DoCmd.ApplyFilter "", "Left([学生基本情况]![学生编号],4)+6=[请输入学生毕业年份(四位数)]"


按毕业时间查找_Click_Exit:
Exit Sub

按毕业时间查找_Click_Err:
MsgBox Error$
Resume 按毕业时间查找_Click_Exit

End Sub