Private Sub Form_AfterUpdate()
On Error GoTo Err_AfterUpdate


    If Me.OpenArgs & "" <> "" Then
        lngNewUSerID = Me.tb_UserKey
        'Since user entered through the openargs argument, he is in the middle of a combobox update
        'We dont want to allow more then 1 record being added this way, so close form
        DoCmd.Close acForm, Me.Name
    End If
exit_AfterUpdate:
Exit Sub

Err_AfterUpdate:
MsgBox "Greska broj " & Err.Number & vbCrLf & Err.Description & vbCrLf & "u sub AfterUpdate()"
'Poruka ce da javi broj greske.
Resume exit_AfterUpdate

End Sub