如何实现数据库记录查询，前一、后一，最前、最后按钮

朱欣辉　发表于：2017-11-03 08:52:44 　

Option Compare Database

Private Sub 后一_Click()
Dim mydata As Database
Dim RS As Recordset
Set mydata = CurrentDb

Set RS = mydata.OpenRecordset("员工资料", dbOpenDynaset)

RS.MoveNext
RS.Edit

Me.ID = RS("ID").Value
Me.工号 = RS("工号").Value
Me.姓名 = RS("姓名").Value
Me.备注 = RS("备注").Value

End Sub

Private Sub 前一_Click()
Dim mydata As Database
Dim RS As Recordset
Set mydata = CurrentDb

Set RS = mydata.OpenRecordset("员工资料", dbOpenDynaset)

RS.MovePrevious
RS.Edit

Me.ID = RS("ID").Value
Me.工号 = RS("工号").Value
Me.姓名 = RS("姓名").Value
Me.备注 = RS("备注").Value

End Sub

Private Sub 最后_Click()
Dim mydata As Database
Dim RS As Recordset
Set mydata = CurrentDb

Set RS = mydata.OpenRecordset("员工资料", dbOpenDynaset)


RS.Edit

Me.ID = RS("ID").Value
Me.工号 = RS("工号").Value
Me.姓名 = RS("姓名").Value
Me.备注 = RS("备注").Value

End Sub

Private Sub 最前_Click()
Dim mydata As Database
Dim RS As Recordset
Set mydata = CurrentDb

Set RS = mydata.OpenRecordset("员工资料", dbOpenDynaset)

RS.MoveFirst
RS.Edit

Me.ID = RS("ID").Value
Me.工号 = RS("工号").Value
Me.姓名 = RS("姓名").Value
Me.备注 = RS("备注").Value

End Sub

Top

MDZZ 发表于：2017-11-03 09:02:27

麻烦上附件

Top

朱欣辉发表于：2017-11-03 09:34:40

附件超2M上传不了

Top

朱欣辉发表于：2017-11-03 09:40:02

点击下载此附件

Top

MDZZ 发表于：2017-11-03 11:29:46

。。分卷了为什么只传1个。。

你这样肯定是错的啊打开记录集又不移到当前记录上一条下一条如何实现

Top

朱欣辉发表于：2017-11-03 22:46:50

点击下载此附件

Top

朱欣辉发表于：2017-11-03 22:47:55

请多多指教

Top

leoyoung 发表于：2017-11-09 10:39:53

首先，recordset记录集应当在窗体打开时就加载了

Dim mydata As Database
Dim RS As Recordset

Private Sub Form_Current()
Set mydata = CurrentDb
Set RS = mydata.OpenRecordset("员工资料", dbOpenDynaset)
      Me.ID = RS("ID").Value
      Me.工号 = RS("工号").Value
      Me.姓名 = RS("姓名").Value
      Me.备注 = RS("备注").Value

End Sub

其次，加入移出记录集时捕获的错误代码

Private Sub 后一_Click()

On Error Resume Next

    With RS
        .MoveNext
        If .EOF Then .MovePrevious
     .Edit

       Me.ID = RS("ID").Value
       Me.工号 = RS("工号").Value
       Me.姓名 = RS("姓名").Value
       Me.备注 = RS("备注").Value
     End With
  End Sub

最后，自己根据样本修改调试其他的代码，有问题另开贴提问。

Top

软件开发定制发表于：2017-11-13 17:11:00

QQ2776478814,问题解决了吗？你前面的代码不是挺好的吗？

Top

软件开发定制发表于：2017-11-13 17:36:19

点击下载此附件

Top

总记录：9篇页次：1/1 9 1 :

Access交流中心

如何实现数据库记录查询，前一、后一，最前、最后按钮