[AccessD] Autonumber when?

When you set your recordset are you using the dbSeeChanges option?

You're code should look something like this:
	dim db as database
	dim rs as recordset
	
	set db=CurrentDB()
	set rs = db.openrecordset("tblName", dbOpenDynaset,
dbSeeChanges)

	With rs
           .AddNew
           !PLSL_IDPLSUSR = mlngIDUser
           !PLSL_FE = CurrentProject.Name
           !PLSL_Login = blnLogIn
           !PLSL_WorkstationID = CurrentMachineName()
	     .Update
           .BookMark = .LastModified	
           mlngLogID = !PLSL_ID
           .Close
       End With
    

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
Sent: Wednesday, April 06, 2011 5:10 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Autonumber when?

Thanks Rusty, but that didn't seem to do anything either.  This was a
new record created.

John W. Colby
www.ColbyConsulting.com

On 4/6/2011 12:02 AM, Rusty Hammond wrote:
> Hi John,
> Do the following:
> .Update
> .BookMark = .LastModified
> mlngLogID = !PLSL_ID
>
>
> HTH
>
> Rusty
>
**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review 
by, and/or disclosure to, someone other than the recipient.
**********************************************************************