Autonumbering 1

[Dennisje]

I want to write a macro instead of using autonumbering. Can anyone provide me de settings of such a macro?

 

[ClydeData]

put this code in the on current event of your form
this example refers
to a table called tblCompany
with primary key ID

If Me.NewRecord Then

Me!ID.DefaultValue = Nz(DMax("[ID]", "tblCompany&quot, 0) + 1
End If



Best of luck and merry christmas

Jimmy

 

[Dennisje]

Thanks very much for the solution and merry christmas to you too....

 

[ptpaton]

Jimmy,

The NZ reference...is that a function? This is a great tip...have a star!

-Patrick

Nine times out of ten, the simplest solution is the best one.

 

[ClydeData]

Patrick
The NZ function is the null to zero built in function.

cheers

Jimmy

 

[Dennisje]

Jimmy, thanks for your advise but it doesn't seem to work. I get a message: The expression you entered contains invalid syntax. You may have entered an operand without an operator. I used the data type: Number and the same field name as you used in your example. Is that ok?