[Resolvido]Verificar registro existe 3 critérios

Preciso de um código VBA que pesquise se o registro existe baseado em 3 critérios.

O exemplo abaixo pesquisa com um critério:
Preciso que use os critérios: codigo_jurado, codigo_entrada, código_animal.

If (Not IsNull(DLookup("[codigo_jurado]", "registro_votacao", _
"[codigo_jurado] ='" & Me!codigo_jurado & "'"))) Then


Obrigado.

Isso tudo se encontra na mesma tabela? E tem um código chave primária em comum a todos os três critérios?

Tudo na mesma tabela.

E tem uma chave primária na tabela? Outra coisa: as três condições precisam ser satisfeitas no mesmo registro ou em toda a tabela? Ou seja, elas precisam estar no mesmo registro ou você precisa que a função pesquise se tem os valores salteados, podendo ser uma das condições em um registro, a outra em outro registro, etc.?

não tem chave primaria, e os 3 critérios tem que estar todos no mesmo registro.

Acredito que algo não está bem nessa tabela. Aconselho-te a meter uma chave primária nela, pois para fazer esse tipo de consulta, se faz necessário ter um código único para cada registro.

Boa noite, Altair

Indicou um dos critérios para procura. E os outros dois critérios?

Tem de ser do género: Dlookup("Campo","Tabela","Campo1 comparação condição1 and/or Campo2 comparação condição2 and/or Campo3 comparação condição3)
Cumprimentos,

Ok, vou verificar aqui e depois retorno.

Vou deixar aqui uma dica. Se não funfar, pode ser necessário implementar a primary key:

If (Not IsNull(DLookup("[codigo_jurado] &" "& [Codigo_entrada] &" "&
[código_animal.]", "registro_votacao", _
"[codigo_jurado] ='" & Me!codigo_jurado & "'"))) Then
MsgBox "O xxxxxxx já está cadastrado no sistema..." & codigo_jurado.Text, _
vbInformation, "Aviso"
Cancel = True 'cancela o evento.
Me!codigo_jurado.Undo 'desfaz a digitação.
End If

Implementei a chave primário e resolvi o problema. Obrigado.

Valeu amigo. Qualquer coisa, assovie.

Boas,

Baseado no que aqui, gostaria de saber após digitar o mome de um cliente num form e ao dar enter, se ele já está registado na tabela de clientes.
É possível utilizar uma instrução assim para o fazer? Já tentei mas não funga! Dá-me sempre a mensagem que já existe!

If (Not IsNull(DLookup("[codigo_jurado]", "registro_votacao", _
"[codigo_jurado] ='" & Me!codigo_jurado & "'"))) Then

Sera que entendi? o "codigo_jurado" é o campo da tabela e o "registo_votacao" é a tabela?


Por norma eu faco assim e funciona:

DoCmd.Close acForm, "FrmClientesFiltra"
DoCmd.OpenForm "FrmClientesFiltra", acNormal, "", "", ,acHidden
If Not IsNull([Forms]![FrmClientesFiltra]![CodCliente]) Then
MsgBox "Atenção! Essa cliente ja existe!", vbCritical, "Gestão de Clientes"
Me.Combo52.SetFocus
DoCmd.Close acForm, "FrmClientesFiltra"
Exit Sub
Else
End If

No entanto, tenho de criar um form à parte para fazer a pesquisa, o que me faz perder tempo e ter mais um form na base.

Obrigado,

Entendeu perfeitamente. Registro_Votação é a tabela

Veja

If DCount("[codigo_jurado]", "registro_votacao", "[codigo_jurado]= '" & Me![codigo_jurado] & "'") > 0 Then
MsgBox "O campo já está cadastrado no sistema..." & codigo_jurado.Text, _
vbInformation, "Aviso"
DoCmd.CancelEvent 'cancela o evento.
Me!codigo_jurado.Undo 'desfaz a digitação.
End If

Pois é amigo! Já entendi o que está mal....

ocampo chave da tabela é [NomeClienteETipoCliente], que é resultado da junção do valor de um combo (onde estou a correr esta rotina) e de um outo valor de outro campo. Ou seja [NomeCliente] & [TipoCliente].

O campo que quero pesquisar é o campo chave da tabela que é [NomeClienteETipoCliente]. Será que não o posso correr esta rotina a partir do combo após a junção dos dois valores?

Já simulei esta rotina noutro campo de outra tabela e funga!

Não experimentei, mas não creio que seja necessário essa junção toda uma vez que faz a pesquisa pelo campo chave e isso é suficiente. Com o diz o nosso mestre; Para quê complicar o que é simples?

Abs

Como estou novato no access e aqui, preciso da ajuda de voces. Ja consegui pegar algumas dicas. Porem preciso de ajuda. Estou com um formulario pronto, onde tenho os campos Cod_Prec (Codigo do titular, os dependentes usam o mesmo codigo, ou seja, pode haver duplicacao), CPF que tenho que aceitar vazio, Nome de Paciente, nome da mae e outros dados. Preciso cadastrar um novo paciente, porem gostaria de verificar se este paciente ja existe logo apos eu digitar esses dados, CPF + Nome+ Cod_prec, ou Nome + CPF, ou seja, algo que me garanta que nao vai ser incluido na tabela o mesmo paciente duas vezes. Espero ter sido claro. Aguardo Ajuda e desde ja obrigado

Código do titular acredito que não ajudará nesse caso, pois você precisa saber é se o cliente já está cadastrado e não se um código já existe, certo? Agora, se CPF pode ser nulo, aí a coisa se complica um pouco, pois nome não é garantia de unicidade, nem mesmo se comparar nome e sobrenome, pois embora não seja comum, pode ter mais de uma pessoa com mesmo nome e sobrenome. Acredito que um cliente que não tenha CPF precise ser dependente de um que o tenha, ou não? O certo seria que o CPF do titular fosse de preenchimento obrigatório, para que a consulta pudesse ser feita por ele, ou um outro documento único.

Boa Noite

Pois e. O que acontece e que nao podemos obrigar um paciente trazaer CPF na hora da emergencia, estamos orientando que no retorno ele traga. O Cod_Prec e do titular o dependente usa o mesmo codigo porem com um sequencial 01, 02, 03 somado a este Cod_Prec. Vou tentar ser mais claro, O Joao tem Cd_Prec 12345678-00, seus dependentes tem Cod_Prec 01, 02, 03 .... assim sucessivamente. Se eu juntar o Cod_Prec com o sequencial fica unico. Seria melhor que CPF. Porem eu tenho os casos, de pacientes que nao tem Cod_prec. Pra esses sao digitados a palavra ISENTO, no local do Cod_Prec. Acho que clareou mais aqui pra mim, se eu juntar os campos Cod_Prec+Seq