access修改窗体加'首记录，上一条、下一条，尾记录'按钮的实现方法

时　间:2016-09-21 11:20:22
作　者:仙来   ID：30269  城市：池州
摘　要:Access开发平台--修改窗体加'上一条、下一条'按钮的实现方法

正　文:

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