[Resolvido]Dificuldades com DCount e DLookup

Parece simples, mas estou por desistir. Talvez alguém possa me ajudar.

Tenho uma Tabela de CADASTRO de equipamentos, que contem um campo chamado NR_CAUTELA e outro MATRICULA. Tenho outra tabela EFETIVO com nomes de quem vai receber estes equipamentos, sendo o campo MATRICULA a chave. Relação entre tabelas feito corretamente.
Esta pessoa pode receber vários equipamentos para sua cautela.. Quero que o bd me avise quando eu for cadastrar um equipamento, quando o Nº da Cautela for diferente da cadastrada pela primeira vez para a MATRICULA. Resumindo:

TABELA CADASTRO
- Campo EQUIPAMENTO
- Campo NR_CAUTELA
- Campo MATRICULA

TABELA EFETIVO
-Campo MATRICULA
-Campo NOME

PROBLEMA: NR_CAUTELA precisa ser sempre IGUAL para a mesma MATRICULA. Se o operador digitar um NR_CAUTELA diferente, fazer o BD me emitir um aviso.

Já tentei com DCount e DLookup mas não consegui... Se alguém me puder ajudar ficaria grato.. Abraço

Olá

vamos tentar assim, veja se é isso que você quer;

Código:

Dim Contador
Contador = DCount("MATRICULA", "TbCadastro", "NR_CAUTELA = '" & Me!NR_CAUTELA & "'" & " AND MATRICULA = '" & Me.MATRICULA & "'" & " AND EQUIPAMENTO = '" & Me.EQUIPAMENTO & "'")
    
        If Contador = 0 Then
        
        'SE NÃO TIVER UM REGISTRO COM NR_CAUTELA E MATRICULA E EQUIPAMENTO IGUAL CONTINUA deixa salvar
        
        Else
            'SE TIVER REGISTRO COM AS 3 CONDIÇÕES ENTÃO EMITE um ALERTA!

              Dim seq As String, k
        
              seq = "EQUIPAMENTO,MATRICLA,NR_CAUTELA"
              seq = Dlookup(seq, "TbCadastro", "NR_CAUTELA = '" & Me!NR_CAUTELA & "'" & " AND MATRICULA = '" & Me.MATRICULA & "'" & " AND EQUIPAMENTO = '" & Me.EQUIPAMENTO & "'")
                k = Split(seq, "#")
            
                If MsgBox("Este cadastro já existe" & vbCrLf & "MATRICULA: " & K(1) & _
                                                      vbCrLf & "NR_CAULETA: " & K(2) & _
                                                      vbCrLf & "EQUIPAMENTO: " & k(0) & _
                                                      vbCrLf & "Deseja continuar?", vbYesNo, "CADASTRO DUPLICADO") = vbYes Then
                                                  
                                                        End If
         End if

'observação: pode usar só o Dlookup fazer uma viagem só a tabela, testar as 3 condições, coloquei os dois métodos afim.

Obrigado.. Vou testar e postar o resultado... Abraço

Olá Marcos.. Agradecido novamente.
Estou em fase terminal de um sistema para a PM do RS que é um tanto "sigiloso", motivo pelo qual não informei os nomes corretos dos campos, pelo qual também peço escusas.
Abaixo estão os nomes corretos e o erro que se apresentou foi na saída do campo "Combinação100" que é o COD_EFETIVO
A mensagem diz: 'Erro em tempo de execução 3464' Tipo de dados incompatível na expressão de critério. O erro é na Linha 'Contador='Segue o código teu que adaptei.

Private Sub Combinação100_Exit(Cancel As Integer)
Dim Contador
Contador = DCount("COD_EFETIVO", "CADASTRO_ARMAS", "NR_CAUTELA = '" & Me!NR_CAUTELA & "'" & " AND COD_EFETIVO = '" & Me.COD_EFETIVO & "'" & " AND COD_CAD_ARM = '" & Me.COD_CAD_ARM & "'")

If Contador = 0 Then

'SE NÃO TIVER UM REGISTRO COM NR_CAUTELA E MATRICULA E EQUIPAMENTO IGUAL CONTINUA deixa salvar

Else
'SE TIVER REGISTRO COM AS 3 CONDIÇÕES ENTÃO EMITE um ALERTA!

Dim seq As String, k

seq = "COD_CAD_ARM,COD_EFETIVO,NR_CAUTELA"
seq = DLookup(seq, "CADASTRO_ARMAS", "NR_CAUTELA = '" & Me!NR_CAUTELA & "'" & " AND COD_EFETIVO = '" & Me.COD_EFETIVO & "'" & " AND COD_CAD_ARM = '" & Me.COD_CAD_ARM & "'")
k = Split(seq, "#")

