[Resolvido]Não repetir valor já selecionado em combobox do Formulário

Bom dia,

Quero restringir o valor que já foi selecionado na combo do formulário, deixo o Bd para análise.

Ex, na lista de códigos tenho 10000 registros se eu selecionar o "19" quando eu entrar novamente na combo esse "19" não pode aparecer novamente, a intenção é não permitir que um código seja selecionado duas vezes.

Obrigado

Em tempo...
Depois de abrir o tópico, continuei fazendo testes e cheguei a uma "solução", que talvez não seja a clássica, vejam:

Private Sub cboCodigo_Exit(Cancel As Integer)
If DCount("[Codigo]", "TabTeste", "[Codigo]=" & [cboCodigo]) > 0 Then
MsgBox "Registro já selecionado", vbCritical
DoCmd.CancelEvent
End If
End Sub

Porém uma coisa me intriga, quando coloquei ">1" ele só alertava quando lançava o 3º registro repetido, e com ">0" o alerta acontece quando repito na 2ª vez!
Porque?

Ocorreu um problema no outro código, ele não aceitava deixar o campo sem lançamentos, então alterei o código e funcionou como quero:

Private Sub cboCodigo_Exit(Cancel As Integer)
On Error Resume Next
Dim lngRegs As Long
lngRegs = DCount("[Codigo]", "TabTeste", "[Codigo]=" & [cboCodigo])
If lngRegs > 0 Then
MsgBox "Você já selecionou esse código!" & vbCrLf & "Se liga!", vbCritical
DoCmd.CancelEvent
Me.cboCodigo = Null
Else
If lngRegs = 0 Then
Me.Descricao.SetFocus
End If
End If
End Sub

Obrigado a quem deu uma olhada no tópico.

Ola Leandro, veja o mais simples;

Private Sub Codigo_AfterUpdate()
'By JPaulo ® Maximo Access
    Me.Codigo.RowSource = ""
    Me.Codigo.RowSource = "Select CodMaterial from TabMateriais Where CodMaterial<>" & Val(Me.Codigo.Value) & " ORDER BY CodMaterial ASC"
    Me.Codigo.Requery
End Sub

Grande João, obrigado, mas tem um porém, ele analisa só o último lançamento.

Se eu lançar:

19
35

Ele aceita lançar novamente o 19:

19
35
19

Obrigado

E aí? Qual a solução??? Estou no mesmo dilema.

Alguém além do Leandro obteve sucesso após estas alterações?

É só colar este código no primeiro banco de dados que o Leandro deixou para download.
Segue código abaixo.
Private Sub Codigo_Exit(Cancel As Integer) 'NO CAMPO CODIGO_AO SAIR
On Error Resume Next
Dim lngRegs As Long
lngRegs = DCount("[Codigo]", "TabTeste", "[Codigo]=" & [Codigo]) 'NA TABELA TabTeste, NO CAMPO Codigo
If lngRegs > 0 Then
MsgBox "Você já selecionou esse código!" & vbCrLf & "Se liga!", vbCritical 'MENSAGEM QUE APARECERÁ
DoCmd.CancelEvent 'CANCELARÁ A DUPLICIDADE
Me.Codigo = Null
Else
If lngRegs = 0 Then
Me.Descricao.SetFocus
End If
End If
End Sub