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