子窗体中的最后一条记录如何判断？

kingorwell　发表于：2016-03-18 23:05:07 　

我在员工简历窗体中有上图那样的一个子窗体，个别情况下用VBA无法定位到最后一条记录，比如上图中我用了如下语句：

Private Sub Form_Current()
On Error GoTo Err_Form_Current
Dim rst As ADODB.Recordset
     Set rst = New ADODB.Recordset
With rst
     .ActiveConnection = CurrentProject.Connection
     .CursorType = adOpenKeyset
     .LockType = adLockOptimistic
     .Open "select * from 员工岗位历史 where 员工编号='" & Me.[员工编号] & "'"
     'rst.Update
     rst.MoveLast
     If rst.EOF = True Then
     GoTo Err_Form_Current
     End If
     Me.职位 = rst![职位]
'Me.RecordSource = "select * from 员工岗位历史 where 员工编号='" & Me.[员工编号] & "'"
End With
Exit Sub
Err_Form_Current:
    MsgBox Err.Description
End Sub

但是到这位特定员工的岗位历史记录时，movelast的结果始终是546序号的那条，而不是554那条，我已经加入了序号为主键，但毫无用处，请问为什么？

Top

金宇发表于：2016-03-19 08:42:15

你在子窗体的当前事件中使用以下的语句

Private Sub Form_Current()
DoCmd.GoToRecord , , acLast
End Sub

Top

kingorwell 发表于：2016-03-20 10:45:50

谢谢金宇提供的思路，我已经在员工岗位历史数据表中把序号设置成主键，然后SQL语句中加入了order by条件，问题终于解决了。

.Open "select * from 员工岗位历史 where 员工编号='" & Me.[员工编号] & "' order by [序号] asc"

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

子窗体中的最后一条记录如何判断？