You could use an append query in your code.
CurrentDb.Execute "INSERT INTO CUSTOMERS ( LASTNAME, FIRSTNAME ) " _
& "VALUES( 'JOHN', 'SMITH')"
As far as the auto increment, if you set your sequence field's data type to
AutoNumber in the table, then it will automatically increase when you add a new
record with the above code.
May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us
----- Original Message ----
From: bryan.leggo <[EMAIL PROTECTED]>
To: [email protected]
Sent: Tuesday, November 20, 2007 3:53:04 PM
Subject: [ms_access] Created a new record, now how do I programmatically save
the data?
I would like the user to be able to click on a "New Record" button
and have it put a new record in the table with a few predefined
fields including the important one called "Sequence" which is a
simple incremental integer. The table is called "Donations". Here's
part of my code:
Private Sub cmdAddRecord_ Click()
On Error GoTo Err_cmdAddRecord_ Click
Dim nNextRec As Integer
DoCmd.GoToRecord , , acNewRec
nNextRec = ListBrowser. ListCount + 1
lblRow.Caption = Str(nNextRec)
' Here's the missing part. How do I assign values to
' a few of the fields/columns in the new record including
' the Sequence field and then how do I ensure that the
' entire record is saved to the table before I go to
' the next step and call the main editing form just below.
' I'm not even sure how to do the basic assignments.
' Is it dome with Form!ListBrowser. fieldname = value or
' do I reference the main table somehow? Donations.Sequence
' doesn't work. I know this is basic stuff but I'm stuck.
Call cmdEditDonations_ Click ' Detailed data entry form
Exit_cmdAddRecord_ Click:
Exit Sub
Err_cmdAddRecord_ Click:
MsgBox Err.Description
Resume Exit_cmdAddRecord_ Click
End Sub
____________________________________________________________________________________
Get easy, one-click access to your favorites.
Make Yahoo! your homepage.
http://www.yahoo.com/r/hs
[Non-text portions of this message have been removed]
