如何实现数据库记录查询,前一、后一,最前、最后按钮-软件开发定制
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


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

发表时间:2017/11/13 19:14:37 评论(1) 浏览(8050)  评论 | 加入收藏 | 复制
   
摘 要:如何实现数据库记录查询,前一、后一,最前、最后按钮
正 文:
模块代码:

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

图   示:


附   件:

点击下载此附件


Access软件网交流QQ群(群号:198465573)
 
 相关文章
[示例]添加记录默认上一条记录、默认前一条数据、默认前一项值  【竹笛  2008/7/13】
[Access示例]Access新增记录时复制上一条记录的示例\具...  【竹笛  2008/9/8】
用命令按钮实现子窗体里数据'首记录,上一条,下一条,尾记录'的方法  【麥田  2011/3/25】
【译文】当前值与前一条记录的值的比较(相同字段)  【周芳  2012/4/13】
用书签属性实现上一条,下一条记录  【殷小宝  2013/4/5】
首记录,上一条,下一条,尾记录  【小英  2013/4/24】
【Access源码示例】跳转到指定记录数示例,含首记录,上一条,下...  【麥田  2016/1/21】
常见问答
技术分类
相关资源
文章搜索
关于作者

软件开发定制

文章分类

文章存档

友情链接