Inserting a record & adjusting form?

[Just Me]

I'm trying to place an "ADD" button in a form to allow the user to add
records to a table. I'm using DAO. For some reason, the record gets
added, but the form doesn't point to it. In addition, the record
count doesn't seem to update on the screen.
===========================================
Private Sub bAdd_Click()
Dim strSQL As String
Dim rst As DAO.Recordset

strSQL = "Select * from Volunteers where NAME=""BLANK"""
Set rst = CurrentDb.OpenRecordset(strSQL)
rst.AddNew
rst.Update
rst.Bookmark = rst.LastModified
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Null
End Sub
============================================

Is there a simplier way to code this -- using DAO?

[Mike Storr]

There is nothing being added to the recordset! You have used AddNew and
Update consecutively, but have not set any field values in between - your
table may have some field requirements preventing the addition to the table.
If the user still has to enter the information, then the Update method has
to be invoked in a separate process. If the form is bound, then maybe just
use
DoCmd.GoToRecord acActiveDataObject, objectName, acNewRec ?

Mike Storr
www.veraccess.com
"Just Me" <z2****@hotmail.com> wrote in message
news:b9************************@posting.google.com ...

I'm trying to place an "ADD" button in a form to allow the user to add
records to a table. I'm using DAO. For some reason, the record gets
added, but the form doesn't point to it. In addition, the record
count doesn't seem to update on the screen.
===========================================
Private Sub bAdd_Click()
Dim strSQL As String
Dim rst As DAO.Recordset

strSQL = "Select * from Volunteers where NAME=""BLANK"""
Set rst = CurrentDb.OpenRecordset(strSQL)
rst.AddNew
rst.Update
rst.Bookmark = rst.LastModified
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Null
End Sub
============================================

Is there a simplier way to code this -- using DAO?

[Just Me]

Mike -

There are defaults set on all the necessary fields. Any idea how I
make the newly created record into the currentRecord?
"Mike Storr" <no****@somewhere.con> wrote in message news:<35*******************@news20.bellglobal.com> ...

There is nothing being added to the recordset! You have used AddNew and
Update consecutively, but have not set any field values in between - your
table may have some field requirements preventing the addition to the table.
If the user still has to enter the information, then the Update method has
to be invoked in a separate process. If the form is bound, then maybe just
use
DoCmd.GoToRecord acActiveDataObject, objectName, acNewRec ?

Mike Storr
www.veraccess.com
"Just Me" <z2****@hotmail.com> wrote in message
news:b9************************@posting.google.com ...

I'm trying to place an "ADD" button in a form to allow the user to add
records to a table. I'm using DAO. For some reason, the record gets
added, but the form doesn't point to it. In addition, the record
count doesn't seem to update on the screen.
===========================================
Private Sub bAdd_Click()
Dim strSQL As String
Dim rst As DAO.Recordset

strSQL = "Select * from Volunteers where NAME=""BLANK"""
Set rst = CurrentDb.OpenRecordset(strSQL)
rst.AddNew
rst.Update
rst.Bookmark = rst.LastModified
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Null
End Sub
============================================

Is there a simplier way to code this -- using DAO?

[Mike Storr]

On 13 Feb 2004 14:22:30 -0800, Just Me wrote:

Mike -

There are defaults set on all the necessary fields. Any idea how I
make the newly created record into the currentRecord?

The first thing I might try, is to do away with the SQL, and just use the
table name. Then, specify dbOpenDynaset for the type argument of
OpenRecordset. I'm wondering if you are creating a read-only rSet using
your current setup.

From the Access97 help files....
"Unlike dynaset- or snapshot-type Recordset objects, the table-type
Recordset object can't refer to more than one base table, and you can't
create it with an SQL statement that filters or sorts the data."

Which you are doing by using the WHERE statement.

--
Mike Storr
veraccess.com

[Peter Russell]

If you use the Button wizard to add the button it will do most of it for
you. It won't automatically save the empty record but I'm not sure why
you would want that anyway.

Peter Russell

Just Me previously wrote:

I'm trying to place an "ADD" button in a form to allow the user to add
records to a table. I'm using DAO. For some reason, the record gets
added, but the form doesn't point to it. In addition, the record
count doesn't seem to update on the screen.
===========================================
Private Sub bAdd_Click()
Dim strSQL As String
Dim rst As DAO.Recordset

strSQL = "Select * from Volunteers where NAME=""BLANK"""
Set rst = CurrentDb.OpenRecordset(strSQL)
rst.AddNew
rst.Update
rst.Bookmark = rst.LastModified
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Null
End Sub
============================================

Is there a simplier way to code this -- using DAO?