If MsgBox("Este cadastro já existe" & vbCrLf & "COD_EFETIVO: " & k(1) & _
vbCrLf & "NR_CAULETA: " & k(2) & _
vbCrLf & "COD_CAD_ARM: " & k(0) & _
vbCrLf & "Deseja continuar?", vbYesNo, "CADASTRO DUPLICADO") = vbYes Then

End If
End If
End Sub


Explicando um pouco mais, o COD_CAD_ARM é o código do material e campos NrR_CAUTELA e o COD_EFETIVO pertencem todos à tabela CADASTRO_ARMAS.
O COD_EFETIVO pode receber até dois Equipamentos com o Nr da mesma Cautela. Este procedimento já fiz e avisa quando tentar cadastrar mais que dois equipamentos.
O problema surge quando é feito o lançamento de um equipamento para o COD_EFETIVO mas para uma cautela diferente da que já foi cadastrada para este COD_EFETIVO.

boa boite

Sobre o erro, para valores do tipo número, não se põe os apóstrofes.

Ainda ocorre erro. Tirei os apóstrofes e agora o erro diz: Erro de Sintaxe (vírgula) na expressão da consulta
seq = "COD_CAD_ARM,COD_EFETIVO,NR_CAUTELA"

Modifiquei e ficou assim. Gera erro.........

Private Sub Combinação100_Exit(Cancel As Integer)

Dim Contador
Contador = DCount("COD_EFETIVO", "CADASTRO_ARMAS", "NR_CAUTELA = '" & Me!NR_CAUTELA & "'" & " AND COD_EFETIVO = " & Me.COD_EFETIVO & "" & " AND COD_CAD_ARM = " & Me.COD_CAD_ARM & "")

If Contador = 0 Then

'SE NÃO TIVER UM REGISTRO COM NR_CAUTELA E MATRICULA E EQUIPAMENTO IGUAL CONTINUA deixa salvar

Else
'SE TIVER REGISTRO COM AS 3 CONDIÇÕES ENTÃO EMITE um ALERTA!

Dim seq As String, k

seq = "COD_CAD_ARM,COD_EFETIVO,NR_CAUTELA"
seq = DLookup(seq, "CADASTRO_ARMAS", "NR_CAUTELA = '" & Me!NR_CAUTELA & "'" & " AND COD_EFETIVO = " & Me.COD_EFETIVO & "" & " AND COD_CAD_ARM = " & Me.COD_CAD_ARM & "")
k = Split(seq, "#")

If MsgBox("Este cadastro já existe" & vbCrLf & "COD_EFETIVO: " & k(1) & _
vbCrLf & "NR_CAULETA: " & k(2) & _
vbCrLf & "COD_CAD_ARM: " & k(0) & _
vbCrLf & "Deseja continuar?", vbYesNo, "CADASTRO DUPLICADO") = vbYes Then

End If
End If

End Sub

O colega sugeriu a dica 2 do artigo do link abaixo. Leia ela direto da fonte e veja o que pode estar errado
usandoaccess.com.br/dicas/gerar-milhoes-registros-teste-access.asp?id=1

testei, mas não funcionou.. Alguém conseguiria reproduzir aqui, conforme os exemplos postados, o meu código acima elencado??????
Estou faz três horas tentando e não saio do chão... A BM do RS agradece...

Boa tarde,
Respeite as regras.
Escrever tudo em maiúsculas significa gritar. Adeqúe o que escreveu mal
O título serve para resumir a dúvida, não para corpo de texto. Tratando-se da mesma dúvida mantêm-se o título

Sobre a dúvida, não percebi que situações podem ocorrer que violem as regras de registo na tabela.
Crie bd com dados de exemplo

Me desculpe.. Não foi minha intenção ofender ninguém com as palavras maiúsculas. Escrevi elas somente para destacar os campos ou fazer entender os pontos mais cruciais da minha dificuldade. Quanto ao título da mensagem observarei atentamente. A humildade e o reconhecimento de erros engrandece o caráter da pessoa, e a busca do conhecimento por vezes esbarra em dificuldades. Por este motivo procuro o saber do conhecimento de quem o tem neste excelente e magnifico site.

Boa Noite

Monta um exemplo com as tabelas e o formulário posta aqui, vai ser mais fácil e rápido te ajudar.

abraço.

Obrigado Marcos.. Resolvi de outra forma.. Dei um número de cautela a cada militar e assim tudo fica vinculado à ele e ao número.. Abraço e obrigado pela atenção.