EOF not working right for me

[LostAngel]

Hello, in my program I have a Next and Previous button. If for example I have 14 records in my access database, I want the next button to disable itself on the 14th record (or last one). I tried the following code but it does not disable itself until one after the last entry.

Private Sub cmdNext_Click()
    
    Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then
    cmdNext.enabled = false
End If
End Sub

I have also tried the following but it did not work:

Private Sub cmdNext_Click()
    
If Adodc1.Recordset.EOF = True Then
    cmdNext.enabled = false
else
Adodc1.Recordset.MoveNext
End If
End Sub

[mendhak]

If you don't include the "if" part, does it eventually give you an error? In other words, does it ever reach the EOF?

[Granty]

Private Sub cmdNext_Click()

Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then
cmdNext.enabled = false
Adodc1.Recordset.MoveLast

End If
End Sub

[LostAngel]

mendak, when I take away the If/Then statements, I get an error 'Compile Error: Cant assign to Read Only Property" If it is talking about my access file being Read-Only, it isn't.

Granty, I tried that code and it did not work, when I get to the last record, the cmdNext.enabled = true. If I push the button again, it will then make the button disabled.

[M Owen]

That is correct. When you're on the last/first record EOF/BOF are gonna be false ... You should try to implement a record count and perform your enable/disable using a record count and position ...