Stop if last record

rs.movefirst

do while not rs.eof
your code...
rs.movenext
loop

sorry....

Next button:
if not rs.eof then
rs.movenext
end if

Previous button:
if not rs.bof
rs.moveprevious
end if

Why can't I compile the code? I get the error "Compileringsfel, odefinierad variabel" and rs is highlited.

what do you call your recordset ?

rs should be replaced with the name of your recordset.....

??The name of the table is Bilar, which also is the name of the form.

can you show me the original code for each button ?

The original code for next is
DoCmd.GoToRecord , , acNext

hmm, try this:

Next button:
If not Me.RecordSet.EOF Then
DoCmd.GoToRecord , , acNext
end if

Previous button:
If not Me.RecordSet.BOF Then
DoCmd.GoToRecord , , acPrevious
end if

Følgende plejer jeg at bruge

dim rs as DAO.Recordset

set rs = Me.RecordsetClone

Derefter kan du køre inglenooks kode:

Next button:
if not rs.eof then
rs.movenext
end if

Previous button:
if not rs.bof
rs.moveprevious
end if

Er denne afprøvet:

Private Sub Form_Current()
If Me.NewRecord Then
DoCmd.GoToRecord acForm, "Grupper", acPrevious, 1
MsgBox "Du står på sidste post."
End If
End Sub

Eller denne, jeg kalder på frm's onCurrent. Den kræver:
Knap frem, knap tilbage, knap gå-til-sidste, knap gå-til-første, label til visning af nummer på valgt post.

Dim strRecordCount As String


cmdNew.Enabled = Me.AllowAdditions

'Ved ingen poster
  If Me.RecordsetClone.RecordCount = 0 Then
    cmdFirst.Enabled = False
    cmdNext.Enabled = False
    cmdPrevious.Enabled = False
    cmdLast.Enabled = False
    cmdDelete.Enabled = True
    lblPostNr.Caption = "<Ingen data>"
    Exit Sub
ElseIf Me.NewRecord Then
    cmdFirst.Enabled = True
    cmdPrevious.Enabled = True
    cmdNext.Enabled = False
    cmdLast.Enabled = False
    cmdNew.Enabled = True
    cmdDelete.Enabled = True
    lblPostNr.Caption = "<Ny post>"
    lblPostNr.FontBold = False
    Exit Sub
 
Else
    Me.RecordsetClone.MoveLast
    Me.RecordsetClone.MoveFirst
    Me.RecordsetClone.Bookmark = Me.Bookmark
    cmdFirst.Enabled = True
    cmdPrevious.Enabled = True
    cmdNext.Enabled = True
    cmdLast.Enabled = True
    cmdNew.Enabled = True
    cmdDelete.Enabled = True
    cboPost.Enabled = True

    strRecordCount = Me.RecordsetClone.AbsolutePosition + 1 & " af " & Me.RecordsetClone.RecordCount
    lblPostNr.Caption = strRecordCount

    'Next, we must see if we are on the first record
    'If so, we should disable the <Previous> button
    Me.RecordsetClone.MovePrevious
    cmdFirst.Enabled = Not (Me.RecordsetClone.BOF)
    cmdPrevious.Enabled = Not (Me.RecordsetClone.BOF)
    Me.RecordsetClone.MoveNext
   
    'And then check whether we are on the last record
    'If so, we should disable the <Next> button
    Me.RecordsetClone.MoveNext
    cmdNext.Enabled = Not (Me.RecordsetClone.EOF)
    cmdLast.Enabled = Not (Me.RecordsetClone.EOF)
    Me.RecordsetClone.MovePrevious
end if

I thank You all for intrest in my question, but I want to keep things as simple as possible. After thinking it throu i come upp with the following solution:
    If DCount("Nr", "Table", "Nr >Forms!Formname!Nr") = 0 Then
    msg "Detta är sista posten", vbCritical, "Sista posten!"
    Else
        DoCmd.GoToRecord , , acNext
    End If
No record can have a higher nbr than the last record.
I tryed different ways to use EOF but for some reason it did'nt work.
Thanks again.