[Resolvido]Verificar se campo existe na tabela

Olá galera, estou com problema em um formulário Download arquivo ao digitar o cnpj no formulario aidf se nao está cadastrado ele me retorne uma msg de não cadastrado e opção para abrir o formulário de Cadastro de clientes.
Fico grato a quem puder me ajudar.

E qual é o problema?

Olá Harysohn, gostaria que ao digitar o cnpj e nao fosse cadastrado ele desse uma mensagem de nao cadastrado e abrisse o formulario de cadastro de clientes.

O colega precisa disto no evento antes de actualizar do campo

If (Not IsNull(DLookup("[NomeCampo]", "NomeTabela", _
"[NomeCampo] ='" & Me!NomeCampo & "'"))) Then
MsgBox "O NomeCampo já está cadastrado no sistema..." & NomeCampo.Text, _
vbInformation, "Processo"
Cancel = True 'cancela o evento.
Me!NomeCampo.Undo 'desfaz a digitação.
End If

Com código do Mestre Vieira...

Código:

Private Sub CNPJ_AfterUpdate()

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

Me.Nome_RazaoSocial = DLookup("[Nome/RazaoSocial]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
' me.nome_RazaoSocial é o nome do campo
' Nome/RazaoSocial é o nome da coluna da tabela
' tblcliente é o nome da tabela que contem os dados
' CNPJ e o nome do campo da coluna da tabela inserida a tabela do formulario
' me.cnpj é o nome do campo do formulario

Me.IE = DLookup("[IE]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")

Me.Endereço = DLookup("[endereço]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
Me.numero = DLookup("[numero]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
Me.Cidade = DLookup("[cidade]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
Me.estador = DLookup("[estador]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
Me.cep = DLookup("[cep]", "tblcliente", "[CNPJ] = '" & Me.CNPJ & "'")
Else
    MsgBox "Cliente não cadastrado", vbInformation, "Atenção"
    Forms!Menu.CtlGuia805.Pages(1).SetFocus
    Cancel = True

End If

Uma ajuda que lhe servirá muito:
Saiba a diferença entre campo e registo

Galera, atualizei o arquivo seguindo as dicas dos amigos acima mas nao cheguei a um acordo, se alguém poder me ajudar fico agradecido.

http://dl.dropbox.com/u/26441349/Romera_19_08_11.rar

Saudações

Obrigado a todos que colaboraram e parabéns ao forum!

Obrigado pelo retorno, o Resolvido, é sempre colocado através do botão para esse efeito e não colocando-o no tópico. Obrigado. Já o fiz, desta vez.

saudações , pegando carona com esse topico .
tenho um from com 3 campos
verificando a cx de combinação, se o nome não existir na tabela ele não pode ir ao outro campo ,o programa está permitindo com a tecla TAB

Código:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
    Dim strTitle As String
    Dim intRetVal As Integer
If (Not IsNull(DLookup("[NOMES]", "Cartão de membros", _
"[NOMES] ='" & Me!NomeDizimista & "'"))) Then
MsgBox "não é cadastrado", vbInformation, "Lancamento de Dízimo"
'
ElseIf IsNull(Me.NomeDizimista) Then
MsgBox "Quem é o dizimista?", vbCritical, "Aviso"
Me.NomeDizimista.SetFocus
''
ElseIf IsNull(Me.DATA_DZ) = True Then
MsgBox " Qual é a data", vbInformation, "Atenção"
Me.DATA_DZ.SetFocus
''
ElseIf IsNull(Me.VALOR_DZ) = True Then
MsgBox " Qual é o valor", vbInformation, "Atenção"
Me.VALOR_DZ.SetFocus

Else

'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
'DoCmd.cadastro acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

'Mensagem confirmando o cadastro
'MsgBox "Cadastro salvo com sucesso!", vbInformation, "Atenção"

    If Me.NewRecord Then
        strMsg = "Confirma lançamento?"
       ' strTitle = "Novo lançamento"
    Else
       'strMsg = "Confirma a alteração deste registro?"
        'strTitle = "Registro Alterado!"
    End If
        
    intRetVal = MsgBox(strMsg, vbExclamation + vbYesNoCancel, strTitle)
.....


Use o Cancel

Código:

if CondicaoNoCampoTalTal then
    msgbox "proibido"
    cancel = true 'impedindo que o campo seja atualizado com valor indevido
end if

Já usei o cancel  ele nao funcionou no bloco

If (Not IsNull(DLookup("[NOMES]", "Cartão de membros", _
"[NOMES] ='" & Me!NomeDizimista & "'"))) Then
MsgBox "não é cadastrado", vbInformation, "Lancamento de Dízimo"
ElseIf IsNull(Me.NomeDizimista) Then
MsgBox "Quem é o dizimista?", vbCritical, "Aviso"
Me.NomeDizimista.SetFocus

Obs: são tabelas diferentes

Abra o formulário e na primeira caixa de texto tente digitar um nome diferente de "João", "Maria" ou "José" e veja o que acontece.
Basta adaptar ao seu cenário.

Bo anoite. fazendo tanto pelo genérico e como a ajuda no nosso amigo Ivan não esta dando certo, mesmo o nome ser igual a tabela , o sistema diz que não existe.

Código:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
    Dim strTitle As String
    Dim intRetVal As Integer
If (Not IsNull(DLookup("[NOMES]", "Cartão de membros", _
"[NOMES] ='" & Me!NomeDizimista & "'"))) Then
MsgBox "não é cadastrado", vbInformation, "Lancamento de Dízimo"
'
ElseIf IsNull(Me.NomeDizimista) Then
MsgBox "Quem é o dizimista?", vbCritical, "Aviso"
Me.NomeDizimista.SetFocus
''
ElseIf IsNull(Me.DATA_DZ) = True Then
MsgBox " Qual é a data", vbInformation, "Atenção"
Me.DATA_DZ.SetFocus
''
ElseIf IsNull(Me.VALOR_DZ) = True Then
MsgBox " Qual é o valor", vbInformation, "Atenção"
Me.VALOR_DZ.SetFocus
''

       
Else

'Se lá acima tudo foi verificado e tudo está conforme o programado, então salva o registro
'DoCmd.cadastro acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

'Mensagem confirmando o cadastro
'MsgBox "Cadastro salvo com sucesso!", vbInformation, "Atenção"

    If Me.NewRecord Then
        strMsg = "Confirma lançamento?"
      ' strTitle = "Novo lançamento"
    Else
      'strMsg = "Confirma a alteração deste registro?"
        'strTitle = "Registro Alterado!"
    End If
       
    intRetVal = MsgBox(strMsg, vbExclamation + vbYesNoCancel, strTitle)

    Select Case intRetVal
        Case vbCancel
            SendKeys "{esc}"
            Cancel = True
            Me.NomeDizimista = ""
            Me.DATA_DZ = ""
            Me.VALOR_DZ = ""
        Case vbNo
            Cancel = True
            Me.NomeDizimista = ""
            Me.DATA_DZ = ""
            Me.VALOR_DZ = ""


    End Select

    DoCmd.OpenForm "frmSenhaML", , , , , A_DIALOG
      Me.Usuário = UsuárioAtual()    'Identifica o usuário
      Me.DataAlteração = Now()      'Identifica a data de alteração
 End If

End Sub

Veja esta parte

Código:

If (Not IsNull(DLookup("[NOMES]", "Cartão de membros", _
"[NOMES] ='" & Me!NomeDizimista & "'"))) Then
MsgBox "não é cadastrado", vbInformation, "Lancamento de Dízimo"

Nela você diz "Not IsNull", ou seja, se não for nulo, ou seja, SE EXISTIR NA TABELA então emitir mensagem de que não é cadastrado. Tá certo? É assim mesmo?

Não.
É se o nome digitado na caixa de combinação existir na tabela