caixa de combinação com código

Boa noite, esse BD (anexo) tem um formulário (1-unidirregtermo) que quando se digitam valores, pode aparecer a msgbox padrão por já ter sido digitado em outro formulário       (4-solicitacaodebv), já que a tabela principal que fornece valores diferentes para os dois formulários diferentes, tem uma chave primária para os dois na tabela principal (1-unidirreg).
Então eu criei uma cx de combinação(Combinação298) que se procura o  registro, se ele já foi digitado no outro formulário só tenho que digitar os outros valores passando para os outros campos, mas se não foi, tenho que ir para a cx de texto do registro(codigo postal) para digitar ele e depois os outros valores.
Quero saber se podem facilitar, mostrando um código nessa caixa de texto (codigo postal) que procure se o registro já existe na tabela (1-unidirreg). E se ele existir, que possa abrir msgbox avisando que já existe o registro (codigo postal) e ao dar ok nela, ele deixa o registro vidente e pule para o próximo campo para se digitar os outros valores.
E quando não existir o registro ele deve se manter na caixa de texto (codigo postal) para digitar o novo.
Podem ajudar? Grato desde já.

Boa noite Anselmo!!!

eu uso assim
If (Eval("DLookUp(""[NOMECLIENTE]"",""[CLIENTE]"",""[NOMECLIENTE] = Form.[ASSOCIADO] "") Is NOT Null")) Then
Me.SEXO = Me.ASSOCIADO.Column(1)
Me.CPF = Me.ASSOCIADO.Column(2)
Me.RG = Me.ASSOCIADO.Column(3)
Me.DATANASC = Me.ASSOCIADO.Column(4)
Me.END = Me.ASSOCIADO.Column(5)
Me.Nº = Me.ASSOCIADO.Column(6)
Me.BAIRRO = Me.ASSOCIADO.Column(7)
Me.CIDADE = Me.ASSOCIADO.Column(
Me.FONE = Me.ASSOCIADO.Column(9)
Me.CONVENIO = Me.ASSOCIADO.Column(10)
Me.CONVENIO.SetFocus
Me.CONVENIO.Requery

os campos sao naoacoplados ou naoassociado que recebem as informacoes da caixadecombinacao ASSOCIADO

Se ele nao atualizar ai vc continua o cadastro normal ai vc precisa de um botao ou um campo para receber esse codigo

Dim db As Database, RS As Recordset

If (Eval("DLookUp(""[NOMECLIENTE]"",""[CLIENTE]"",""[NOMECLIENTE] = Form.[ASSOCIADO] "") Is Null")) Then
Set db = CurrentDb()
Set RS = db.OpenRecordset("CLIENTE") 'Abre tbl_Parcelas
RS.AddNew
RS("NOMECLIENTE") = Me.ASSOCIADO
RS("ENDEREÇO") = Me.END
RS("Nº") = Me.Nº
RS("BAIRRO") = Me.BAIRRO
RS("[DATA DE NASCIMENTO]") = Me.DATANASC
RS("SEXO") = Me.SEXO
RS("CONVENIO") = Me.CONVENIO
RS("CIDADE") = Me.CIDADE
RS("FONES") = Me.FONE
RS("RG") = Me.RG
RS("CPF") = Me.CPF
RS.Update
RS.Close
db.Close

End If


espero lhe ajudar