I hadn't even considered a lookup field.
However, one image shows that "NType" in the table design is a number (didn't see a field named "ID"), so maybe
Code:Private Sub cboNType_Afterupdate() Me.ncrnumber = Nz(DMax("[NCRNumber]", "tblNCR", "[NType]=" & cboNType), 0) + 1 End Sub