Auto Num code question

[Mojo1]

I have a db where when you add a new record on the form you are not assigned a new auto number. I have a backup db where it does work yet I can not see what is different. Would it have to in the table design that is the data source for the form? or something else. The code that generates this look similiar to me.

 

[Dugantrain]

Have you looked at the table that the form is bound to to see whether or not an Autonumber is being added? Sometimes, a developer will design a form with the Autonumber text field being invisible since it's usually not that useful to the user. If this isn't the case, check your data type in the table for the field that's supposed to be an Autonumber and make sure that it has been declared Autonumber rather than Number or something else.

 

[Mojo1]

Here is the code for the auto number

Private Sub Form_Current()
If Me.NEWRECORD Then
On Error Resume Next
Me.NMMI_NUM = "A" & pad_zeros(Val(Mid$(DMax("[NMMI_NUM]", "NMPHY"), 2)) + 1, "right", 6)
End If

End Sub

This is a number where there is a A0##### since there is already records in the db with this. NMMI_NUM is the field we are incrementing, and NMPHY is the table.

This works on an older version of the db but not on the current version. So that is why I have asked where to look.