网站公告
·Access快速平台QQ群号:189307860    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > access数据库-窗体/数据页

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

时 间: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

图   示:


附   件:

点击下载此附件



Access软件网QQ交流群 (群号:232776913)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助