moving next recordset

[sexy_shot]

hello friends
i am devloping an application using ms-access database. I want to move next on the recordset.Please send me solution with source code. i am in hurry please send as much as possiable.


thanks
sexy shot :)

[sashi]

Hi there,

you are developing rite? am sure you done up with a little bit of coding work.. pls send you currently completed code segment to be validated.. we don't send code out just like that.. in here we help users to learn a better way of programming.. take care.. :)

[Ali Rizwan]

hello friends
i am devloping an application using ms-access database. I want to move next on the recordset.Please send me solution with source code. i am in hurry please send as much as possiable.


thanks
sexy shot :)

use this code

private sub()

if data.recordset.eof then
data.recordset.movefirst
else
data.recordser.movenext
 

[kinnu]

For next record

Private Sub Command1_Click()
Data1.Recordset.movenext.MoveNext
End Sub

In the same way for previous record Data1.Recordset.movenext.Moveprevious

For first rec: Data1.Recordset.movenext.Movefirst
For last rec: Data1.Recordset.movenext.Movelast

EOF is end of file and BOF is begin of file.

So you can code in the following way


Private Sub Command1_Click()
If Data1.Recordset.EOF Then
MsgBox "last record"
Else
Data1.Recordset.MoveNext
End If
End Sub

[kinnu]

Sorry the above was not properly sent:

For next record

Private Sub Command1_Click()
Data1.Recordset.movenext
End Sub

In the same way for previous record Data1.Recordset.Moveprevious

For first rec: Data1.Recordset.Movefirst
For last rec: Data1.Recordset.Movelast

EOF is end of file and BOF is begin of file.

So you can code in the following way


Private Sub Command1_Click()
If Data1.Recordset.EOF Then
MsgBox "last record"
Else
Data1.Recordset.MoveNext
End If
End Sub