[Resolvido]Erro: Tipo de dado incompatível na expressão de critério

Olá amigos!

Gostaria da ajuda de você para resolver um problema, na minha form principal (Form_Cadastro_Atendimento) tenho uma sub form (Form_Pesquisa) com todos os registros que abri, nessa sub form tenho uma busca avançada que filtro o registro que preciso, e tenho um evento ao clicar duas vezes no nome do atendente (Nome_Atendente), nesse evento deveria abrir o registro que selecionei, e de fato abre, porém ele está buscando conforme a conta do cliente, pois não consigo fazer ela buscar conforme o código_Atendimento, quando tento buscar pelo cód_Atendimento aparece a mensagem de erro:

“Tipo de dado incompatível na expressão de critério”

O código que estou usando é esse:
DoCmd.OpenForm "Form_Cadastro_Atendimento", , , "[Conta] = '" & Me.Conta & "'"

O problema e que se tem a mesma conta duas vezes no mesmo dia ele só abre a primeira.

Tudo indica que o problema ocorre por que Cod_Atendimento não é do tipo String, é numeração automática (Chave primaria) mas não sei corrigir.

Se puderem me ajudar, por favor.

Bom dia!

Tente colocar assim: DoCmd.OpenForm "Form_Cadastro_Atendimento", , , "[Conta] = '" & Me.Conta.Value & "'"

Abrç, Delson

Delson, muito obrigado pela força!

Porém acredito não ter me expressado corretamente. O código informado funciona normalmente: DoCmd.OpenForm "Form_Cadastro_Atendimento", , , "[Conta] = '" & Me.Conta & "'", o problema é que em um mesmo dia pode haver mais de uma cadastro com a mesma conta, e quando vou buscar o segundo cadastro, por exemplo, ele traz os dados do primeiro cadastrado, já que a conta não é um valor exclusivo, por isso queria fazer o mesmo código usando o campo “código do registro”, esse sim valor exclusivo, porém ao faze-lo aparece a mensagem de erro: Tipo de dado incompatível na expressão de critério. Tenho quase certeza que o problema ocorre pela utilização de apóstrofo (‘) na seguinte parte do código VBA: '" & Me.Cod_Atendimento & "'", ele é utilizado em variáveis do tipo String e o código do registro é inteiro e auto incrementável. Mas se você ou qualquer outra pessoa tiver uma ideia diferente, ou, souber como resolver o problema, fico muito agradecido.

Desde já agradeço o esforço de todos (as)! Novamente obrigado Delson!
Aguardo retorno,  

Bom dia!
Se for possível, envie parte do BD com os objetos envolvidos para eu dar uma olhada!

Att, Delson

Delson, bom dia!

Desculpe a demora para postar, por conta da rotina diária não tive tempo, porém já consegui resolver o problema, estava dando erro pois estava usando o apóstrofo (') após as aspas, por se tratar de uma chave primária ele não utiliza, ficou assim:

DoCmd.OpenForm "Form_Cadastro_Atendimento", , , "[Cod] = " & Me.Cod & ""

Sou muito grato pela ajuda, muito obrigado!

Excelente!
O fórum agradece pelo retorno.

Sucesso, Delson