模块代码:
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
图 示:
附 件:
点击下载此附件