[Resolvido]Duplicação e permissão somente numero

Ola amigos.

Como faço para que ao digitar o CNPJ ou INSCR, ele imponha duas regras:
1-Só aceite números,  porem quero que ao inserir letra ele emita uma mensagem "Somente Numeros"
2-Não aceite CNPJ E INSCR duplicados, porem quero que ao inserir duplicado ele emita uma mensagem "CNPJ Já existente"


Obrigado.

Bom dia.

Para verificar se já existe um cadastro na tabela adapte este código ao seu form.

Código:


If (Not IsNull(DLookup("[NomeDoCampo]", "nometabela", "[NomeDoCampo] ='" & Me!NomeDoCampo & "'"))) Then
MsgBox "O CNPJ já está cadastrado no sistema..." & NomeDoCampo.Text, vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!NomeDoCampo = null
End If


Para somente números:

Código:


Private Sub NomeDoCampo_KeyPress(KeyAscii As Integer)
If Not IsNumeric(CHR$(KeyAscii)) Then
' Não é número
KeyAscii = 0
End If
End Sub



Bom dia.

Segue duvidas:


-Seria em qual evento?
-Em qual sequencia coloco os códigos, que não permite duplicar e o de números?


Obrigado.

Para não permitir duplicar, coloque o código no evento "Ao Sair" do campo CNPJ.

E para só aceitar números coloque no evento "Ao Pressionar a Tecla" do campo CNPJ.

Lembre-se de copiar somente este código para o campo "Ao Pressionar a Tecla"

Código:


If Not IsNumeric(CHR$(KeyAscii)) Then
' Não é número
KeyAscii = 0
End If


Bom dia, tudo bom??


Quanto ao numero deu tudo certo, porem para não duplicar esta apresentando erro de sintaxe.

NomeDoCampo= txtCNPJ/CPF nometabela= Frm_CadCli


VEJA COMO FICOU;

Private Sub txtCNPJ_CPF_Exit(Cancel As Integer)
If (Not IsNull(DLookup("[txtCNPJ/CPF]", "Frm_CadCli", "[txtCNPJ/CPF] ='" & Me!txtCNPJ / CPF & "'"))) Then
MsgBox "O CNPJ já está cadastrado no sistema..." & txtCNPJ / CPF.Text, vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!txtCNPJ/CPF.Undo 'desfaz a digitação.
End If


Grato

Desculpa, mas o nome dos campos em vermelho deve ser este mesmo?

Utilize nomes simples e sem espaços. Tipo: txtCNPJ_CPF ou txtCNPJCPF

Private Sub txtCNPJ_CPF_Exit(Cancel As Integer)
If (Not IsNull(DLookup("]txtCNPJ/CPF]", "Frm_CadCli", "]txtCNPJ/CPF] ='" & Me!txtCNPJ / CPF & "'"))) Then
MsgBox "O CNPJ já está cadastrado no sistema..." & txtCNPJ / CPF.Text, vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!txtCNPJ/CPF = Null

End If

Veja que os nomes não coincidem.

Private Sub txtCNPJ_CPF_Exit(Cancel As Integer)

txtCNPJ/CPF

Meu caro.

Mudei o nome, mas permanece o erro.

Private Sub txtCNPJ_CPF_Exit(Cancel As Integer)
If (Not IsNull(DLookup("]txtCNPJ_CPF]", "Frm_CadCli", "]txtCNPJ_CPF] ='" & Me!txtCNPJ_CPF & "'"))) Then
MsgBox "O CNPJ já está cadastrado no sistema..." & txtCNPJ_CPF.Text, vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!txtCNPJ_CPF.Undo 'desfaz a digitação.
End If
End Sub

Você alterou co código erradamente.


If (Not IsNull(DLookup("[txtCNPJ_CPF]", "NomeDaSuaTabela", "[txtCNPJ_CPF] ='" & Me!txtCNPJ_CPF & "'"))) Then
MsgBox "O CNPJ já está cadastrado no sistema..." & txtCNPJ_CPF.Text, vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!txtCNPJ_CPF = Null
End If

----------------------------------------------------------------------------------------------------------------------------------------------------------------

If (Not IsNull(DLookup("]txtCNPJ_CPF]", "Frm_CadCli", "]txtCNPJ_CPF] ='" & Me!txtCNPJ_CPF & "'"))) Then
MsgBox "O CNPJ já está cadastrado no sistema..." & txtCNPJ_CPF.Text, vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!txtCNPJ_CPF = null
End If

Em vermelho não é formulário e sim tabela. Reveja no primeiro post.

Alterei, coloquei o nome da tabela, mas continua o erro.

Private Sub txtCNPJ_CPF_Exit(Cancel As Integer)
If (Not IsNull(DLookup("]txtCNPJ_CPF]", "Tbl_CadCli", "]txtCNPJ_CPF] ='" & Me!txtCNPJ_CPF & "'"))) Then
MsgBox "O CNPJ já está cadastrado no sistema..." & txtCNPJ_CPF.Text, vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!txtCNPJ_CPF.Undo 'desfaz a digitação.
End If
End Sub

Mário
Quer postar o exemplo ?

Office 2007



http://ge.tt/6OdPNqU2

Mário continua errado o código. Veja aqui. As chaves estão invertidas.

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

Cole este código.

If (Not IsNull(DLookup("[txtCNPJ_CPF]", "Tbl_CadCli", "[txtCNPJ_CPF] ='" & Me!txtCNPJ_CPF & "'"))) Then
MsgBox "O CNPJ já está cadastrado no sistema..." & txtCNPJ_CPF.Text, vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!txtCNPJ_CPF = Null
End If

Segue o banco de dados.


Obrigado.

Pronto.

Copie e cole este código no seu campo CNPJ no evento ao sair.
Testei e funcionou perfeito.

If (Not IsNull(DLookup("[CNPJ/CPF]", "Tbl_CadCli", "[CNPJ/CPF] ='" & Me!txtCNPJ_CPF & "'"))) Then
MsgBox "O CNPJ " & txtCNPJ_CPF & " já está cadastrado no sistema", vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!txtCNPJ_CPF = Null
End If

Boa Tarde.

Segue anexo banco de dados com o código que me passou.
Então me envie ele funcionando para eu ver por gentileza, pois aqui Infelizmente aqui não funcionou.

Veja que mudei o nome do campo para txtCnpjCpf
Tente cadastrar o CNPJ 9999

No seu Formulário o campo estava com o nome: txtCNPJ/CPF e no Codigo vc colocou o campo como se ele tivesse o nome de txtCNPJ_CPF.

Com o Nome txtCNPJ/CPF o sistema em alguns casos coloca automaticamente um espaço antes e depois da /, dando erro no código ou nem reconhecendo como campo.

Então recomendo que altere de acordo com o que vc achar melhor ou como eu fiz.

Se optar por mudar o nome do campo como fiz, terá que fazer alteração em vários outros lugares ta...  use o Ctrl+L para localizar e substituir automaticamente.

Obs: O mesmo código postado na mensagem anterior.

Agora deu certo, ufa!!!

Muito Grato pela ajuda.

Créditos pro Cláudio Machado que passou os códigos! rererere

Sim.

Com certeza, crédito para os dois.

Faltou o resolvido.

Veja aqui como fechar.

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

Já tinha colocado na mensagem anterior.
Resolvido.

Sim, mas o Resolvido não se dá por escrito e sim clicando no botão resolvido.
Obrigado, o fórum agradece o retorno.