How to make a notifications when going to the last record or back to the first record

[uronmapu]

Dear all,

How to make a notifications when going to the last record or back to the first record

Previous Button is ok

Private Sub gotoPrevious_Click() 
On Error GoTo Err_gotoPrevious_Click         
With Me.lstItems       
.SetFocus       
If .ListIndex < .ListCount Then          
.ListIndex = .ListIndex - 1          
MsgBox "First Contact", , "First Contact"       
End If    
End With 
Exit_gotoPrevious_Click:    
Exit Sub 
Err_gotoPrevious_Click:    
'MsgBox Err.Description    
'MsgBox "End the Record"    
Resume Exit_gotoPrevious_Click 
End Sub

Next button not ok

Private Sub gotoNext_Click()  
On Error GoTo Err_gotoNext_Click    
With Me.lstItems       
.SetFocus     
If .ListIndex < .ListCount Then         
.ListIndex = .ListIndex + 1         
'MsgBox "End the Contact", , "End the Contact"          
End If    
End With Exit_gotoNext_Click:    
Exit Sub Err_gotoNext_Click:     
MsgBox Err.Description    
Resume Exit_gotoNext_Click 
End Sub

[June7]

Why doesn't it work - error message, wrong results, nothing?

[uronmapu]

It's back to first record ...

[June7]

Okay, it's back to first record, what's wrong with that - error message, wrong results, nothing?

Have you step debugged?

[uronmapu]

Many Thanks,

Don't have any error but i want when click next button to last record will be message: This is Last Record

[June7]

What are these buttons for? I originally thought they were for navigating between records of a form but on second look appears you are moving between items of a list box? Why a button for that?

Provide a complete description of what you want to accomplish, what you have tried, and the issues you have encountered.

[uronmapu]

I have a next record as image below:



I'm using code below, it's cant stop at last record

Private Sub gotoNext_Click()
 On Error GoTo Err_gotoNext_Click

   With Me.lstItems
      .SetFocus
      If .ListIndex < .ListCount Then
         .ListIndex = .ListIndex + 1
      End If
    
   End With

Exit_gotoNext_Click:
   Exit Sub

Err_gotoNext_Click:
   'MsgBox Err.Description
   Resume Exit_gotoNext_Click
End Sub

[June7]

Still not understanding the behavior. Is lstItems a listbox? How does referencing that listbox control record navigation? Want to provde project for analysis? Follow instructions at bottom of my post.

[uronmapu]

It's lstItems a listbox ....

[June7]

That doen't answer my question about how listbox controls record navigation. I have never encountered this technique before. If you won't explain it or provide the project, I can't help.

[uronmapu]

Done

Share code below for all

Private Sub gotoNext_Click()
On Error GoTo Err_gotoNext_Click
    
   With Me.lstItems
      .SetFocus
      If [lstItems].
[ListIndex] + 1 < [lstItems].
[ListCount] - 1 Then
         .ListIndex = .ListIndex + 1
         ElseIf [lstItems].
[ListIndex] + 1 = [lstItems].
[ListCount] - 1 Then
         MsgBox "End the Record"
         
      End If
   End With
Exit_gotoNext_Click:
   Exit Sub
Err_gotoNext_Click:
   'MsgBox Err.Description
   'MsgBox "End the Record"
   Resume Exit_gotoNext_Click
End Sub