Button for Manual Serial No generate in MS Access

[ZKAHADI]

i want to make a button in ms access form for manual data entry serial no.

example

Private Sub Command984_Click()
    DoCmd.GoToRecord , , acNewRec
    DoCmd.GoToRecord Previous acDataForm, Serial_No = Me.Serial_No.Value + 1
End Sub

how it will be work?

if i entered a data with serial no 1
now going to second serial no 2 by manual clicking a button
so i want to code like go to previous serial no +1 = 2

[twinnyfo]

ZKAHADI,

If your serial number is strictly numeric, why not just use the AutoNumber Field that is readily available in MS Access?

This is the easiest way.

However, if there is more behind your question, let us know and we can work with that.

Hope that hepps!

[isladogs]

Alternatively, if the previous record is the maximum value of that field, you can use =DMax("FieldName", "TableName")+1

[ZKAHADI]

i dont want to use automatic number because if i delete a record the auto number series gone wrong . for example i entered 5 entries and i delete all then i start from start the auto number starts from 6 not from 1 . and may i start serial no from 100 or others

[ZKAHADI]

tell me the way how i can use in vba on button .
what i wriate before Equal sign ? =DMax("FieldName", "TableName")+1

[twinnyfo]

Your code would look something like this:

Private Sub Command984_Click()
    DoCmd.GoToRecord , , acNewRec
    Me.Serial_No = _
        DMax("Serial_No", _
             "YourTableName") + 1
End Sub

Using Domain Aggregate functions (of which DMax() is one of them) is not my favorite, but it should do the job just fine.

Hope this hepps!

[Rabbit]

It's rarely a good idea to reuse unique identifiers due to future data integrity issues