BOF EOF (2000)

Topic

New Reply

Paul: BOF is true when the current position is before the first record in the recordset, not at the first record. HTH.

Reply | Quote

Replies

Hi, I have had a search thorugh previous posts but cant seem to find a solution to my ignorance!

I am trying to disable / enable my custom command button record selectors depending on whether my form is displaying the 1st or last record. I thought that the following would return true if i was at the first record.

debug.print me.recordsetclone.BOF

but it doesnt.

I have a form whose record source is a query, and have used the wizard to create next / prev record selectors. Why doesnt the BOF return true when i open the form or go to the first record?

thanks

Reply | Quote

Hi, I have had a search thorugh previous posts but cant seem to find a solution to my ignorance!

I am trying to disable / enable my custom command button record selectors depending on whether my form is displaying the 1st or last record. I thought that the following would return true if i was at the first record.

debug.print me.recordsetclone.BOF

but it doesnt.

I have a form whose record source is a query, and have used the wizard to create next / prev record selectors. Why doesnt the BOF return true when i open the form or go to the first record?

thanks

Reply | Quote

Thanks, I see.

After a bit of thought and trial and error…I used this code which works fine !!

Sub cmdRecordSelectors()
With Me.Recordset
Select Case .AbsolutePosition
Case 0
Me.cmdPrev.Enabled = False
Me.cmdNext.Enabled = True
Case .RecordCount – 1
Me.cmdNext.Enabled = False
Me.cmdPrev.Enabled = True
Case Else
Me.cmdPrev.Enabled = True
Me.cmdNext.Enabled = True
End Select
End With
End Sub

Reply | Quote

Thanks, I see.

After a bit of thought and trial and error…I used this code which works fine !!

Sub cmdRecordSelectors()
With Me.Recordset
Select Case .AbsolutePosition
Case 0
Me.cmdPrev.Enabled = False
Me.cmdNext.Enabled = True
Case .RecordCount – 1
Me.cmdNext.Enabled = False
Me.cmdPrev.Enabled = True
Case Else
Me.cmdPrev.Enabled = True
Me.cmdNext.Enabled = True
End Select
End With
End Sub

Reply | Quote