Next Record safety

[Jaap]

Hello, I'm working with Record Numbers, it is possible to make a Message Box warning "You are on the last record?" when I'm on the Last Record, but even then click on Next Record?

Example of the last part, but I'm missing the start of it.
MsgBox "You are at the last record?"
DoCmd.CancelEvent
Else
DoCmd.GoToRecord , , acNext 'Go to next record
End If

Regards,


Jaap

[Bulzie]

Maybe just let the "next" button error code take care of it but create your own message. Something like:

Private Sub Next_Click()
On Error GoTo Next_Click_Err

DoCmd.GoToRecord , "", acNext

Next_Click_Exit:
Exit Sub

Next_Click_Err:
Msgbox "You are on the last record."
Resume Next_Click_Exit

End Sub

[Jaap]

Maybe just let the "next" button error code take care of it but create your own message

Thank you, I've tried your example, but at the last Record, and then click on Next Record, he's going further, without warning.

Private Sub VolgendRecord_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Next_Click_Err
DoCmd.GoToRecord , "", acNext
Next_Click_Exit:
Exit Sub
Next_Click_Err:
MsgBox "You are on the last record."
Resume Next_Click_Exit
End Sub

Sorry, Dutch language


Is there anything to do with this data?

[Bulzie]

Try this in your Sub:

Private Sub Next_Click()
On Error GoTo Next_Click_Err

If Me.CurrentRecord = 1 Then

'First record
DoCmd.GoToRecord , "", acNext

Else

If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then

'Last Record
MsgBox "Last record"

Else

'not first or last
DoCmd.GoToRecord , "", acNext

End

End If

End If

Next_Click_Exit:
Exit Sub

Next_Click_Err:
MsgBox Error$
Resume Next_Click_Exit

[HiTechCoach]

Also check out this example of record navigation buttons: http://www.lebans.com/recnavbuttons.htm

[Jaap]

Try this in your Sub:

Thank you very much Bulzie, it's working now very well. :-)

Here the result!


I would like to know what the meaning of Me.RecordsetClone.RecordCount is please?

If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then

'Last Record
MsgBox "Last record"

Regards,
Jaap

[Jaap]

Also check out this example of record navigation buttons: http://www.lebans.com/recnavbuttons.htm

Thank you, I'm working with MS Office 2016


Jaap

[Bulzie]

If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then

The CurrentRecord is the value of the record in the navigation part at the bottom of the form so is 1 if you are on the first record and 50 if you have 50 records and are on the last record, etc.
Me.RecordsetClone.RecordCount: RecordsetClone is your forms records and when you add RecordCount, that is the total number of those records so would be the number 50 if you have 50 records displaying on the form.

So when those 2 values are equal, you are on the last record.

[Jaap]

Ok Bulzie, thanks for the clear explanation.

Regards,
Jaap

[HiTechCoach]

Thank you, I'm working with MS Office 2016


Jaap

Staring with Access 2013, it willno longer open a Access 97 database. It will open an Access 2000 (2K) or later version.

You should be able to open the Access 2000 (A2K) version. It is the top link.

[Jaap]

You should be able to open the Access 2000 (A2K)  version. It is the top link.

Thank you HiTechCoach, I've tried several times, but I can't fix it
I can not find a properly tutorial in YouTube as well.
With Access help I found this, but I can't open the old A97NavButtonsver6.mdb file


Regards,
Jaap

[HiTechCoach]

You should be able to open the Access 2000 (A2K)  version. It is the top link.

Thank you HiTechCoach, I've tried several times, but I can't fix it
I can not find a properly tutorial in YouTube as well.
With Access help I found this, but I can't open the old A97NavButtonsver6.mdb file


Regards,
Jaap

You can open the A97NavButtonsver6.mdb with Acess 2013 or later.

Did you try the A2kNavButtonsver7.mdb? That is the one that works with Aces 2013 and later.

A2KRecordNavigationButtons is an MDB containing code to replace the standard Navigation Buttons. The custom buttons exactly emulate the standard navigation bar including the autorepeat property. A2K or higher! Modified by MVP Graham Mandeno to work properly with multiple SubForm configurations.

[Jaap]

Thank you HiTechCoach, now I can open the "A2KNavButtonsver7.mdb" file.

Regards,
Jaap.