Record information in a label and disabling buttons by code.

[iProRyan]

Hi Guys,

How would I go about some VBA code to say "Record X of Y" I know I can do this by showing the Record Selectors in Access but I do not want to, also is it possible to disable my next button when it gets to Record X of X (5 of 5 - they're the same) and the same for previous button?

Thanks,


Ryan

[Robeen]

You want your Previous button disabled when you reach X of X?

You could try putting this:
= Count([Primary_Key_Field])
in the Record Sorce Property of the Text Box.
That would give you the Max number of records in the Form's recordset . .

Here's a site that tackles this:
http://www.tek-tips.com/viewthread.cfm?qid=1280490

Hope this helps!

[ssanfu]

I modified the code from "TheAccess Web" at http://access.mvps.org/access/forms/frm0026.htm

Private Sub Form_Current()
   If Me.NewRecord Then
      Me!lblNavigate.Caption = "New Record"
   Else
      With Me.RecordsetClone
         .Bookmark = Me.Bookmark
         Me!lblNavigate.Caption = "Record " & .AbsolutePosition + 1 & " of " & .RecordCount

         'disable next button if at last record
         Me.btnNext.Enabled = ((.AbsolutePosition + 1) <> .RecordCount)
         
         'disable previous button if at first record
         Me.btnPrev.Enabled = ((.AbsolutePosition + 1) <> 1)

      End With

   End If
End Sub