ADO Controls help

[anonymous]

[Originally posted by V. Sastry]

I am using a ado contol to connect to a MS Access database.ÿ How do i reset and goÿ back to the previous/last record in the data base after creating a new record using the addnew method, without saving changes in the current record?

[anonymous]

[Originally posted by remus bodean]

A simple exemple:
You need 1 form with 2 command buttons named command1 with "add new" caption, command2 with "Cancel" caption and disabled, an ado control named adcodc1 ( bound to eg Northwind , cmdTable - table Employers , of course in design mode) and 3 text boxes, text1, text2, text3 with data source set to adodc1 and datafields set to lastname, firstname and birthdate ( in design mode ). Here it is the code:

dim bmk

Select Case Command1.Caption
Case "add new"
ÿ ÿ Command1.Caption = "save"
ÿ ÿ bmk = Adodc1.Recordset.Bookmark
ÿ ÿ 'unbind the text boxes
ÿ ÿ Set Text1.DataSource = Nothing
ÿ ÿ Set Text2.DataSource = Nothing
ÿ ÿ Set Text3.DataSource = Nothing
ÿ ÿ Text1 = "": Text2 = "": Text3 = "": Command2.Enabled = True

Case "save"
ÿ ÿ If Not IsDate(Text3) Then Exit Sub
ÿ ÿ With Adodc1.Recordset
ÿ ÿ ÿ ÿ .AddNew
ÿ ÿ ÿ ÿ .Fields("LastName").Value = Text1
ÿ ÿ ÿ ÿ .Fields("FirstName").Value = Text2
ÿ ÿ ÿ ÿ .Fields("BirthDate").Value = Text3
ÿ ÿ ÿ ÿ .Update
ÿ ÿ End With
ÿ ÿ Command1.Caption = "add new"
ÿ ÿ Command2.Enabled = False
ÿ ÿ 'rebind the text boxes
ÿ ÿ Set Text1.DataSource = Adodc1
ÿ ÿ Set Text2.DataSource = Adodc1
ÿ ÿ Set Text3.DataSource = Adodc1
End Select
End Sub

Private Sub Command2_Click()
ÿ ÿ Set Text1.DataSource = Adodc1
ÿ ÿ Set Text2.DataSource = Adodc1
ÿ ÿ Set Text3.DataSource = Adodc1
ÿ ÿ Adodc1.Recordset.Bookmark = bmk
ÿ ÿ Command1.Caption = "add new"
ÿ ÿ Command2.Enabled = False
End Sub