about Database record please help me

[flyflydream2002]

Example:
Private Sub nextrecord_Click()
Dim rs As Recordset
strsql = "select username from regedit "
Set rs = db.OpenRecordset(strsql)
rs.MovePrevious
txtFields.Text = rs.Fields(0).Value
End Sub

If I click nextrecord command I can get the second record. If I click it again.I can't get the third record.So how to write these code ?
Thank u!

[mendhak]

Edit: wrong answer

[mendhak]

Originally posted by flyflydream2002
Example:
Private Sub nextrecord_Click()
Dim rs As Recordset
strsql = "select username from regedit "
Set rs = db.OpenRecordset(strsql)
rs.MovePrevious
txtFields.Text = rs.Fields(0).Value
End Sub

If I click nextrecord command I can get the second record. If I click it again.I can't get the third record.So how to write these code ?
Thank u!

OK, the following should be OUTSIDE this particular sub

'probably in form load event
        Dim rs As Recordset
        strsql = "select username from regedit "
        Set rs = db.OpenRecordset(strsql)

Private Sub nextrecord_Click()
rs.movenext
if rs.eof then
rs.movelast
end if
txtFields.Text = rs.Fields(0).Value
End Sub

HTH

[amitabh]

Create the variable in the General declaration section of the form.

[flyflydream2002]

Private Sub nextrecord_Click()

rs.MoveNext "there is a mistake,message:"no with variable"
If Not rs.EOF Then
rs.MoveNext
txtFields.Text = rs.Fields(0).Value
End If


End Sub

[flyflydream2002]

Create the variable in the General declaration section of the form.


__________________
Amitabh Kant //////
I had done it.
example:
Option Explicit
Const DBName As String = "\db197.mdb"
Dim strPath As String
Dim db As Database
Dim strsql As String
Dim blnview As Boolean
Dim rs As Recordset

[mendhak]

i forgot...

Option Explicit 
Const DBName As String = "\db197.mdb" 
Dim strPath As String 
Dim db As Database 
Dim strsql As String 
Dim blnview As Boolean 
Dim rs As Recordset 
 
Private Sub Form_load()
set rs = new recordset
        strsql = "select username from regedit "
        Set rs = db.OpenRecordset(strsql)
 
end sub
 
 
Private Sub nextrecord_Click()
rs.movenext
if rs.eof then
rs.movelast
end if
txtFields.Text = rs.Fields(0).Value
End Sub

[flyflydream2002]

set rs = new recordset/////////message:"invalidation use new keys.

[mendhak]

Set db = CurrentDb()

[flyflydream2002]

message:"no function or sub was defined!"

[mendhak]

http://www.vbsquare.com/databases/learndb/

Sorry to waste yer time.

[flyflydream2002]

no matter.
thank u very much.
I had seen that an article,But I don't know how to do it yet.
So can you tell me about it detailly?
:-)