[Resolvido]Verifica se existe com 3 critérios

Olá, no Access2016 tenho a tabela tbCertificado com o seguinte design:

- codCertificado - Numeração Automática(PK)
- Matricula - Número (matrícula de contrato do funcionário)
- codCurso - Número (código do curso realizado)
- codEntidade - Número (código da entidade onde o curso foi realizado)
- CargaHorária - Número (total de horas do curso)
- dtCurso - data/hora (data do curso)
- NroPontos - Número (número de pontos)

Na tabela há vários certificados cadastrados; um funcionário pode ter vários certificados cadastrados de vários cursos de várias entidades. Preciso que no momento de cadastrar um NOVO certificado seja verificado se já não há um registro (CERTIFICADO) para a mesma matricula; mesmo curso;e na mesma data, ou seja 3 critérios a serem verificados antes da gravação. Estava tentando conforme abaixo mas não está dando certo, inclusive mudei a ordem dos campos mas, sempre dá erro de "dados incompatíveis".

Código:

Sub VerificaSeExiste()
If DCount("Matricula", "tbCertificado", "codCurso =" & Me!ComboCurso & " AND codEntidade =" & Me!txtCodEntidade & " AND dtCurso='" & Me!txtDtCurso & "'") > 0 Then
MsgBox "Certificado já cadastrado para este Funcionário,verifique!!!!", vbExclamation + vbOKOnly, "Certificados"
vInclusao = False
Else
vInclusao = True

End If

End Sub

ALAN

Olá Alan,

Se os campos forem texto deve incluir as plicas, será isso.
Alterei apenas na data, teste assim:

Código:

If DCount("Matricula", "tbCertificado", "codCurso =" & Me!ComboCurso & " AND codEntidade =" & Me!txtCodEntidade & " AND dtCurso=#" & Me!txtDtCurso & "#") > 0 Then

Abraço

Ahteixeira, resolvido, com as suas modificações, funcionou perfeitamente...Encerramos por aqui..Abraços!!

ALAN

Se a duvida foi solucionada, marque o Tópico como Resolvido!!!

Veja como Fazer: https://www.maximoaccess.com/t860-resolucao-de-topicos

Antes de mais nada Feliz Natal a todos!!!

Anteriormente havia retornado que a alteração havia solucionado a minha dúvida. Fiz um teste com a primeira matricula, e realmente não deixou duplicar um curso que já estava cadastrado para o funcionário selecionado, OK. Entretanto, hoje, fui fazer novas verificações, com outras matriculas e salvou, ou seja duplicou os cursos já cadastrados com as mesmas informações, o que não deve ocorrer. Vou fazer outros testes aqui, se persistir o erro eu retorno..

ALAN

Ola, formate o critério de Data para mm/dd/yyyy para evitar erro de interpretação do VB, e veja se resolve...


... AND dtCurso=# " & Format(Me!txtDtCurso, "mm/dd/yyyy") & " #") > 0 Then

FabioPaes, show de bola, com a formatação da data funcionou, está filtrando corretamente. Resolvido!!!!

ALAN

Então , resolvido....dúvida sanada....

Bacana amigo! Até a próxima se Deus quiser!!!