Is there a way to bind the ms access record selector to an unbond text control.

[Adnan Halai]

Hi basically I want to use the ms access forms record selector to navigate records in an unbound text control. Is there a way of doing this?

[Rabbit]

I'm assuming you're talking about an unbound and not just an unbound text box. You'll have to create your own navigation buttons. Using an unbound form to navigate a recordset is completely antithetical to what it's supposed to be used for.

[Adnan Halai]

Hi Rabbit, thanks for your response. Infact, I did just that but now I am stuck with a little problem can't seem to get out of.
I am using Access 2007 BTW. Using VBA I am able to navigate the records with my own custom navigation button, but the problem is that to navigate i am using recordset.clone. The problem with this method is that suppose I am on a field called ID which has the value of 5. Then when I click on the New button I add 1 to last value that is on the table MyDetails & save the record. But when I navigate using move previous ( for instance ) in my custom navigation the record jumps to ID 4 when infact it should have gone back 1 record say e.g. ID 31. How can I correct this. Here is my code. Can you tell what I am doing wrong here.

Private Sub cmdSave_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("MyDetails", dbOpenDynaset)

With rs
'Set the Index
.FindFirst "ID = " & txtID
If rs.NoMatch Then
.AddNew
!ID = txtID
!FirstName = txtFirstName
!FirstName = txtFirstName
!LastName = txtLastName
Age = txtAge
.Update
MsgBox "" & rs.AbsolutePosition
Else
.Edit
!ID = txtID
!FirstName = txtFirstName
!FirstName = txtFirstName
!LastName = txtLastName
!Age = txtAge
.Update
End If
End With

'rs.Bookmark = rs.LastModified
Me.txtFirstName.SetFocus

End Sub


Private Sub cmdMovePrevious_Click()
On Error Resume Next

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.Bookmark = rs.LastModified

If rs.BOF Then
rs.MoveFirst
'DoCmd.RunCommand (acCmdRecordsGoToPrevious)
Exit Sub
Else
rs.MovePrevious
End If


txtID.Value = rs!ID
txtFirstName.Value = rs!FirstName
txtLastName.Value = rs!LastName
txtAge.Value = rs!Age

Set rs = Nothing

End Sub