Disable a command button when it reach the end of record 1

[cctrinh]

Hi,

I try to disable a command button when I get to the end of the record. The following is the code that I wrote. I declared the variable locally. Any help will be thankful.

Cal

Dim rst As Recordset
Dim dbs As Database
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblISstaff&quot
rst.MoveNext
If (rst.EOF) Then
Me.next.Enabled = False
End If

 

[ImpMan]

This works, courtesy of Access 97 VBA programming.

Private Sub Form_Current()
Dim rst As Recordset

Set rst = Me.RecordsetClone()

rst.Bookmark = Me.Bookmark

rst.movenext
If (rst.EOF) Then
Me.next.Enabled = False
Else
Me.next.Enabled = True
End If
End Sub

you may also need to check to see if there are any records first by doing:

if rst.recordcount= 0

'do something

else

'do the code above

end if

 

[cctrinh]

It Really works,

thank you very much. Your tip is very helpful.
Just have a question. Why do you use the recordsetclone?

appreciate your assistance.

 

[ImpMan]

It is meerly an alternative to using openrecordset(). The recordsetclone is a read only recordset that is copy of whatever recordset is behind your form.

Other bonus features are:
You also require less text to declare this recordset.
You do not need to change the recordset declaration if the table name that your form points to changes.