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

时　间:2017-11-13 19:14:37
作　者:软件开发定制   ID：64200  城市：金华
摘　要:如何实现数据库记录查询，前一、后一，最前、最后按钮
正　文:

模块代码：

Public Enum 位置Type
    最前
    前1
    后1
    最后
End Enum
'窗体代码

Option Compare Database
Dim RS As Recordset

Dim 位置Sz()
Private Sub Form_Current()
位置Sz = Array("最前", "前1", "后1", "最后")
Set RS = CurrentDb.OpenRecordset("员工资料", dbOpenDynaset)
End Sub
Sub 定位数据(ByVal 位置 As 位置Type)
On Error GoTo Err
Select Case 位置
Case 前1
    RS.MovePrevious
Case 后1
    RS.MoveNext
Case 最前
    RS.MoveFirst
Case 最后
    RS.MoveLast
End Select
      Me.ID = RS("ID").Value
      Me.工号 = RS("工号").Value
      Me.姓名 = RS("姓名").Value
      Me.备注 = RS("备注").Value
Exit Sub
Err:
MsgBox "【" & 位置Sz(位置) & "】出错：" & Err.Description
End Sub

Private Sub 上一条bt_Click()
定位数据 前1
End Sub

Private Sub 下一条bt_Click()
定位数据 后1
End Sub

Private Sub 最后bt_Click()
定位数据 最后
End Sub

Private Sub 最前bt_Click()
定位数据 最前
End Sub

图   示:

附   件:

点击下载此附件