Dúvida com campo nulo na caixa de combinação

Boa tarde!

minha duvida é:
Eu tenho uma caixa de combinação(usuário), e logo em seguida um campo código
pra ser digitado.
só que eu queria que só pudesse digitar o código uma vez que selecionasse o usuário, ou seja não permintindo a caixa de combinação fique vazia..

desde já agrade a todos..

No evento VBA ao alterar, no seu campo;

Private Sub SeuCampo_Change()
    If IsNull(Me.SuaCombo) Or Me.SuaCombo = "" Then
       MsgBox "Obrigatório a seleção de um usuário...", vbCritical
       Me.SeuCampo.Value = ""
       DoCmd.CancelEvent
       Me.SuaCombo.SetFocus
    End If
End Sub