[Resolvido]Impedir mais de um registro da mesma conta para o mesmo código de cliente no sub form

olá pessoal do forum!
Estu trabalhando num sistema de controle de Dízimo onde os carnês de controle são gerados pelo sistema e preciso impedir que uma pessoa que já tem um carne num determinado ano seja gerado um novo varnê.
Usei um modelo que o Paulo Postou neste forum, e adaptei os nomes do meu progeto e ele me dá uma mensagem de erro
"Erro de sintaxe na data na expressão de consulta '[codigo]=31 AND Referente = # 2011'."

a expressão que usei
If DCount("Codimista", "Carnê", "[Codimista]= '" & Me!Codimista & "' AND Referente = #" & Me!Referente & "#") > 0 Then

Codmista é tipo número ou texto? Se for número, precisa tirar as aspas simples:

If DCount("Codimista", "Carnê", "[Codimista]=" & Me!Codimista & " AND Referente = #" & Me!Referente & "#") > 0 Then

talvez seja o caso de formatar a data tambem. Se der erro do jeito que está acima e Referente estiver no formato dd/mm/yyyy, pode dar certo assim:

If DCount("Codimista", "Carnê", "[Codimista]=" & Me!Codimista & " AND Referente = #" & format(Me!Referente, "mm/dd/yyyy") & "#") > 0 Then

Outra coisa, como os campos do formulário tem os mesmos nomes dos campos da tabela, pode ser que seja necessário mudar o ! por .(ponto). Melhor seria mudar o nome dos campos do formulário, acrescentando um txt antes ou cbo se for combo.

o campo refernte é número.
já tentei transformar como data e usei todas as datas como 01/01/2011 e tambem dava erro

vou tentar mudar os nomes tepois retorno

Surgiu Imprevisto e terei que sair.
Amanhã eu volto

Mudei para data e me trs a resposta:"Tipo de dados incompatíveis na expreção de critério."
usei
If DCount("Codimista", "Carnê", "[Codimista]= '" & Me!Codimista & "' AND Referentes = #" & Format(Me!Referente, "mm/dd/yyyy") & "#") > 0 Then
e depois
If DCount("Codimista", "Carnê", "[Codimista]= '" & Me!Codimista & "' AND Referentes = #" & Me!Referente & "#") > 0 Then
e da o mesmo erro

O campo Codimista é número ou texto? Se for número, tire os apóstrofos do critério.

desculpem a demora, é que deu pane no meu HD estou tentando arrumar
A respeito do 'Codimista' é número sim.
assim que arrumar o HD irei corrigi e retornarei. (não estou no meu PC)
Obrigado

Olá pessoal do forum!

Estou de volta para terminao minha pesquisa.

Ok Criquio, retirei os apóstrofos e deu serto, só que tive que digitar diretamenti na caixa a data completa, pois preferia só o ano e em número. talves teria que mudar algo no critério de "AND".

Originalmente ese compo estava sendo preenchido automaticamente, ao pedir o carnê de Dízimo é procurado o último número do carnê e acrecenta um+o ano em questão en seguida pega os quatro dígitos a direita e coloca como referencia, calcula quantos meses falam para o final do ano e coloca as parcelas, a data do primeiro recibo e os numeros do recibo inicial e final.

Nesse caso não sei se teria como aplicar um filtro.
Tentei antes de atualisar e apos atualisar mas nenhum deles respondeu
mas mesmo asim já consegui o que queria

OK Criquio obrigado pela ajuda

dá pra impedir mais de um carnê polr ano

Um Abraço a todos.

Grato pelo retorno. O forum agradece.