code

[COMP]

Dim newrec As Integer
DoCmd.GoToRecord , , acLast

newrec = Form_ChangeControl.Number.Value
DoCmd.GoToRecord , , acLast
Form_ChangeControl.Number.Value = newrec + 1
Exit_Command29_Click:

trying to have a field in a form to update the number by 1 in access in the button next record. However the code is not working. Any ideas??

 

[Alisa]

Is there some reason you can't use an autonumber for that field?

 

[WayneRyan]

Comp,

Use the form's BeforeInsert event and put:

Me.Number = Nz(DMax("[Number]", "YourTable"), 0) + 1

And set the Property for [Number] on the form to --> Enabled = No

The Nz function provides a value when there are no records.
The DMax retrieves the Maximum value for [Number].
The + 1 increments the value.

Also, Number is a reserved word, you should change it.

Wayne

 

[COMP]

Where is the before insert section?? i Cant seem to find it.

thanks