Coding for know Other form' s boolean confirmation

[Minty]

I'm Minty, Micron is a different forum member.

You appear to have removed the default value I put in.
As I explained previously, you don't need to use code to fill that out, just use the default value, it will always appear on a new record.


=Nz(DMax("empno","main_data"),0)+1



And remove the code in your before update event.

[deepaksharma]

I'm Minty, Micron is a different forum member.

You appear to have removed the default value I put in.
As I explained previously, you don't need to use code to fill that out, just use the default value, it will always appear on a new record.


=Nz(DMax("empno","main_data"),0)+1

And remove the code in your before update event.

ohh sorry minty for saying wrong name.
Actually my program will be run by many users on sharing pc if any user closes the form without clicking on "Save and Shades" button then the series of empno will be missed so I want that till the time the user fills the form completely The empno is not generated until you click on the Save and Shades button.
So I coded in the BeforeUpdate event. Can my problem be solved keeping this method in mind?
Thank you.

[Minty]

The EmpNo value when set by the default value won't be saved until the record is saved.

I would still use the default value but run a check on the forms before update, to ensure it's not duplicated, and if it is get a new value?
Or simply use the Autonumber field as an Identifier and don't worry about it being sequential?

[deepaksharma]

The EmpNo value when set by the default value won't be saved until the record is saved.

I would still use the default value but run a check on the forms before update, to ensure it's not duplicated, and if it is get a new value?
Or simply use the Autonumber field as an Identifier and don't worry about it being sequential?

You are right, by running this program on two PCs in the manner suggested by you, the error of duplicate value is coming. To avoid this, please tell the coding of the method you have given to check the autonumber field in the before update event.
Please thanks in advance

[Minty]

A simple DCount should do it

IF Dcount("1", "main_data","EmpNo = " & Me.Empno) > 0 Then 
    Me.EmpNo   =Nz(DMax("empno","main_data"),0)+1
End if

[deepaksharma]

A simple DCount should do it

IF Dcount("1", "main_data","EmpNo = " & Me.Empno) > 0 Then 
    Me.EmpNo   =Nz(DMax("empno","main_data"),0)+1
End if

ohh thank you thank you So much......