look at 4 digits

[NetworkTrade]

have an autoincrement

Dim Job As Variant
Job = Nz(DMax("Job", "JobTable")) + 1

the data in the Job field is always an integer but the field has been
defined as a text field......so while the real fix is redefining that field
correctly ; sometimes the real world is not so ideal...

it works up to 999 and then as text sees 1000 as a lower value - it won't
increment....

the fix in maintaining the current system would be to look at only 4 digits
- ignoring 0-999 and then the increment up from 1000 will continue to 9999

(I did this once before some time back for a sequence that began with 3
letters and needed to ignore the first 3 letters but now can't remember the
technique....)...Would welcome a reminder. TIA

 

[Stefan Hoffmann]

hi,

Dim Job As Variant
Job = Nz(DMax("Job", "JobTable")) + 1

the data in the Job field is always an integer but the field has been
defined as a text field......so while the real fix is redefining that field
correctly ; sometimes the real world is not so ideal...

.... but still being wrong isn't that good.

it works up to 999 and then as text sees 1000 as a lower value - it won't
increment....

You may use

DMax("CLng([Job])", "JobTable")

on your own risk.


mfG
--> stefan <--

 

[NetworkTrade]

gracias......sure cast it as an integer since that's all they put in
there....should have thought of that instead of the look at 4 digits
approach.....will work beyond 9999 too....
--
NTC

hi,

Dim Job As Variant
Job = Nz(DMax("Job", "JobTable")) + 1

the data in the Job field is always an integer but the field has been
defined as a text field......so while the real fix is redefining that field
correctly ; sometimes the real world is not so ideal...

.... but still being wrong isn't that good.

it works up to 999 and then as text sees 1000 as a lower value - it won't
increment....

You may use

DMax("CLng([Job])", "JobTable")

on your own risk.


mfG
--> stefan <--