http://www.accessoft.com/article-show.asp?id=5055
首记录按钮单击事件代码写:
DoCmd.Close
Forms!主窗体名!sfrList.Form.Recordset.MoveFirst
Call Form_主窗体名.btnEdit_Click
上一条按钮单击事件代码写:
DoCmd.Close
If Forms!主窗体名!sfrList.Form.CurrentRecord > 1 Then
Forms!主窗体名!sfrList.Form.Recordset.MovePrevious
Call Form_主窗体名.btnEdit_Click
End If
下一条按钮单击事件代码写:
DoCmd.Close
If Forms!主窗体名!sfrList.Form.CurrentRecord < Forms!主窗体名!sfrList.Form.Recordset.RecordCount Then
Forms!主窗体名!sfrList.Form.Recordset.MoveNext
Call Form_主窗体名.btnEdit_Click
End If
尾记录按钮单击事件代码写:
DoCmd.Close
Forms!主窗体名!sfrList.Form.Recordset.MoveLast
Call Form_主窗体名.btnEdit_Click