Solved Auto fill serial number in subform (1 Viewer)

[theinviter]

Dears;
I have created a form "Clinic" and sub from "Delivery_Number" , there is a field named "Delivery" , user update "Delivery_Date"
so I want this field "Delivery" to auto update with serial number starting from (one) after updating "Delivery_Date".
repeat the cycle with every new record in main form.

anu advise.

thanks

 

[bob fitz]

In the forms Update event, you could use DMax() function to get the last used number, add 1 to it and save the result in the appropriate field.

 

[bob fitz]

In the forms Update event, you could use DMax() function to get the last used number, add 1 to it and save the result in the appropriate field.

Just a further thought. You would need to make sure that the field has not already got a value before assigning the value, otherwise editing an existing record would cause the number to be altered.

 

[theinviter]

Just a further thought. You would need to make sure that the field has not already got a value before assigning the value, otherwise editing an existing record would cause the number to be altered.

thanks
but what if a new record in subform has a new ID of main form, then wanna cycle start again from one .

 

[bob fitz]

Can you post copy of the database

 

[Pat Hartman]

Here's a sample that shows two types of custom sequence numbers. You want the type in the form to the right which is a subform.

Custom Sequence Numbers

Two examples of a custom sequence number. One is a complex ID with concatenated parts. The other is just a sequence number for detail items and is not used as a PK. It has a renumber feature. See below

www.access-programmers.co.uk

 

[The_Doc_Man]

Are you attempting to create a CHILD record number that is unique for a given parent record? Or was it the PARENT record that needs to be numbered specially? Or both?

 

[theinviter]

Done,
i did as the code below, worked fine.
If Me.Delivery = 0 Then
Delivery = Nz(DMax("Delivery", "PO_Date", " Link_ID = " & Forms!Data_Entry!ID), 0) + 1
Else
End If

 

[ebs17]

If Me.Delivery = 0 Then
If Me.NewRecord Then