Add 1 to last record ID

[wdverner]

hi all,
when i complete an input form, i want the form to reload with the primary key ProductID to be increased by 1.

ProductID is an integer field (Not AutoNumber due to reasons elsewhere).

What I want is when i complete input for record with ProductID= 1 and click on finish I want the form to reload with ProductID= 2 and so on.

What is the best way of achieving this?

Thanks guys,

 

[Remou]

If you only have one or two users this:

Private Sub Form_BeforeInsert(Cancel As Integer)
Me.ProductID = DMax("ProductID", "Table4") + 1
End Sub

May suit. Otherwise you may wish to look for MichaelRed's FAQ on why autonumber should not be used.

 

[TheAceMan1]

How are ya dverner . . .

Have a look at the [blue]DMax[/blue] aggregate function . . .

See Ya! . . . . . .