[Resolvido]preencher campo depois informar o codigo

Bom dia. Gostaria de uma ajuda. Estou criando um formulario, e nele tem dois campos nao-aclopados. gostaria de informar o codigo no primeiro campo e o campo nome fosse preenchido automaticamente cfe o codigo digitado. Exemplo: digito 1 no campo codigo e no campo nome retorna o nome do usuario conforme o codigo. seria um codigo vba apos atualizar. mas como fazer?
estou disponibilizando banco de exmplo. Deste já agradeco a atençao.

Ola seja bem vindo ao forum;

É muito simples usando a função interna DLookup;

Veja;

Obrigado. Era isso mesmo queeu queria. Se nao for pedir demais, como inserir uma mensagem se o usuario nao existir na lista. Obrigado de coracao.

Assim;

Private Sub cod_AfterUpdate()
Dim strNome As String
'variavel que recebe o nome
strNome = Nz(DLookup("nm_user", "usuario", "ID=" & Me.cod), 0)
'se a variavel receber o valor 0, dá a mensagem
   If strNome = "0" Then
       MsgBox "Código não existente...", vbCritical
       Me.nome = ""
       Me.cod = ""
       Exit Sub
'se existir, coloca o nome no campo
       Else
       Me.nome.Value = strNome
   End If
End Sub

Valeu obrigado. Deu certo aqui.

Obrigado pelo retorno o forum agradece.