about Database record please help me

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!

Edit: wrong answer

Quote:

---

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

Code:

---


'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

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

Private Sub nextrecord_Click()

rs.MoveNext :o "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

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

:(

i forgot...

VB Code:

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

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

Set db = CurrentDb()

message:"no function or sub was defined!":rolleyes:

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

Sorry to waste yer time.

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?
:-)