Hiding a 'next record' button when at the end of the records 1

[leaners]

I have a button which takes you to the next record.
I want it to disappear when the user looks at the last record.

But I also want the last record to not be a blank record, so that the user is forced to use my other button which adds a new record.

I also have a button which takes you to the previous record and i want to to disappear when the user looks at the first record.

My form name is Customer, my next record button is named Command31 and my previous record button is named Command32.

Seems simple enough but impossible for a beginner. Please help.

 

[Remou]

It is best to give controls names that mean something, so in this idea, I have called the command button for the next record, cmdNext, and for the previous record, cmdPrevious.

Private Sub Form_Current()
    Dim lngCurrRec As Long
    Dim lngRecCount As Long
    
    'Get the last record.
    Me.RecordsetClone.MoveLast

    'Get the current record.
    Me.RecordsetClone.Bookmark = Me.Bookmark

    'Store the information
    lngCurrRec = Me.RecordsetClone.AbsolutePosition + 1
    lngRecCount = Me.RecordsetClone.RecordCount
    
    'Hide or show the buttons according to the position.
    Me.cmdPrev.Visible = (lngCurrRec > 1)
    Me.cmdNext.Visible = (lngCurrRec < lngRecCount)

End Sub

You will need to set Allow Additions to No (False), to prevent people adding records, and only set it to Yes (True) when someone clicks the proper button. You may also with to set Cycle to Current Record.

 

[leaners]

Thanks, it works for one of the forms, but when i try use it on another of my forms there is an error. If i wanted to use the code in 2 of my forms what should i do?

 

[Remou]

What is the error?

 

[leaners]

Sorry to bother you it works fine now

 

[Remou]

No problem. It is not complete code, just a snippet. For example, there is no error checking and:
[tt]'Get the last record.
Me.RecordsetClone.MoveLast[/tt]
Will cause an error if there are no records.

 

[TheAceMan1]

How are ya leaners . . .

Here's my version of controlling the buttons. In the [blue]On Current[/blue] event of the form, copy/paste the following:

[blue]   If Me.CurrentRecord = Me.Recordset.RecordCount Then
      Me![purple][b]NextButtonName[/b][/purple].Enabled = False
   Else
      Me![purple][b]NextButtonName[/b][/purple].Enabled = True
   End If

   If Me.CurrentRecord = 1 Then
      Me![purple][b]PrevButtonName[/b][/purple].Enabled = False
   Else
      Me![purple][b]PrevButtonName[/b][/purple].Enabled = True
   End If[/blue]

I'll try to sneak in the [blue]Add Button[/blue] at work later today . . .

See Ya! . . . . . .

 

[leaners]

The add button would be a nice addition

 

[TheAceMan1]

leaners . . .

To remove the new record line set the forms [blue]Allow Additions[/blue] property to [blue]Yes[/blue] . . .

See Ya! . . . . . .