Option Compare Database
Private Sub 后一_Click()
Dim rs As New ADODB.Recordset
rs.Open "员工资料", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveNext
'RS.Edit
Me.ID = rs("ID").Value
Me.工号 = rs("工号").Value
Me.姓名 = rs("姓名").Value
Me.备注 = rs("备注").Value
End Sub
Private Sub 前一_Click()
Dim rs As New ADODB.Recordset
rs.Open "员工资料", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MovePrevious
'RS.Edit
Me.ID = rs("ID").Value
Me.工号 = rs("工号").Value
Me.姓名 = rs("姓名").Value
Me.备注 = rs("备注").Value
End Sub
Private Sub 最后_Click()
Dim rs As New ADODB.Recordset
rs.Open "员工资料", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveLast
'RS.Edit
Me.ID = rs("ID").Value
Me.工号 = rs("工号").Value
Me.姓名 = rs("姓名").Value
Me.备注 = rs("备注").Value
End Sub
Private Sub 最前_Click()
Dim rs As New ADODB.Recordset
rs.Open "员工资料", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
'RS.Edit
Me.ID = rs("ID").Value
Me.工号 = rs("工号").Value
Me.姓名 = rs("姓名").Value
Me.备注 = rs("备注").Value
End Sub
最前、最后可以，前一、后一还是存在问题
