Manually autonumber a field

[vitols]

Hello

This might help

 
Private Sub txtDeptTxt_AfterUpdate()
Stop
    If IsNull(Me.txtLocalKey) Then
        Me.txtLocalKey = DCount("fldCompanyId", "tabCompanyDept", "fldCompanyId = " & Me.txtCompanyId) + 1
    End If
End Sub

vitols