Add a new record to an access table

[pogindo]

Hi.
I am trying to write a code to add a new record to a table e.g. After
enter record one on the click of the add new button i move to record
two.
Private Sub Add_new_Click()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
Set con = CurrentProject.Connection
strSQL = "SELECT * FROM SampleRequest"
Set rs = New ADODB.Recordset
rs.Open strSQL, con, adOpenDynamic, adLockOptimistic
With rs
.AddNew
.MoveLast
End With
'MsgBox "All phones have been set to ""None""."

End Sub
This is the code it increment the auto number but my screen still
shows the previous entry, but if i scroll through i can see it has
incremented the auto number. Can someone please show what I am not
doing right.
Thanks.

 

[Alex Dybenko]

Hi,
You moving recordset to last record, but not the form. I think you need to
requery form and then move to last record:

With rs
..AddNew
..MoveLast
End With


Me.requery
docmd.GoToRecord,,acLast

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com