Помогите с MoveLast

[snaem]

Странно работает MoveLast

 Dim myRec As Recordset
   myRec_понятие.MoveLast

Но перемещается не на последнею запись, а останавливается на определенной записи

[Abrakadabra]

Сообщение от snaem

Странно работает MoveLast

 Dim myRec As Recordset
   myRec_понятие.MoveLast

Но перемещается не на последнею запись, а останавливается на определенной записи

myRec_понятие

(не по понятиям)

[snaem]

Некогда не занимался Access. Надо было сделать по быстрому простенькую базу. Сделал, но на последней проверке не пошло. Останавливается на одной строке, причем не на последней.

Sub вывод_последней()

Dim myBD As Database
Dim myRec As Recordset
Dim str As String 

 Set myBD = CurrentDb
 Set myRec = myBD.OpenRecordset("таблица1")

myRec.MoveLast 
 str = myRec!поле1 'последняя строка  
MsgBox  str 'вывод последний строки

End Sub

[дмидми]

После открытия рекордсета нужно указать индекс, в соответствии с которым будут отсортированы записи, например
myRec.Index = "PrimaryKey"
Пока индекс не задан, записи выводятся в произвольном порядке, и "последней" может оказаться любая.