MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Evitar duplicidade exceto homônimo

    sidneycabrall
    sidneycabrall
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 14/12/2016

    Evitar duplicidade exceto homônimo Empty Evitar duplicidade exceto homônimo

    Mensagem  sidneycabrall 11/3/2017, 19:39

    HELP!!!! No  No
    Tenho um banco de dados para cadastro de pessoas. Gostaria de evitar a duplicidade de registros no campo "nome"...usei um dos códigos que encontrei nos fóruns mas a rotina retorna a msgbox e não permite continuar o registro seja o valor inserido duplicidade ou não.
    Abusando do conhecimento e apoio dos colegas, gostaria também de que aceitasse homônimos, mas o único campo que poderia distinguir a pessoa cadastrada seria a "data de nascimento"

    Nome da Tabela: DadosPessoais_tbl
    Nome do campo: Nome
    Nome do txtbox: txt_nome

    Private Sub txt_nome_BeforeUpdate(Cancel As Integer)
    If Me!txt_nome = Me!txt_nome.OldValue Then Exit Sub
    If Not IsNull(DLookup("[nome]", "DadosPessoais_tbl", "[nome] ='" & Me!Nome & "'")) Then
    Cancel = True
    txt_nome.Undo
    MsgBox "Registro Existente! Caso se trate de pessoas com nome idêntico sinalize acrescentando um asterisco após digitar o nome do assistido."
    End If
    End Sub
    pcnet
    pcnet
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 302
    Registrado : 16/12/2015

    Evitar duplicidade exceto homônimo Empty Re: Evitar duplicidade exceto homônimo

    Mensagem  pcnet 11/3/2017, 22:28

    Boa noite,

    Pode experimentar no evento antes de atualizar,

    If DCount("codigo_da_sua_Tabela", "nome_sua_tabela", "seu_campo_tabela =""" & Me!seu_campo_tabela & """") > 0 Then
      'A função DCount() contou um ou mais registros existentes
      MsgBox "O nome que introduziu " & Me!seu_campo_tabela & " já se encontra registado!"
      Me.Undo 'Limpa o campo
      Cancel = True 'mantém o foco no campo.
    End If

    Cumprimentos
    sidneycabrall
    sidneycabrall
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 14/12/2016

    Evitar duplicidade exceto homônimo Empty Very Good

    Mensagem  sidneycabrall 15/3/2017, 22:21

    cheers
    PcNet...perfeito da maneira que me passou!
    Entretanto preciso de uma dica: Quando precisar cadastrar um homônimo (pessoa com mesmo nome), cujo o critério exclusivo para distinguir o cliente seja a data de nascimento....como poderei resolver este problema????
    confused confused
    pcnet
    pcnet
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 302
    Registrado : 16/12/2015

    Evitar duplicidade exceto homônimo Empty Re: Evitar duplicidade exceto homônimo

    Mensagem  pcnet 17/3/2017, 10:42

    Bom dia amigo sidneycabrall,

    Gostava muito de poder ajudá-lo na resolução dessa sua dúvida, mas infelizmente não tenho resposta para a mesma.
    Talvez outro membro possa auxiliá-lo a resolver a questão.

    Cumprimentos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    Evitar duplicidade exceto homônimo Empty Re: Evitar duplicidade exceto homônimo

    Mensagem  Alexandre Fim 18/3/2017, 16:31

    Sidney boa tarde,

    Eu já trabalhei em RH e presenciei este tipo de situação por algumas vezes.
    Imagina você, um sujeito que se chama "José Carlos da Silva" e sua mãe chama-se "Maria José da Silva" e ele tenha nascido, por exemplo, em 25/03/1970. Com certeza, numa população de + de 200 milhões de habitantes, pode acontecer.
    Quando se trata de Cadastro de Pessoas, é aconselhável que você utilize o nº de CPF para identificar o indivíduo, pois a numeração dele é única, tornando assim parte de uma chave composta em sua tabela.
    Neste caso, voce pode compor uma chave composta na sua tabela, e mesmo que haja homônimos, que tenham nascidos na mesma data, não serão repetidos pois o CPF irá diferenciá-los.

    Exemplo:


    Evitar duplicidade exceto homônimo Tb_pes10


    Espero ter ajudado.

    Att,
    sidneycabrall
    sidneycabrall
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 14/12/2016

    Evitar duplicidade exceto homônimo Empty Preciosa ajuda

    Mensagem  sidneycabrall 25/3/2017, 00:02

    Valeu Alexandre Fim...
    Não queria fazer alterações na tabela, mas a alternativa que vc sugeriu me pareceu a única saída lógica...
    Fiz conforme sua orientação e deu tudo certo!!!! king
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    Evitar duplicidade exceto homônimo Empty Re: Evitar duplicidade exceto homônimo

    Mensagem  Alexandre Fim 25/3/2017, 00:42

    Vlw Sidney....
    Boa sorte e um abraço.

    Conteúdo patrocinado


    Evitar duplicidade exceto homônimo Empty Re: Evitar duplicidade exceto homônimo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 15:39